skapa länkar med regexp

8 svar · 604 visningar · startad av Thompa__85 10 juni 2004

Thompa__85Medlem sedan aug. 2002600 inlägg

Frågan10 juni 2004 12:15#1

Hejsan!
Denna kod har jag:

strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url](\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<a href='$1' target='main'>$1</a>")

Men, när en användare skriver in sin länk tex: www.webforum.nu.. så öppnas den i samma fönster, istället för i target='main' som det står i koden.. varför?

Mvh Thomsson

PalleMedlem sedan apr. 20003 174 inlägg

10 juni 2004 12:38#2

Din kod här ovan ska konvertera länkar med http:// i början,
den bör inte reagera på länkar med www i början.

Har du fler regexp-funktioner på sidan?

Thompa__85Medlem sedan aug. 2002600 inlägg

10 juni 2004 12:43#3

Palle skrev:

Din kod här ovan ska konvertera länkar med http:// i början,
den bör inte reagera på länkar med www i början.

Har du fler regexp-funktioner på sidan?

Okej, nej det har jag inte. Men ska testa med denna funktion nu tänkte jag:

<%
Function Free(text)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
text = Server.HTMLEncode(text)

objRegExp.Pattern = "\[.url=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
text = objRegExp.Replace(text,"<a href=http://$3 target=""_blank"">$4</a>")
%>

Vad tros om den? :)

Thompa__85Medlem sedan aug. 2002600 inlägg

10 juni 2004 12:49#4

Så här har jag lagt upp den koden nu:

Function byt(strText) 
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[.url=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
strText = objRegExp.Replace(strText,"<a href=http://$3 target=""main"">$4</a>")

Men, den skriver ut [url ]www.adress.se[/url ] utan att länka. why?

WebbisNetMedlem sedan feb. 20032 027 inlägg

10 juni 2004 13:04#5

Denna länkar och öppnar i nytt fönster

objRegExp.Pattern = "&lt;link&gt;(.*?)&lt;/link&gt;"
sText = objRegExp.Replace(sText,"<a class=""chattText"" href=""$1"" target=""_blank"">$1</a>")

PalleMedlem sedan apr. 20003 174 inlägg

10 juni 2004 13:04#6

why?

Du har ju angett att länkarna ska vara enligt detta syntax: länktext[/url],

PalleMedlem sedan apr. 20003 174 inlägg

10 juni 2004 13:20#7

Några exempel:

Reagerar på.. www.webforum.nu

[red]objRegExp.Pattern = "(www\.(\S)(\S+))"
   text = objRegExp.Replace(text, "<a href=""$1"" target=""_blank"">")[/red]

Reagerar på.. http://www.webforum.nu

[red]objRegExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
   text = objRegExp.Replace(text, "<a href=""$1"" target=""_blank"">")[/red]

Reagerar på.. [url]http://www.webforum.nu[/url]

[red]objRegExp.Pattern = "\[url\](.*?)\[\/url\]"
text = objRegExp.Replace(text, "<a href=""$1"" target=""_blank"">")[/red]

Reagerar på.. [url=http://www.webforum.nu]Länktext[/url]

[red]objRegExp.Pattern = "\[url=(.*?)\](.*?)\[\/url\]"
   text = objRegExp.Replace(text, "<a href=""$1"" target=""_blank"">")[/red]

ptr_lksMedlem sedan juni 2005584 inlägg

19 dec. 2005 12:32#8

hur skulle koden se ut om jag vill att den skall reagera på både

emissionMedlem sedan dec. 19996 721 inlägg

19 dec. 2005 13:56#9

http://www.webforum.nu/showthread.php?t=132042