본문에서 사이트주소(URL)만 링크시키기.. [정규식]

Function ereg_replace(ptrn, replStr, strng)
    Dim regEx    
    Set regEx = New RegExp
    regEx.Pattern = ptrn
    regEx.IgnoreCase = True
    regEx.Global = True
    ereg_replace = regEx.Replace(strng, replStr)
End Function

content = ereg_replace("((http|https|ftp|telnet|news):\/\/[a-z0-9-]+\.[][a-zA-Z0-9:&#@=_~%;\?\/\.\+-
]+)", "<a href="$1" target="_blank">$1</a>", content)

이렇게 하면 본문(content) 중에서 http, https, ftp, telnet, news 등으로 되어있는 주소에 자동으로 링크
를 만들어 줍니다.

php 의 ereg_replace 함수가 있었으면 하는 간절한 바람에 ^^; MSDN 과 여러곳 참조해서 만들었습니다.

출처 : http://www.devpia.com/