/ Published in: ASP
asp function similar to php one, to truncate long words inside a string
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Function wordwrap(str,width,breakString) Dim words Dim out, temp Dim i,k out = "" words = Split(str," ") For i = 0 To UBound(words) If Len(words(i)) >= width Then temp = "" parola = words(i) For k = 1 To Len(parola) temp = Left(parola,k) If len(temp)>=width Then out = out & temp & breakString parola = Right(parola,Len(parola) - width) k = 1 temp = "" End if Next out = out & temp & breakString Else out = out & words(i) & breakString End If Next wordwrap = Trim(out) End Function