正規表現を使用して、asp <% の文字列内の URL へのリンクを追加するコード
'フィールド内の URL へのリンクを追加します。
FunctionToLink(Str)
Dim RE '正規表現オブジェクト Dim strContent
IsNull(Str) の場合、Str =
Set RE = New RegExp '正規表現オブジェクトを作成します
REあり
.Global = True '検索は文字列全体に適用されます
.IgnoreCase = True '大文字と小文字を区別せずに検索します
strContent = Str
'************************************************ * *****************
'メールアドレスリンクが自動設定されます
'************************************************ * *****************
.Pattern = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************ * *****************
'リンクは自動的に設定されます
'************************************************ * *****************
'======必要に応じてプロトコル名を追加します========
ディムD(3)、I
D(0) = http
D(1) = ftp
D(2) = ニュース
D(3) = mms
'====================================
I = 0 から UBound(D) まで
.パターン = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
次
'************************************************ * *****************
で終わる
RE = 何も設定しない
ToLink = strContent
終了機能
%>