Código para usar expressões regulares para adicionar links a URLs em strings em asp <%
'Adicione o link para a URL no campo.
FunçãoToLink(Str)
Dim RE 'Objeto de expressão regular Dim strContent
Se IsNull(Str) Então Str =
Set RE = New RegExp 'Cria um objeto de expressão regular
Com RE
.Global = True 'A pesquisa se aplica a toda a string
.IgnoreCase = True 'Pesquisa sem distinção entre maiúsculas e minúsculas
strConteúdo = Str
'********************************************** ***************
'Link do endereço de e-mail definido automaticamente
'********************************************** ***************
.Padrão = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'********************************************** ***************
'Link definido automaticamente
'********************************************** ***************
'======Adicione o nome do protocolo conforme necessário========
Dim D(3), eu
D(0) = http
D(1) = FTP
D(2) = notícias
D(3) = mms
'====================================
Para I = 0 para UBound (D)
.Padrão = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Próximo
'********************************************** ***************
Terminar com
Definir RE = Nada
ToLink = strConteúdo
Função final
%>