---
title: "[BLUE] och [blue]"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12030-blue-och-blue/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2001-06-26T09:20:00.000Z"
updated: "2001-10-10T13:30:00.000Z"
replies: 47
views: 413
page: 2
pages: 3
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/12030-blue-och-blue"
---

# [BLUE] och [blue]

_Sida 2 av 3._

## #21 — Janspeed, 2001-06-27T10:43Z

Var det ingen som tyckte min kod var något att ha eller förstod sig ingen på den? :( :q

/JANspeed

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

## #22 — voigtann1, 2001-06-27T10:48Z

det fungera inte... grr =)) jag använder detta och vill behålla det men vill att det ska kvitta om man skriver stora lr små:

```
  msg = Request.Form("meddelande")
  msg = Server.HTMLEncode(msg)
  msg = CStr(Replace(msg, vbcrlf, "<br>"))

  msg = CStr(Replace(msg, "[blue", "<font color=""#0000FF"" "))
  msg = CStr(Replace(msg, "[/blue", "</font"))
  msg = CStr(Replace(msg, "[red", "<font color=""#FF0000"" "))
  msg = CStr(Replace(msg, "[/red", "</font"))
  msg = CStr(Replace(msg, "[white", "<font color=""#FFFFFF"" "))
  msg = CStr(Replace(msg, "[/white", "</font"))
  msg = CStr(Replace(msg, "[red", "<font color=""#FF0000"" "))
  msg = CStr(Replace(msg, "[/red", "</font"))
  msg = CStr(Replace(msg, "[yellow", "<font color=""#FFFF00"" "))
  msg = CStr(Replace(msg, "[/yellow", "</font"))
  msg = CStr(Replace(msg, "[green", "<font color=""#008000"" "))
  msg = CStr(Replace(msg, "[/green", "</font"))

  msg = CStr(Replace(msg, "[color=#", "<font color=#"))
  msg = CStr(Replace(msg, "[/color", "</font"))

  msg = CStr(Replace(msg, "]", ">"))
```

 :q fattar ni lr måste jag göra om hela skitet för att det ska fungera?? det e min stora fråga. :q

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

## #23 — @nders, 2001-06-27T10:52Z

varför vill du göra på ett dåligt sätt?
då får du nog räkna med att det fungerar kasst.

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

## #24 — jepsO, 2001-06-27T11:03Z

För att få din kod att fungera klockrent måste du ändå använda Regular Expressions. Läs Vides artikel om RegExp på [webeye.nu](http://www.webeye.nu) så förstår du nog vad Janspeed skrev ovan. Hans kod ser finfin ut, så jag föreslår att du kör med den.

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

## #25 — Janspeed, 2001-06-27T11:11Z

```
msg = Request.Form("meddelande")
msg = Server.HTMLEncode(msg)

strText = msg

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 = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

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

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

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText
```

Prova åtminstone. :)

/JANspeed

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

## #26 — Janspeed, 2001-06-27T11:19Z

```
msg = Request.Form("meddelande")
msg = Server.HTMLEncode(msg)
strText = msg

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 = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

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

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

objRegExp.Pattern = "\[color=#(\w)\]"
strText = objRegExp.Replace(strText,"<font color=#""$1"">")

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\]&#0124;\[/color\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText
```

Nu har jag även lagt till din color-funktion som jag inte såg från början. Jag har dock inte testat koden. :)

/JANspeed

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

## #27 — Brimba, 2001-06-27T12:17Z

Detta borde väl fungera?

```
Function cStrim(cTxt)
	Dim objRegExp
	Set objRegExp = New RegExp

	objRegExp.Pattern = "\[blue\](.*?)\[\/blue\]&#0124;\[red\](.*?)\[\/red\]"
	objRegExp.IgnoreCase = True
	objRegExp.Global = True

	cStrim = objRegExp.Replace(cTxt,"<font color=blue>$1</font><font color=red>$2</font>") 
	
	Set objRegExp = Nothing
End Function
```

Jag har inte testat det iofs...

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

