Function f(s)
a = Split(s)
s = ""
For i = 0 To UBound(a)
If Len(a(i)) > 50 Then
For j = 1 To Len(a(i)) Step 50
s = s & Mid(a(i), j, 50) & " "
Next
Else
s = s & a(i) & " "
End If
Next
f = s
End Function
Response.Write(f("Lite text här, och ett ord som är mer än 50 bokstäver: " &_
"ssssssssssssssssssssssssssssssssssssssssssssssssssssssssss"))
Frågan#1
hej
Skulle behöva hjälp med en funktion som delar upp långa ord från en tabell i databasen i flera bitar (alltså ny rad). Långa meningar är ok, men inte för långa ord.
tex:
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
kan delas upp i:
aaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaa
Jag vill att maxlängden ska vara ca 50 tecken.
Hur löser man det? :stud
