Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/12/2005, 14:01
Avatar de ldp
ldp
 
Fecha de Ingreso: marzo-2005
Ubicación: Por fin, en mi nueva casa!
Mensajes: 617
Antigüedad: 19 años, 11 meses
Puntos: 3
Encontré esto en las FAQs que es muy parecido a lo que yo quiero hacer, pero no sé cómo usarlo, ni donde meterlo:

Código:
Dim r As Regex
Dim s As String
Dim m As Match
'
' para extraer links:
s = "<p>Esto es una prueba <a href='http://www.elguille.info/'     " & vbCrLf & ">el Guille</a> Más cosas." & vbCrLf & _
    "Esto es una prueba <a href='http://www.elguille.info/NET/indice.asp'   >La sección .NET en el Guille</a> Más cosas.</p>"

r = New Regex("<a href=\s*([^\s]*)\s*>")

Dim mc As MatchCollection = r.Matches(s)

If mc.Count > 0 Then
    Console.WriteLine("¡BINGO! hay {0} coincidencias", mc.Count)
    For Each m In mc
        Console.WriteLine("0= |{0}|", m.Result("$0"))
        Console.WriteLine("1= |{0}|", m.Result("$1"))
    Next
Else
    Console.WriteLine("¡Sin coincidencias!")
End If

Con m.Result("$1") conseguimos el link.
En m.Result("$0") tendremos todo, desde <a href hasta el > del final.
P.D.: tengan un poco de paciencia conmigo, no sé lo que digo