Foros del Web - Ver Mensaje Individual

Bravenap · #1 (**permalink**) 01/09/2005, 04:29

Funciona lo que tengo hecho, pero me gustaría saber si lo puedo abreviar:

Código:

            Dim expReg As Regex
            Dim grupo As Match
            ..........
            grupo = expReg.Match(cadena, "\[MAILTO:([\s*\w*]([^\]]*))\]")
            cadena = expReg.Replace(cadena, "\[MAILTO:([\s*\w*]([^\]]*))\]", "<a href='mailto:" & grupo.Groups(1).Value & "'>")
            ...........

Gracias y un saludo.