rad brytning

Det besvarades för bara några dagar sedan, ta en sökning i detta forumet så hittar du ditt svar...

<% 
antal = 60
message = rs("message")
response.write left(message,antal) & "<br>" & mid(message,antal)
%>

Tack så mycket

Humm..nej de blev ngt fel, det fungerar bara på rad 1 om man skriver mer än 1 rad som radbryts det itne....någon som vet varför?

Om du vill ha ny rad efter exakt vart 60:e tecken.

<%
antal = 60
offset = 1
message = rs("message")
l = len(message)
while l > 0
  response.write mid(message,offset,antal) & "<br>"
  offset = offset + antal
  l = l - antal
wend

Det blir nog inte så snyggt då radbrytningen kan komma var som helst inom ett ord.

Om man vill ha det brytning så att det blir på ett mellanslag så kan man göra så här kanske

antal = 60
message = rs("message")
a = split(message," ")
p = 0
for i = 0 to ubound(a)
  p = p + len(a(i)) 
  response.write a(i) 
  if i < ubound(a) then
     response.write " "
     p = p + 1
  end if
  if p >= antal then 
     response.write "<br>"
     p = 0
  end if
next

Men om någon vill spamma eler bobma en gästbok och bara håller in en bokstav..så blir det ju iongen rad bryning..då blir det en jätte lång rad, som då förstör sidan.

Det här funkar alldeles utmärkt för mig:

<%
Response.Write Strang(rs("message"))

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
%>

Men asså <%=Strang(rs("message"))%>
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString

Jag kan itne sätta ind et för det liger redan inom <% %> sånna då kan jag inte ha <%=Strang(rs("message"))%>

Sorry, fixade koden ovan

Tack så mycket för hjälpen

Får fel på rad 69 och där står det:Function Strang(ByVal OriginalString)
vad kan avar fel?

Du måste lägga själva funktionen utanför alla loopar, t ex i början eller slutet av dokumentet. Sedan är det bara att kalla på funktionen var du vill i dokumentet!