Dele streng

tekst = \"dine 600 tegn\"
counter = 1
Do while counter < Len(tekst)
Response.write(Mid(tekst, counter, 100) & \"<br>\")
counter = counter + 100
Loop

inputStr = din lange streng!!

reDim  arr(0)
str = replace(inputStr,\"<br>\",vbCrLf)
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, 100)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, \" \", 100)
    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

:(

Min laver <br> i mellemrum og ikke midt i et ord.

Ligeledes startes der forfra hvis der inden for de 100 karakter findes et <br> i forvejen.

Skal man bare svare først... så husker jeg det til næste gang..

eagleeye >> Det jeg har lavet virker og det gør hvad der blev spurgt efter, der blev ikke bedt om nogen funktion til at dele på mellemrum eller skippe hvis der er en <br> i forvejen.

Man sender jo heller ikke 5 tømre ud for at lave en tømmers arbejde.

Nej det er rigtigt.... Men umiddelbart er det tåbeligt at klippe midt i ord.
Det med <br> var noget jeg havde i forvejen :)

Det kommer jo an på, det kan være der slet ikke er mellemrum i strengen, det kan være det er en masse tal efter hinanden som skal deles op for at sammeligne dem, det kan være så meget.

det har du ret i, men så kunne han jo afvise mit svar...  :)

kunne bruge begge jeres svar :-)
netsrac var bare først

Hvis du kan bruge begge svar så kunne du jo dele points..

Det er noget fis med hvem der svare først, du skl give points til de løsninger du bruger. Typisk vil måske være en kompination af flere løsninger.