korta ner text från textarea

3 svar · 350 visningar · startad av Tipx 29 sep. 2002

TipxMedlem sedan nov. 200139 inlägg

Frågan29 sep. 2002 18:07#1

hej hej.

när man skriver i en <textarea> utan att göra mellanrum..
typ: wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww....
(sabotage) :(
hur gör man för att sidan inte ska bli helt skum och dra ut sig på kantarna... vill ju att det ska bli <br> när den nått tabellens width-värde..
självklart har jag en funktion att ta bort deras meddelande, men jag vill ju inte att folk ska kunna sabotera

solbulleMedlem sedan mars 20015 287 inlägg

29 sep. 2002 18:30#2

Du kan kika här, http://www.webforum.nu/showthread.php?s=&threadid=41784&highlight=korta samt att du bör väl ha en koll som kollar att det verkligen är ett långt ord (=inget mellanslag) innan du tillämpar det hela.

jboy_87Medlem sedan aug. 20011 099 inlägg

29 sep. 2002 18:33#3

Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString
intMaxLength = 45
arrString = Split(OriginalString, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If
strNewString = strNewString & arrString(intIndex) & " "
Next
Strang = strNewString
End Function

<%=Strang(recset("inlagg"))%>

TipxMedlem sedan nov. 200139 inlägg

29 sep. 2002 18:47#4

tack tack. fick det o funka! :birp