textarea med linieskift

<% Response.Write(Replace(objRs("Feltnavn"),vbCrLf,"<br>")) %>

//>Rune

^Det skal du skrive der hvor du vil ha' det udskrevet!

-et linjeskift i en databasetabel bliver til et vbCrLf, så replacer du det bare med et <br> tag i HTML!

//>Rune

dvs når data bliver lagt i databasen - er jeg yderligere i tvivl om hvordan det bliver lagt i databasen - altså jeg mener - hvad sker der mon når det hives ud af db igen??

Vil du havde en kode som selv lave return for hver 50 karakter ?

Fx..
Hvis du skriver flg. tekst i dit textarea:

Hej Karen, du er 33 år gammel
og bor på Sjælland.

Så vil det se således ud i Databasen:

Hej Karen, du er 33 år gammel vbCrLf og bor på Sjælland

Så Replacer vi så vbCrLf med <br> og så kommer det til at se rigtig ud ;o)

//>Rune

Du kan rette max antal karakter i denne linie MaxLength = 50


inputStr = rsGuestbook("Comments")
reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 50
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")

'Og her udskrives teksten så:
Response.Write outStr

Ovenstående laver automatisk linjeskift efter 50 tegn...

//>Rune

inputStr = "Din Streng Fra Databasen"

reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 50
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")

Response.write outStr

det skal jeg altså lige forstå rigtigt - vil det sige at når jeg indtaster noget i et felt der bliver lagt i databasen - så vil der i databasen automatisk blive lavet et vbCrLf hver gang der tastes return??

Yepzer. -sådan logisk tænkt :-)

//>Rune

Nej det har ikke noget med databasen at gøre.

Reurn-tasten = vbCrLf

betyder det at hvis jeg kigger i det felt i databasen så vil der eksempelvis stå:Hej jeg hedder Karen vbCrLf Jeg bor på sjælland vbCrLf Og hvor er jeg glad for at der er nogen der hjælper mig???

Yep

//>Rune

Nej du vil ikke kunne se det som vbCrLf. vbCrLf er en VBScript konstant og det er i virkeligheden to karakter efter hinanden: Chr(13) & Chr(10)

Det fuldstændigt det samme som hvis du trykke på tasten b kommer der et b i teksten. Hvis du trykke på Return-tasten kommer det et linieskift som ikke kan se anden end teksten skifter linie, dog ligger der i strengen en vbCrLf karakter som symboliser return tasten.

Cr = Carriage return
Lf = Line feed

oki - så er jeg med - men til både medions og eagleeye - kan I ikk hjælpe mig med hvor de kodestumper I har skrevet skal sættes ind i min kode? Altså jeres eksempler mener jeg - hvad skal stå på den side hvor der indtastes noget i textarea og hvad skal stå på den side hvor visningen sker.........visningen sker i en celle i en tabel

Hvis du kigger i din database vil den skifte linie hvor du har trykket på return tasten.
Hvis du indtaser dette: "Hej jeg hedder Karen[RETURN-tast]Jeg bor på sjælland[RETURN-tast]Og hvor er jeg glad for at der er nogen der hjælper mig"

Hvis du kigger i databasen vil det højst sansynligt se ud som dette:
Hej jeg hedder Karen
Jeg bor på sjælland
Og hvor er jeg glad for at der er nogen der hjælper mig

Så vbCrLf er bare en konstant man bruger for at kunne finde hvor der er blvet trykket på retun tasten.

og den maxlength - er det længden af hele den samlede tekst - eller er det længen af hver linie?

maxlength er max antal karakter pr linie, så det er 50.

Der hvor du udskriver fra kolonnen idag kan du indsætte koden.

hm - det forstår jeg altså ikke rigtigt - undskyld hvis jeg er lidt dum- men alt det kode du har skrevet skal vel ikke stå i kolonnen....skal det ikke være en funktion der så kaldes når formen submittes??

Nej det skal ind på den side som udskriver fra databasen.

Hvad hedder den kolonne du skal udskrive fra?, hvis den ny hedder "kommentar" og du har et recordset rs så har du sikker en linie idag hvor du udskriver:

Response.Write rs("kommentar")

