[BLUE] och [blue]

47 svar · 413 visningar · startad av voigtann1 26 juni 2001 · sida 2 av 3

Trådstarten, av voigtann1 26 juni 2001

har ett litet problem här: msg = CStr(Replace(msg, "[blue", "<font color=""#0000FF"" ")) msg = CStr(Replace(msg, "[/blue", "</font")) msg = CStr(Replace(msg, "]", ">")) MEN jag vill att man ska både kunna göra: etc etc jag vet att man kan sätta dit alla dom här men det vill jag inte finns det något sätt att göra så att det kvittar hur man skriver ???:e

Läs hela trådstarten →

JanspeedMedlem sedan jan. 2001510 inlägg

27 juni 2001 10:43#21

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

/JANspeed

voigtann1Medlem sedan juni 20019 519 inlägg

27 juni 2001 10:48#22

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, "]", ">"))

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

@ndersMedlem sedan juni 200032 967 inlägg

27 juni 2001 10:52#23

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

jepsOMedlem sedan mars 2001484 inlägg

27 juni 2001 11:03#24

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

JanspeedMedlem sedan jan. 2001510 inlägg

27 juni 2001 11:11#25

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

JanspeedMedlem sedan jan. 2001510 inlägg

27 juni 2001 11:19#26

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

BrimbaMedlem sedan dec. 19995 874 inlägg

27 juni 2001 12:17#27

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

JanspeedMedlem sedan jan. 2001510 inlägg

27 juni 2001 12:39#28

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

BrimbaMedlem sedan dec. 19995 874 inlägg

27 juni 2001 12:56#29

jag separerar med | och då fungerar ju $1 och $2 m.m

voigtann1Medlem sedan juni 20019 519 inlägg

27 juni 2001 15:33#30

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

BrimbaMedlem sedan dec. 19995 874 inlägg

27 juni 2001 18:10#31

Hur ser din kod ut?

voigtann1Medlem sedan juni 20019 519 inlägg

28 juni 2001 13:45#32

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

voigtann1Medlem sedan juni 20019 519 inlägg

1 aug. 2001 12:14#33

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

JanspeedMedlem sedan jan. 2001510 inlägg

2 aug. 2001 09:22#34

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]

voigtann1Medlem sedan juni 20019 519 inlägg

2 aug. 2001 11:50#35

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

JanspeedMedlem sedan jan. 2001510 inlägg

2 aug. 2001 15:28#36

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

voigtann1Medlem sedan juni 20019 519 inlägg

2 aug. 2001 18:09#37

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

JanspeedMedlem sedan jan. 2001510 inlägg

3 aug. 2001 07:37#38

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

voigtann1Medlem sedan juni 20019 519 inlägg

6 okt. 2001 14:10#39

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

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

VideMedlem sedan dec. 19998 577 inlägg

6 okt. 2001 14:21#40

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