Replace igen

 

set objRxp=new RegExp 
objRxp.Global=True 
objRxp.IgnoreCase=True 
objRxp.Pattern="\[länka\](.+?)\[/länka\]" 
for each match in objRxp.Execute(strText) 
strText=replace(strText,match.value,"<a href=""sida.asp?vem=" & server.urlencode(match.submatches(0)) & """>" & match.submatches(0) & "</a>") 
next

kan nån se vad som e fel på ovanstående kod, jag vill att [länka]Jag[/länka] ska bli <a href="sida.asp?user=jag">Jag</A> :q
Tack på förhand!

tja!

Vet ej om du löst problemet men emission reder ut en sådan funktion här:
http://cgi.webforum.nu/wf/Forum11/HTML/003106.html

mvh Jörgen HP

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

[Redigerat av jorgen den 31 jul 2001]

Koden är det inget fel på. Hur använder du den?

När jag skriver ut: [länka]Pelle[/länka] så blir det inte utbytt...:(

Dum fråga kanske men lägger du din text i variabeln strText? Ifall du inte gjort det är det inte så konstigt att det inte fungerar.

------------------
MVH
Harback

[Redigerat av Harback den 01 aug 2001]

Jorå den ligger där...

Visa koden.

<%

Dim Presentation

Presentation = AK("pres") 
Presentation = Server.HTMLEncode(Presentation)
Presentation = Replace(Presentation, vbCrLf, "<br>") 
Presentation = Replace(Presentation, "[b]", "<b>") 
Presentation = Replace(Presentation, "[/b]", "</b>") 
Presentation = Replace(Presentation, "[Stor]", "<big>") 
Presentation = Replace(Presentation, "[/Stor]", "</big>") 

set objRxp=new RegExp
objRxp.Global=True
objRxp.IgnoreCase=True
objRxp.Pattern="\[länka](.+?)\[/länka]"
for each match in objRxp.Execute(presentation)
presentation=replace(presentation,match.value,"<a href=""user.asp?user=" & server.urlencode(match.submatches(0)) & """>" & match.submatches(0) & "</a>")
next
%>

Eftersom du kör en HTMLEncode på strängen så kommer "ä" i "Länka" att bytas ut till ä, och då matchar inte regexp:en. Antingen byter du till något annat än [Länka], eller så byter du ä i matchningen till ä