10 svar · 264 visningar · startad av Peppe
Tjenare !
Har då gjort ett profilsystem.
När man är inne i settings för ens profil så skall man kunna skriva Fetstilt
Och det har jag fixat, men jag vill även ha så att man klickar på "Retur" så skall det bli <br>, men <br> skall inte synas som text.
Innan så fungerade det sistnämda, men efter jag fixat RegExp så blir det ingen radbrytning när man klickar på ENTER
Du får visa vad du gjort, så kan vi nog hitta felet.
Ang RegExp 2
Har denna kod:
Function regExp(ByVal text)
text = Replace(Server.HTMLEncode(text),vbCrlf,"\<br\>")
' text = Server.HTMLEncode(text)
' presentation = Replace(Request.Form("presentation"),vbcrlf,"\<br\>")
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
RegExp.Pattern="\\\[ \*b \*\](.\*?)\\"
text = regExp.Replace(text,"\<b\>$1\</b\>")
Set RegExp = Nothing
regExp = text
End Function
med ovanstående kod fungerar [ b ]att göra fetstil text[ b ], men om jag vill lägga till center, kursiv, understruken. Hur går jag tillväga då ?
Håll dig gärna till en tråd
RegExp.Pattern="\[ *b *](.*?)\[/b]"
text = regExp.Replace(text,"<b>$1</b>")
regexp.pattern = "\[ *i *](.*?)\[/i]"
text = regexp.replace(text,"<i>$1</i>")
regexp.pattern = "\[ *u *](.*?)\[/u]"
text = regexp.replace(text,"<u>$1</u>")
regexp.pattern = "\[ *center *](.*?)\[/center]"
text = regexp.replace(text,"<center>$1</center>")
Set RegExp = Nothing
regExp = text
Peter S: Allt funkar, förutom understruket, alltså [ u ][ u ]
Vad är det för skillnad på det mönstret jämfört mot exempelvis det för [ i ] [ /i ] i din kod då?
Ingen skillnad vad jag vet, jag använder exakt samma kod som den Peter S skickade.
Sammanfogat trådarna.
Kan ngn lösa mitt problem ?
Peppe skrev:
Kan ngn lösa mitt problem ?
Lugn, bara lugn...
Function makeTags(ByVal text)
text = Replace(Server.HTMLEncode(text),vbCrlf,"<br>")
' text = Server.HTMLEncode(text)
' presentation = Replace(Request.Form("presentation"),vbcrlf,"<br>")
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
RegExp.Pattern="\[b\](.*?)\[/b\]"
text = regExp.Replace(text,"<b>$1</b>")
regexp.pattern = "\[i\](.*?)\[/i\]"
text = regexp.replace(text,"<i>$1</i>")
regexp.pattern = "\[u\](.*?)\[/u\]"
text = regexp.replace(text,"<u>$1</u>")
regexp.pattern = "\[center\](.*?)\[/center\]"
text = regexp.replace(text,"<center>$1</center>")
Set RegExp = Nothing
makeTags = text
End Function