22/07/2009 Development / asp3

Quem já trabalha com expressão regular, meus parabéns!!!!

Segue uma funçãozinha que eu fiz pra poupar os replaces vindo do Banco.

<%
    Dim palavra
    palavra = "<a href='pagina.asp?id=:id:'>:empresa:</a>"
   
    Function MyReplace(ByVal str)
        Set regEx = New RegExp
        regEx.Pattern = ":[^:]+:"
        regEx.IgnoreCase = True
        regEx.Global = True                               
       
        Retorno    = RegEx.Replace(str, "teste")
       
        MyReplace = Retorno
       
        Set regEx = Nothing
    End Function
    
    response.write MyReplace(palavra) 'Modo de usar ;-)
%>