Inmatning av text utan mellanslag på eforum

[bassman]

Har sett att det förekommer lite långa inmatningar utan blanksteg på eforum som förstör layouten en del.

Jag skrev en funktion för en site jag utvecklar som kringgår runt detta:

 

Function InsertSpaces(str,length)
Dim tmpArr, i
tmpArr = Split(str," ")
For i = 0 To UBound(tmpArr)
If Len(tmpArr(i))>length Then
tmpArr(i)=Left(tmpArr(i),length) & " "& Right(tmpArr(i), Len(tmpArr(i))-length)
If Len(tmpArr(i))>length + length Then tmpArr(i) = InsertSpaces(tmpArr(i),length)
End If
Next
str=""
For i = 0 To UBound(tmpArr)
str = str & tmpArr(i) & " "
Next
InsertSpaces = str
End Function

Man skriver alltså typ: Body = InsertSpaces(Request.Form("body"),20) och får då tillbaka en sträng som stoppat in blanksteg efter 20 tecken om det inte hittades ett tidigare.

 

 

 

 

 

_______

bassman