Har i dag ett forum där tecken skall bytas använder denna koden för det
strPoetry = RecSet("annonstext")
'Replace all vbCrLf with <BR>s
strPoetry = Replace(strPoetry, vbCrLf, "<BR>")
'Replace all spaces with
strPoetry = Replace(strPoetry, " ", " ")
'Output the formatted TEXTAREA value:
Response.Write strPoetry
Nu är det så att jag även vill tvinga fram radbrytning efter ett visst antal tecken .. Hittade denna koden här på wfforum
function bryt(sText)
sLen = Len(sText)
If sLen > 200 then
Response.Write Left(sText, 200) & "<br>" & Right(sText, sLen - 200)
Else
Response.Write sText
End If
End Function
myText = Texten du vill bryta...
arrText = split(myText, " ")
countText = uBound(arrText) + 1
X = 0
Do Until X = countText
Response.Write bryt(arrText(X)) & " "
X = X + 1
Loop
Finns det nån som kan hjälpa mig att kombinera dom två???
