problem med replace

ampy · 2003-03-21T21:26:58.000Z

Har denna kod: ") txt = Replace(txt, ":(", " ") txt = Replace(txt, ":r", " ") txt = Replace(txt, ":D", " ") txt = Replace(txt, ";)", " ") txt = Replace(txt, ":P", " ") txt = Replace(txt, ":h", " ") txt = Replace(txt, ":@", " ") txt = Replace(txt, ":o", " ") txt = Replace(txt, ":q", " ") txt = Replace(txt, ":birp", " ") txt = Replace(txt, ":bire", " ") txt = Replace(txt, "=P", " ") txt = Replace(txt, ":x", " ") txt = Replace(txt, ":s", " ") txt = Replace(txt, ":bak", "<img…

ASP

10 svar · 331 visningar · startad av ampy 21 mars 2003

ampyMedlem sedan feb. 20011 498 inlägg

Trådstart21 mars 2003 21:26#1

Har denna kod:

<%
Function Free(txt)
	txt = Replace(txt, ":)", "<img src=""smileys/smile.gif"">")
	txt = Replace(txt, ":(", "<img src=""smileys/frown.gif"">")
	txt = Replace(txt, ":r", "<img src=""smileys/shame.gif"">")
	txt = Replace(txt, ":D", "<img src=""smileys/biggrin.gif"">")
	txt = Replace(txt, ";)", "<img src=""smileys/wink.gif"">")
	txt = Replace(txt, ":P", "<img src=""smileys/tongue.gif"">")
	txt = Replace(txt, ":h", "<img src=""smileys/cool.gif"">")
	txt = Replace(txt, ":@", "<img src=""smileys/angry.gif"">")
	txt = Replace(txt, ":o", "<img src=""smileys/oh.gif"">")
	txt = Replace(txt, ":q", "<img src=""smileys/quest.gif"">")
	txt = Replace(txt, ":birp", "<img src=""smileys/beergrin.gif"">")
	txt = Replace(txt, ":bire", "<img src=""smileys/bire.gif"">")
	txt = Replace(txt, "=P", "<img src=""smileys/blah.gif"">")
	txt = Replace(txt, ":x", "<img src=""smileys/dead.gif"">")
	txt = Replace(txt, ":s", "<img src=""smileys/devil.gif"">")
	txt = Replace(txt, ":bak", "<img src=""smileys/devilgrin.gif"">")
	txt = Replace(txt, ":f", "<img src=""smileys/flirt.gif"">")
	txt = Replace(txt, ":/", "<img src=""smileys/hrmpf.gif"">")
	txt = Replace(txt, ":i", "<img src=""smileys/idea.gif"">")
	txt = Replace(txt, ":stud", "<img src=""smileys/stud.gif"">")

	free = txt
end function

text = ":):(:r:D;):P:h:@:o:q:birp:bire=P:x:s:bak:f:/:i:stud"

response.write free(text)
%>

När jag kör koden blir det så här:
http://www.ampy.net/smiles.gif

Den sista smileyn ( :stud ) kommer inte med. Jag tror det beror på att det finns en annan smiley som har beteckningen och denna och den sista börjar på samma två första tecken:

Vad kan man göra åt detta?

SebbeMedlem sedan jan. 20032 285 inlägg

21 mars 2003 21:34#2

Byta namn på någon av dem?

ampyMedlem sedan feb. 20011 498 inlägg

21 mars 2003 21:35#3

Kommer inte på något annat namn.

Skulle vara kul och veta hur man kunde lösa det också.

SebbeMedlem sedan jan. 20032 285 inlägg

21 mars 2003 21:36#4

Det kanske funkar med att byta från ":s" till ":S"?

ampyMedlem sedan feb. 20011 498 inlägg

21 mars 2003 21:37#5

Det fungerade.

Men skulle ändå gärna vilja veta hur man kan lösa det så att båda kan börja på

SebbeMedlem sedan jan. 20032 285 inlägg

21 mars 2003 21:38#6

RegExp?

ampyMedlem sedan feb. 20011 498 inlägg

21 mars 2003 21:39#7

Kan inte det.

JosefMedlem sedan mars 20023 561 inlägg

21 mars 2003 21:39#8

Du får väl kolla vilka tecken som står efter/innan med ett if-block. Om det är någoning annat än "tud" ska det vara den ena, annars ska det vara den andra.

DenkanMedlem sedan juni 2002256 inlägg

21 mars 2003 21:43#9

Det är väl bara att ersätta före ...
alltså finns det inga kvar när man ska ersätta
(för att lösa det relativt enkelt)

[KOD]
<%
Function Free(txt)
txt = Replace(txt, ":stud", "<img src=""smileys/stud.gif"">")
txt = Replace(txt, ":)", "<img src=""smileys/smile.gif"">")
txt = Replace(txt, ":(", "<img src=""smileys/frown.gif"">")
txt = Replace(txt, ":r", "<img src=""smileys/shame.gif"">")
txt = Replace(txt, ":D", "<img src=""smileys/biggrin.gif"">")
txt = Replace(txt, ";)", "<img src=""smileys/wink.gif"">")
txt = Replace(txt, ":P", "<img src=""smileys/tongue.gif"">")
txt = Replace(txt, ":h", "<img src=""smileys/cool.gif"">")
txt = Replace(txt, ":@", "<img src=""smileys/angry.gif"">")
txt = Replace(txt, ":o", "<img src=""smileys/oh.gif"">")
txt = Replace(txt, ":q", "<img src=""smileys/quest.gif"">")
txt = Replace(txt, ":birp", "<img src=""smileys/beergrin.gif"">")
txt = Replace(txt, ":bire", "<img src=""smileys/bire.gif"">")
txt = Replace(txt, "=P", "<img src=""smileys/blah.gif"">")
txt = Replace(txt, ":x", "<img src=""smileys/dead.gif"">")
txt = Replace(txt, ":s", "<img src=""smileys/devil.gif"">")
txt = Replace(txt, ":f", "<img src=""smileys/flirt.gif"">")
txt = Replace(txt, ":/", "<img src=""smileys/hrmpf.gif"">")
txt = Replace(txt, ":i", "<img src=""smileys/idea.gif"">")
txt = Replace(txt, ":bak", "<img src=""smileys/devilgrin.gif"">")

free = txt

end function

text = ":):(:r:D;):P:h:@:o:q:birp:bire=P:x:s:bak:f:/:i:stud"

response.write free(text)
%>

ampyMedlem sedan feb. 20011 498 inlägg

21 mars 2003 21:48#10

Denkan: Tänk att jag inte kom på det själv.

solbulleMedlem sedan mars 20015 287 inlägg

21 mars 2003 23:57#11

Denkan: Klockrent.