Hej,

Jag hämtar en text från en databas.

Om det finns en www-adress i texten så vill jag hämta den och skriva ut den som en länk (<a href ..osv) med vad jag förmodar en replace.

Men hur hämtar jag www.adressen, jag vet inte vad den heter utan bara att det börjar på www.

mvh
Tomas

Jag är dålig på regex, men jag tycker att du skall börja där.

Så jag ska använda mig av regex för att hitta att det är en www-adress?

Hur fixar man det då?

/Tomas

Jag har hittat ett exempel, vid första anblicken så vekar den vara vad du ville ha:

Function LinkURLs(tempTxt)
If InStr(tempTxt, "<A") < 1 then
   Dim regEx
   Set regEx = New RegExp
   regEx.Global = True
   regEx.IgnoreCase = True
   temptxt = replace(temptxt, "'", "''")
   'Hyperlink Email Addresses
   regEx.Pattern = "([_.a-z0-9-]+@[_.a-z0-9-]+\.[a-z]{2,3})"
   tempTxt = regEx.Replace(tempTxt, "$1")
   'Hyperlink URL's
   regEx.Pattern = "((www\.|(http|https|ftp|news|file)+\:\/\/)[_.a-z0-9-]+\.[a-z0-9\/_:;@=.+?,##%&~-]*
[^.|\'|\# |!|\(|?|,| |>|<|;|\)])"
   tempTxt = regEx.Replace(tempTxt, "$1")
   'Make <a href="www = <a href="http://www
   tempTxt = Replace(tempTxt, "href=""www", "href=""http://www")
   LinkURLs = tempTxt
else
	LinkURLs = tempTxt
end if
End Function
 
'call it like this
response.write linkurls(bodytext)

Tack, jag ska testa detta

det funkar precis som jag hade tänkt.

/Tomas