rad brytning

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

------------------
Mostly Harmless

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

------------------
essentitia preter non sans multiplicandum

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

------------------
essentitia preter non sans multiplicandum

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

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

[Redigerat av aleborg den 09 jan 2002]

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

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

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!

------------------
Data-Doktorn
Min egen musik!
Mitt coverband