## #28 — Janspeed, 2001-06-27T12:39Z

Det verkar ju funka det också. Det enda jag inte fattar är dock hur RegExp ska kunna se skillnad på vilken font-tagg den ska använda? Eller skriver den bara helt enkelt ut allihopa?

/JANspeed

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

## #29 — Brimba, 2001-06-27T12:56Z

jag separerar med &#0124; och då fungerar ju $1 och $2 m.m

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

## #30 — voigtann1, 2001-06-27T15:33Z

Det funger a inte... den skriver inte in där jag vill att den ska skriva! Jag använder detta script i min gästbok ditt script görs typ bara en gång som en kontroll.. som gör att det inte fungera ändå! =)) tror jag skiter i det snart

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

## #31 — Brimba, 2001-06-27T18:10Z

Hur ser din kod ut?

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

## #32 — voigtann1, 2001-06-28T13:45Z

Som:

```
msg = Request.Form("meddelande")
msg = Server.HTMLEncode(msg)
strText = msg
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 = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

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

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

objRegExp.Pattern = "\[color=#(\w)\]"
strText = objRegExp.Replace(strText,"<font color=#""$1"">")

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\]&#0124;\[/color\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText
```

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

## #33 — voigtann1, 2001-08-01T12:14Z

Började leka med denna kod igen.. fungera inte med din 

```
msg = Request.Form("meddelande")
msg = Server.HTMLEncode(msg)
strText = msg

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 = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

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

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

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText
```

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

## #34 — Janspeed, 2001-08-02T09:22Z

Jag har testat denna kod både lokalt och på mitt webhotell och det funkar fint. Kör IIS 5 på bägge tror jag.

\[r\] Vilken kod är det om inte fungerar?\[/r\]

Vad får du för felmedelande då?

```
<%

msg = "Hej [white]alla[/white] som är [blue]glada[/b lue] och knäppa! [green]Hur mår ni[/green] idag [red]alla[/red] människor?"
msg = Server.HTMLEncode(msg)
strText = msg
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 = "\[(white)\]"
strText = objRegExp.Replace(strText,"<font color=""#ffffff"">")

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

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

objRegExp.Pattern = "(\[/blue\]&#0124;\[/red\]&#0124;\[/green\]&#0124;\[/white\]&#0124;\[/yellow\])"
strText = objRegExp.Replace(strText,"</font>")

Response.write strText

%>
```

/JANspeed

\[Redigerat av Janspeed den 02 aug 2001\]

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

## #35 — voigtann1, 2001-08-02T11:50Z

jag får inget fel medelande men jag kan inte få en annan färg heller...

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

## #36 — Janspeed, 2001-08-02T15:28Z

Jag tror att jag gjort koden enligt konstens alla regler. Är du säker på att det inte är något annat som ställer till det för dig? 

Som sagt så funkade det för mig i bägge fallen. :)

/JANspeed

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

## #37 — voigtann1, 2001-08-02T18:09Z

allt fungera nu... utom grön =)

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

## #38 — Janspeed, 2001-08-03T07:37Z

Det var ju kul att höra. Jag blev lite rädd att jag hade kodat helt fel. 

För mig så funkade den gröna precis lika bra som alla andra. Så den lär du säkert kunna få pli på också.

/JANspeed

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

## #39 — voigtann1, 2001-10-06T14:10Z

Har fått igång denna kod nu!
men inte den sista:

```
objRegExp.Pattern = "\[color=#(\w)\]"
strText = objRegExp.Replace(strText,"<font color=#""$1"">")
```

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

## #40 — Vide, 2001-10-06T14:21Z

```
objRegExp.Pattern = "\[color=#(\d{6})\]"
strText = objRegExp.Replace(strText,"<font color=""#$1"">")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12030-blue-och-blue/page2  
Föregående sida: https://www.webforum.nu/amne/asp/12030-blue-och-blue.md  
Nästa sida: https://www.webforum.nu/amne/asp/12030-blue-och-blue/page3.md