Tvunget linieskift efter 80 tegn

data = rs(\"felt\")
Response.write(left(data, 80) & \"<BR>\" & Mid(data, 81))

Ja! Sagtens... skal lige ordne noget!! Skriver koden og 2 sek!!

ok!! For sent!

Jeg glemte lige at skrive at der selvfølgelig også skal laves et break efter tegn
160, 240, 320, 400 & 420.
VesTer

lol.... især efter 420... ;]

data = rs(\"felt\")
start = 0
while start < len(data)
if len(data) < start Then
  response.write(mid(data, start) & \"<br>\")
else
  response.write(mid(data, start, start+80) & \"<br>\")
end if
start = start + 80
loop

jadetremig.
På denne tid af døgnet kan jeg åbenbart ikke hverken regne eller stave.
VesTer

Skal det indsættes på siden hvor der skrives til databasen?

Nej da, det skal indsættes på siden hvor du udskriver.

Dæ ær ok..... lavr osse sæl farjl engan imellem.... ;)

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a040e\'

\'Loop\' uden \'Do\'

Jeg fjernede \"loop\" og indsatte et \"wend\" og nu skriver den:

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a0005\'

Procedurekaldet eller argumentet er ugyldigt: \'mid\'

Her kommer så tillægsspørgsmålet (25 ekstra points!)
Hvordan sætter man henholdsvis AccessDataBaseTabelFelt og et tekstfelt op til kun at modtage max 500 tegn???
VesTer

strFelt = rs(\"felt\")
iBreak = 2 \'hvor mange karakterer skal med inden <br>
If Len(strFelt) >= iBreak Then
response.write Left(strFelt, iBreak) & \"<br>\"
Do
strFelt = Mid(strFelt, iBreak+1)
response.write Left(strFelt, iBreak) & \"<br>\"
Loop While Not Len(strFelt) < iBreak
End If

mvh
HorsMArk

<input type=text maxlenght=\"500\">

i acces ændrer du blot i \"designvisning\" inputet til at være tekst og max tage imod 500 tegn. Husk at du kan sagten skrive en million tegn til basen uanset hvad. Hvis basen ikke er sat op til mere end 100 tegn, sætter den kun de første hundrede ind (havde det prob igår!)

mvh
HorsMArk

Nu havde jeg jo så ikke lige tænkt over at den naturligvis klipper ved 80. D
et gør den også midt i et ord. ØV

netsrac sover du ALDRIG *GGG*

Horsmark.
Den siger at det maximale for et tekstfelt et 255 tegn??

strFelt = rs(\"felt\")
iBreak = 5 \'hvor mange tegn skal der skrives før <br>
myArray = Split(strFelt, \" \")
For i=Lbound(myArray) to Ubound(myArray)
\'byg linie
  strLinie = strLinie + myArray(i) + \" \"
  If i+1 > UBound(myArray) then
  Exit For
  End If
  If Len(strLinie+myArray(i+1) + \" \") >= iBreak Then
    Do
    strFelt = Mid(strLinie, iBreak+1)
    response.write Left(strLinie, iBreak) & \"<br>\"
    strLinie = \"\"
    Loop While Not Len(strLinie) < iBreak
  End If
next

*SSSSSSSSSSSSSSSS*

vester så sæt den til et \"notat\" felt :-)

hov du skal liiige skrive den sidste linie også i rs(\"felt\") her er den virkende version *ups*

strFelt = rs(\"Felt\")
iBreak = 80
myArray = Split(strFelt, \" \")
For i=Lbound(myArray) to Ubound(myArray)
\'byg linie
  strLinie = strLinie + myArray(i) + \" \"
  If i+1 > UBound(myArray) then
  response.write myArray(i)
  Exit For
  End If
  If Len(strLinie+myArray(i+1) + \" \") >= iBreak Then
    Do
    strFelt = Mid(strLinie, iBreak+1)
    response.write Left(strLinie, iBreak) & \"<br>\"
    strLinie = \"\"
    Loop While Not Len(strLinie) < iBreak
  End If
next

Tak horsmark.
Nu tager ignorerer den bare de tal der står mellem teksten i databasen.
Har det noget med scriptet at gøre?

jadetermig.
Beklager ;-)

vester>> ignorerer?

Hos mig kan jeg sagten skrive en masse tal i teksten også ??

Undskyld. Det var mig.
Ved du hvordan man laver begrænsninger på et Notat felt?

Det skal du da gøre fra clientsiden så du ikke skal hele vejen forbi serveren for at finde ud af om brugeren har tastet for mange bogstaver ind :-)

<input type=\"text\" maxlength=\"100\">

horsmark >> Hva ? mig, jo jeg har da lige sovet i laaaang tid.

netsrac>> oki jeg syns bare ALTID du besvarer alt og alting herinde på de mest sindsyge tidspunkter (hvilket kun er godt for undertegnede) *stort smil*

;-)
<mvh>Onkel HorsMark</mvh>