6 svar · 309 visningar · startad av voigtann1
Försökt att få igång som här på wF:
besök min hemsida:
http://test.com
när man skriver http:// saken så blir det en länk.. hur får man så att det fungera?
Srunta i Reg.exp då och gör något enklare typ:
Function makeAlink(texten)
textArray = Split(texten, " ")
For i = 0 To Ubound(textArray)
If left(textArray(i),7) ="http://" Then
textArray(i) ="<a href="""& textArray(i) &""">" & textArray(i) &"</a>"
End If
Next
makeAlink = Join(textArray," ")
End Function
Response.Write makeAlink("min sida: [url]http://sidan[/url]")
tyvärr.. jag sa jag ville ha en reg.exp jag kör just nu:
objRegExp.Pattern = "([url]http://[/url]|[url]www.[/url])(.*?)"
mess = objRegExp.Replace(mess,"<a href=""http://$2"" target=""_blank"">$2</a>")
objRegExp.Pattern = "\[email=(")?(.*?)@(.*?)\1\](.*?)\[\/email\]"
mess = objRegExp.Replace(mess,"<a href=""mailto:$2@$3"" target=""_blank"">$4</a>")
objRegExp.Pattern = "\[email\](.+?)@(.+?)\[\/email\]"
mess = objRegExp.Replace(mess,"<a href=""mailto:$1@$2"" target=""_blank"">$1@$2</a>")
objRegExp.Pattern = "\[url=(")?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
mess = objRegExp.Replace(mess,"<a href=""http://$3"" target=""_blank"">$4</a>")
objRegExp.Pattern = "\[url\]([url]http://[/url])?(.*?)\1\[\/url\]"
mess = objRegExp.Replace(mess,"<a href=""http://$2"" target=""_blank"">$2</a>")
jag sa jag ville ha en reg.exp...
Nej, det sa du inte.
Prova detta då:
objRegExp.Pattern = "([url]http://[/url][\w\.\/]*)|(www\.[\w\.]*)"
mess = objRegExp.Replace(mess, "<a href=""$1"">$1</a><a href=""http://$2"">$2</a>")
det fungera.. men om du läser rubriken så står det "problem med reg.exp"
Pallar inte mer med det här.. det fungera.. så... med tanken av att man skriver så i ett ASP forum så betyder det att man har problem med reg.exp och behöver hjälp med det...
punkt slut...