Splitterfunktion

for i = 0 To uBound(splittrad)
tmp = splttrad(i)
offset = 1
while len(tmp) > 60
tmpTEXT = tmpTEXT & " " & left(tmp,60)
tmp = mid(tmp,offset)
offset = offset + 60
wend
if len(tmp) > 0 then
tmpTEXT = tmpTEXT & " " & tmp
end if
next

Så här funkade det, tack Vide:

function splitta(ord)
   splittrad = split(ord, " ")
   for i = 0 To uBound( splittrad )
      if len( splittrad(i) ) > 60 then
      for j = 1 to len( splittrad(j) )
      tmpTEXT = tmpTEXT & mid( splittrad(i), j, 1 )
      if j mod 60 = 0 then tmpTEXT = tmpTEXT & " "
      next
      else
      tmpTEXT = tmpTEXT & " " & splittrad( i )
      end if
   next
   
   tmpTEXT = replace( tmpTEXT, vbcrlf, "<br>" )
   response.write( tmpTEXT )
end function

Avklarat!

Försök att undvika att skriva så, Mattias, då blir det svårare för oss andra att ta del av kunskapen.

Välkommen till webForum förresten!

Ska tänka på det till nästa gång, PACE!