Problem med färgkodning

2 svar · 318 visningar · startad av Tmed 19 okt. 2006

TmedMedlem sedan juni 2000145 inlägg

Frågan19 okt. 2006 17:00#1

Jag försöker göra mitt eget script som färgkodar ungefär som här på wF.
Koden som jag använt hittade jag här i någon tråd på wF och nu försöker jag utöka denna men jag har stött på problem!
Färgkodningen funkar fint men det blir problem när jag använder andra taggar än 'font'-taggarna!
Någon som har en lösning eller kanske något annat script liggande?

strText = "Text med färgkoderna [GREEN]Grön[/green] [RED]Röd[/RED] [BLUE]Blå[/BLUE] [fet]Fet[/fet] vanlig text."

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(blue)\]"
strText = objRegExp.Replace(strText,"<font color=""#0000ff"">")

objRegExp.Pattern = "\[(red)\]"
strText = objRegExp.Replace(strText,"<font color=""#ff0000"">")

objRegExp.Pattern = "\[(yellow)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffff00"">")

objRegExp.Pattern = "\[(green)\]"
strText = objRegExp.Replace(strText,"<font color=""#008000"">")

objRegExp.Pattern = "\[(fet)\]"
strText = objRegExp.Replace(strText,"<strong>")

objRegExp.Pattern = "(\[/blue\]|\[/red\]|\[/green\]|\[/yellow\]|\[/fet\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText

paddanMedlem sedan dec. 2002299 inlägg

20 okt. 2006 09:24#2

Menar du att du kan använda andra taggar i formuläret?
i så fall så sök på htmlencode i asp forumet!

TmedMedlem sedan juni 2000145 inlägg

20 okt. 2006 18:32#3

Jag hittade ett annat script här på wF.
Det fungerar kanon och är rätt lätt att utöka!

OBS fnuttarna i [] ska bort, måste ha dom här på wF för att det ska synas!

strText= strText & "Testar ['B']FET TEXT[/B]![br]"
strText= strText & "Testar ['U']understruken text[/U]![br]"
strText= strText & "Testar ['I']kursiv text[/I]![br]"

strText = ReplaceTags("\[B\](.*?)\[\/B\]", "<b>$1</b>", strText)
strText = ReplaceTags("\[I\](.*?)\[\/I\]", "<i>$1</i>", strText)
strText = ReplaceTags("\[U\](.*?)\[\/U\]", "<u>$1</u>", strText)
strText = ReplaceTags("\[C\](.*?)\[\/C\]", "<center>$1</center>", strText)
strText = ReplaceTags("\[color=(.*)\]((.|\s)*)\[/color\]", "<font color=""$1"">$2</font>", strText)
strText = ReplaceTags("\[URL\](.*?)\[\/URL\]", "<a href='http://$1' target='_blank'>$1</a>", strText)
strText = ReplaceTags("\[MAIL\]((.|\s)*)\[/MAIL\]", "<a href='mailto:$1'>$1</a>", strText)
strText = replace(strText, "[br]" , "<br>")

Function ReplaceTags(strPattern, strReplace, strSource)
  Dim objRX
  Set objRX = New RegExp
  objRX.IgnoreCase = True
  objRX.Global = True
  objRX.Pattern = strPattern
  ReplaceTags = objRX.Replace(strSource, strReplace)
End Function