Splitterfunktion
4 svar · 164 visningar · startad av M477145
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
------------------
essentitia preter non sans multiplicandum
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
------------------
* Mattias
[Redigerat av M477145 den 14 okt 2001]
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!
------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."