radbrytning

9 svar · 309 visningar · startad av pellesvenne 17 jan. 2002

pellesvenneMedlem sedan jan. 2002227 inlägg

Trådstart17 jan. 2002 15:32#1

Hejsan!! jag håller på med en gästbok!
när användaren skriver tex: 55555555555555555555555555555555555555555555555555555555555555555555555555555555 då flyttas cellerna!
går det och göra så att när man skriver in det där ska det automatiskt skapa en radbrytning dvs efter 50 tecken

så här ser min kod ut:

<%=recset(smiley("text"))%>

mikulMedlem sedan aug. 20013 824 inlägg

17 jan. 2002 16:55#2

kolla på mitt svar, som jag skrev på din fråga i palles forum.
(www.palleman.nu)

/ Mikul

pellesvenneMedlem sedan jan. 2002227 inlägg

17 jan. 2002 17:09#3

tack mikul men funkar inte

@ndersMedlem sedan juni 200032 967 inlägg

17 jan. 2002 17:16#4

Välkommen till wF!

Se om denna tråd kan hjälpa dig:
http://cgi.webforum.nu/wf/Forum11/HTML/008268.html

Mvh,

pellesvenneMedlem sedan jan. 2002227 inlägg

17 jan. 2002 17:42#5

varför kan man inte göra så här:

<%=Strang(smiley(recset("text")))%>

pellesvenneMedlem sedan jan. 2002227 inlägg

17 jan. 2002 20:47#6

fattar inte riktigt

LarsGMedlem sedan dec. 200012 464 inlägg

17 jan. 2002 20:51#7

Vad händer när du skriver så där? Något felmeddelande?

Hur ser funktionerna Strang och Smiley ut?

pellesvenneMedlem sedan jan. 2002227 inlägg

17 jan. 2002 20:59#8

text = lcase(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text =  replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text

[Redigerat av pellesvenne den 17 jan 2002]

pellesvenneMedlem sedan jan. 2002227 inlägg

17 jan. 2002 21:01#9

så här ser strang ut:

Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString

intMaxLength = 66
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

LarsGMedlem sedan dec. 200012 464 inlägg

17 jan. 2002 21:26#10

Det här alltså koden för funktionen smiley?

text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text

Du får nog skriva om den lite

function smiley(text)
text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 
smiley = text
end function