webForumDet fria alternativet

Problem med RegExp

ASPur ASP

1 svar · 260 visningar · startad av lassie

Medlem sedan nov. 20039 inlägg
Frågan#1

Jag försöker att göra så att alla text inom " " blir grön.

typ...

text=.Replace(text,"<font color='green'>$1</font>")

är det någon som vet hur man fixxar resten?

Medlem sedan juni 20019 519 inlägg
#2

Om du vill ha all text grön så behöver du inte reg.exp

reg.exp gör bara en match... exempel:
Jag vill ha att om en person skriver in [green] så ska det vara samma funktion som <font color='green'>
då kan jag använda replace eller reg.exp:

text = replace(text,"[green]","<font color='green'>")

eller så använder jag reg.exp för personer som kanske skriver [GrEeN] får inte en match, jag skapar en reg.exp funktion istället:

Function encode(str)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.MultiLine = True
str = Server.HTMLEncode(str) ' Använd detta om du vill spärra HTML koder

objRegExp.Pattern = "\[green\](.*?)\[\/green\]"
str = objRegExp.Replace(mess,"<font color='green'>$1</font>")

 farger = str
End Function

Du kan även köra om du vill ha fler färger tex blå och röd med:

Function encode(str)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.MultiLine = True
str = Server.HTMLEncode(str) ' Använd detta om du vill spärra HTML koder

objRegExp.Pattern = "\[(red|green|blue)\](.*?)\[\/(red|green|blue)\]"
str = objRegExp.Replace(mess,"<font color='$1'>$2</font>")

 farger = str
End Function

Rörigt?

133 ms totalt · 3 externa anrop · v20260731065814-full.4bcf49fe
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)