如何使用ASP從文本中提取網址？

Question

我有一個文本文件，其中包含一些文本。文本中的某處可能有一個以http：//或https：//開頭的完整URL。

如何將URL轉換爲URL標記？

示例文本：計算器是偉大的，所以請訪問http：// www.stackoverflow.com

應顯示爲：計算器是偉大的，所以請訪問http://www.stackoverflow.com

感謝

Answer 1

我一直在使用這個腳本多年，它的效果很好。它使用RegEx在字符串中查找URL。

function create_links(strText) 
    strText = " " & strText 
    strText = ereg_replace(strText, "(^|[\n ])([\w]+?://[^ ,""\s<]*)", "$1<a href=""$2"" ref=""nofollow"">$2</a>") 
    strText = ereg_replace(strText, "(^|[\n ])((www|ftp)\.[^ ,""\s<]*)", "$1<a target=""_blank"" ref=""nofollow"" href=""http://$2"">$2</a>") 
    strText = ereg_replace(strText, "(^|[\n ])([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)", "$1<a href=""mailto:$2@$3"">$2@$3</a>") 
    strText = right(strText, len(strText)-1) 
    strText = Replace(strText,"." & chr(34) & ">",chr(34) & ">") 
    strText = Replace(strText,".)" & chr(34) & ">",chr(34) & ">") 
    create_links = strText 
end function 

function ereg_replace(strOriginalString, strPattern, strReplacement) 
    dim objRegExp : set objRegExp = new RegExp 
    objRegExp.Pattern = strPattern 
    objRegExp.IgnoreCase = True 
    objRegExp.Global = True 
    ereg_replace = objRegExp.replace(strOriginalString, strReplacement) 
    set objRegExp = nothing 
end function 

我已經做了些改動，但原來是在這裏... http://www.ipaste.org/Ycc

Answer 2

1. 在文本中查找HTTP：//或HTTPS：//的位置/入口。請參閱「InStr」功能。
2. 查找URL的結束位置，它可能是SPACE字符或其他字符，如「;」。 （空格字符對您提供的樣本無效）。
3. 一旦你得到的URL，把它放在HTML標籤:)你可以通過使用Replace，或通過串聯字符串。