Just nu i M3-nätverket
Jump to content

Inmatning av text utan mellanslag på eforum


bassman

Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...