Du skal så havde alt koden ind før man udskriver oå det bliver sådan her:

inputStr = rs("kommentar")

reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 50
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")

Response.write outStr

Det kan også laves om til en function så koden kan liggen lidt væk og bruge til andre felter.

function maxantal(str)
inputStr = str
reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 50
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")
maxantal = outStr
end function

Så kopier du functionen ind og ligger den i bunden af din fil:
<%
function maxantal(str)
...
%>

og så retter du

Response.Write rs("kommentar")

Til:
Response.Write maxantal(rs("kommentar"))

Det her er et udtræk af hvad der står på den admin side hvor man opretter
<form NAME="opretstandard" ACTION="opretreference.asp?funktion=do_opretnystandard" METHOD="post" onsubmit="java script:return Validate();">
<TR>
<td>KommentarDK</td>
<td><Textarea NAME="kommentardk" style="width:305px;"></textarea></td>
</TR>
</table></form>
Og det her er hvad der står på den side hvor det vises/udskrives
<table>
<tr>   
<td align="center" colspan="3"><b><u>Kommentar</u></b></td>
</tr>
<tr>       
<td align="left" colspan="3" height="20"><%=res.fields("kommentardk")%></td>
</tr>
</table>
så hvad gør jeg så?

eagleeye - dont leave me........

I am still here.

Jeg vil tage og lave det som en funktion som vist. Og lig funktionen ned i bunden og filen.

Ret denne linie:
<%=res.fields("kommentardk")%>

Til:
<%=maxantal(res.fields("kommentardk"))%>

kalder den så automatisk funktionen maxantal?

Ja det gør den.

ih altså - tusind millioner tak - har jeg egentlig mulighed for at give dig mere end de 15p - nu hvor du har været så sød at hjælpe så meget?

Ja jeg svare lige :)

Du kan trykke på point tallet 15 oppe lige før dit brugernavn eller du kan trykke på "Afsæt flere point" i menuen i functioner i venstra side.

men inden jeg gør det - hvad nu hvis det ikke virker - så må jeg stille spørgsmål igen - altså ikke at jeg tvivler på din ekspertise - men hvis jeg selv kludrer i det - så kan jeg jo ikke være sikker på at du ser mit spørgsmål vel?

Jeg tror på du, kan få det til at virke. Du kan trykke på knappen "Avenceret" så har du muliughed for at tildele X antal point til hver som har svaret.
Eller så finder vi nok ud af det. :)

og nu har jeg lige sat koden ind...
jeg har øverst i dokumentet dim følgende variabler:inputStr, str, MaxLength, splitIndex, outStr, maxantal

jeg har skrevet funktionen du gav mig således:
<%
function maxantal(str)
inputStr = str
reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 50
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")
maxantal = outStr
end function

%>

og inden i formen har jeg skrevet følgende:
<tr>       
<td align="left" colspan="3" height="20">
<%=maxantal(res.fields("kommentardk"))%>
</td>
</tr>
Og jeg får følgende fejlmeddelelse:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0411)
Navnet blev defineret igen
/filcon/referencerny.asp, line 3080, column 9
function maxantal(str)
--------^
Så hvad har jeg mon gjort galt?

undskyld  - der skal ikke stå: "inde i formen har jeg skrevet følgende" det er selvfølgelig en tabel

eagleeye - er du her endnu?

Det kunne tyde på at du har fået lagt functionen ind to gange i koden.

"Navnet blev defineret igen"

jeg har fundet ud af det - jeg skulle jo ikke dim maxantal.......og det havde jeg gjort.....og jeg havde glemt at dim variabelen i - nu virker det vist ....
men nu kan jeg igen ikke give dig point - så du er nødt til at svare så jeg kan give dig point

og tusind tak endnu en gang - rigtig pænt af dig at bruge så meget tid på at hjælpe mig....... Ha en dejlig weekend - min har du reddet

Ok :)

Jeg kan ikke længere svare for du har lukket ved at acceptere medions svar.

kan jeg så ikk lige oprette et nyt som du kan svare på

Jo så opret et nyt og skrive som overskrift
Point til eagleeye

og lig en reference til dette spørgsmål.

Thx 4 Poinz

//>Rune