8 svar · 248 visningar · startad av Crimz0n
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 ä