---
title: "Problem med färgkodning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152745-problem-med-färgkodning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tmed"
published: "2006-10-19T17:00:37.000Z"
updated: "2006-10-20T18:32:46.000Z"
replies: 2
views: 331
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/152745-problem-med-färgkodning"
---

# Problem med färgkodning

## #1 — Tmed, 2006-10-19T17:00Z

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

Permalänk: https://www.webforum.nu/p/152745

## #2 — paddan, 2006-10-20T09:24Z

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

Permalänk: https://www.webforum.nu/p/1885379

## #3 — Tmed, 2006-10-20T18:32Z

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

Permalänk: https://www.webforum.nu/p/1885644

---

Tråden på webben: https://www.webforum.nu/amne/asp/152745-problem-med-färgkodning