Radbrytning i lång text

ASP

2 svar · 210 visningar · startad av skyman 18 apr. 2002

skymanMedlem sedan juli 20012 450 inlägg

Frågan18 apr. 2002 14:28#1

Vid var 60:e texten skall det läggas in en <br> men vid närmsta mellanslag så det inte bryts i mitt i ett ord.

Hur gör man det enklast?

Erik JuhlinMedlem sedan maj 200010 687 inlägg

18 apr. 2002 16:26#2

Function BreakAfterWord(sText, lWordNumber)
	
	Dim vWord, i, str
	vWord = Split(sText, " ")
	
	For i = 0 To UBound(vWord)
		If i Mod lWordNumber <> 0 Then str = str & " "
		str = str & vWord(i)
		If i Mod lWordNumber = (lWordNumber - 1) Then str = str & "<br>" & vbCrLf
	Next 'i
	
	BreakAfterWord = str
	
End Function

Erik JuhlinMedlem sedan maj 200010 687 inlägg

18 apr. 2002 16:27#3

Ah, du menade efter var 60:e tecken...

Fattade fel när du skrev texten...