Gör om till länk

9 svar · 480 visningar · startad av andreas_lindh 8 juni 2002

andreas_lindhMedlem sedan jan. 20011 140 inlägg

Frågan8 juni 2002 14:03#1

Hur ska jag göra för att dom här två ska fungera tillsammans?

Den här gör [uurl=länk]länk[/uurl] till länkar

	objRegExp.Pattern = "\[url=(.*?)\]((.|\s)*?)\[\/url\]"
	strText = objRegExp.Replace(strText,"<A HREF=""$1"" TARGET=""_blank"">$2</A>")
	
	objRegExp.Pattern = "\[mail=(.*?)\]((.|\s)*?)\[\/mail\]"
	strText = objRegExp.Replace(strText,"<A HREF=""mailto:$1"">$2</A>")

Den här gör så att altt som börjar på http och www till länkar.

	objRegExp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
	strText = objRegExp.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
	
	objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")
	
	objRegExp.Pattern = "(www\.(\S)(\S+))"
	strText = objRegExp.Replace(strText, "<a href=""http://$1"" target=""_blank"">$1</a>")
	strText = Replace(strText, mDelimit, "")

Använder jag bara en av dom fungerar det men jag skulle vilja använda båda.
Har provat med forumkoden som finns här på wf men den fungerar inte på mitt webhotell

LAMPMedlem sedan mars 2002777 inlägg

8 juni 2002 15:40#2

Hej, här är en funktion signerad emission som du kan snegla lite på ;)

Public Function ParseURLs(TextToParse,LinkTarget) 
dim f_strText 
f_strText=TextToParse 
m_objRxp.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet:///[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4") 
m_objRxp.Pattern="(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
m_objRxp.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"" class=""link"">$2</a>") 
ParseURLs=f_strText 
End Function

andreas_lindhMedlem sedan jan. 20011 140 inlägg

9 juni 2002 08:07#3

Får inte den funktionen att fungera ihop med den andra

voigtann1Medlem sedan juni 20019 519 inlägg

9 juni 2002 11:45#4

http://www.webforum.nu/showthread.php?s=&threadid=42301

är det så du vill ha?

andreas_lindhMedlem sedan jan. 20011 140 inlägg

9 juni 2002 12:22#5

Den funktionen fungerar inte riktigt. Får felmeddelande

Körningsfel i Microsoft VBScript (0x800A1399)
Syntaxfel i reguljärt uttryck
/tik2003/andreas.asp, line 16

Rad 16 är
text = objRegExp.Replace(text,"<a href=http://$3 target=""_blank"">$4</a>")

@ndersMedlem sedan juni 200032 967 inlägg

9 juni 2002 12:55#6

Se till att du har den senaste scriptmotorn. Den finns att hämta på http://msdn.microsoft.com/scripting .

mvh,

andreas_lindhMedlem sedan jan. 20011 140 inlägg

9 juni 2002 13:11#7

Jag laddade ner den senaste men det fungerar fortfarande inte

voigtann1Medlem sedan juni 20019 519 inlägg

9 juni 2002 13:30#8

min kod fungera fel fritt... men jag har inte gjort så att mailto: ftp:// och sånt fungera.. ska kanske fixa det :) men det är inget fel på min kod..

"strText" min heter "text" så där är felet grabben :)

andreas_lindhMedlem sedan jan. 20011 140 inlägg

9 juni 2002 13:40#9

Jag har inte gjort några ändringar i din kod. Har använt den precis som den är

voigtann1Medlem sedan juni 20019 519 inlägg

9 juni 2002 17:13#10

men eftersom din kod kör "strText" och min kör "text" så ska din bli:

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

Det är därför du får error.. för du har inget som heter "text" utan din heter "strtext"

förstå du?