Foro de elhacker.net

(https?|ftp):\/\/(\S)+.swf

http://foro.elhacker.net/programacion_visual_basic/ayudita_expresion_regular-t308911.0.html 'False
 
http://foro.elhacker.net/programacion_visual_basic/ayudita_expresion_regular-t308911.0.swf 'True

'Sub que extrae las direccións url : Http, Ftp y Https _
 de un archivo utilizando una expresión regular
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Sub Extraer_Url(url_Path As String, Expresion As String)
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim Contenido As String
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = Text2.Text
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 
End Sub
 
Private Sub Command1_Click()
    Dim Expresion As String
    ' Expresión regular
    Expresion = "(ftp|http|https):\/\/(\S)+.swf" & Chr(34)
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Command2_Click()
Text2.Text = WebBrowser1.Document.documentElement.innerHTML
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com/")
    Me.Caption = " Ejemplo que utiliza expresiones regulares" _
                 & " Para extraer los enlaces de un archivo"
 
    Command1.Caption = " Abrir archivo y Extraer "
End Sub
 

'Sub que extrae las direccións url : Http, Ftp y Https _
 de un archivo utilizando una expresión regular
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Sub Extraer_Url(url_Path As String, Expresion As String)
 
 
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
 
 
 
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim fso As Object, F As Object, Contenido As String
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   'Abre el archivo
   Set F = fso.OpenTextFile(url_Path, 1)
 
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = F.ReadAll
 
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
 
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
 
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
 
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 
   'Cierra el archivo
   F.Close
 
 
 
 
End Sub
 
Private Sub Command1_Click()
 
    Dim Expresion As String
 
    ' Expresión regular
    Expresion = "(ftp|http|https):\/\/(\S)+.swf" & Chr(34)
 
    With CommonDialog1
        .ShowOpen
 
        If .FileName = "" Then Exit Sub
 
        'Le pasa el path del archivo a leer y la expresión regular anterior
        Call Extraer_Url(.FileName, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
    End With
 
End Sub
 
Private Sub Form_Load()
    Me.Caption = " Ejemplo que utiliza expresiones regulares" _
                 & " Para extraer los enlaces de un archivo"
 
    Command1.Caption = " Abrir archivo y Extraer "
End Sub
 

Expresion = "(ftp|http|https):\/\/(\S)+.swf" & Chr(34)

Private Sub Command1_Click()
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div class\=\"col_titulo col_superior\"\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub

Expresion = "\<div class\=\" & Chr$(34) & "col_titulo col_superior\" & Chr$(34) & "\>(.+)\<\/div\>"

Expresion = "\<div class\=\""col_titulo col_superior\""\>(.+)\<\/div\>"

sString = "Hola ""amigo"" xD"

Option Explicit
 
Public Function Get_Text(ByVal sText As String) As Collection
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
 
    Set oRegExp = CreateObject("VBScript.RegExp")
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Q = 0 To oMatches.Count - 1
        Set oMatch = oMatches(Q)
        cTemp.Add oMatch.SubMatches(0)
    Next Q
 
    Set Get_Text = cTemp
End Function
 
 
Private Sub Form_Load()
Dim vItem                   As Variant
Dim S                       As String
    S = "<div class=""col_titulo col_superior"" >¡¡Que vivan</div>" & vbNewLine & _
        "<div class=""col_titulo col_superior"" >las</div>" & vbNewLine & _
        "<div class=""col_titulo col_superior"" >Ranas! :D</div>"
 
    For Each vItem In Get_Text(S)
        Debug.Print vItem
    Next vItem
End Sub

¡¡Que vivan
las
Ranas! :D

Option Explicit
 
Public Function Get_Text(ByVal sText As String) As Collection
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
 
    Set oRegExp = CreateObject("VBScript.RegExp")
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Q = 0 To oMatches.Count - 1
        Set oMatch = oMatches(Q)
        cTemp.Add oMatch.SubMatches(0)
    Next Q
 
    Set Get_Text = cTemp
End Function
'Sub que extrae las direccións url : Http, Ftp y Https _
 de un archivo utilizando una expresión regular
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Sub Extraer_Url(url_Path As String, Expresion As String)
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim Contenido As String
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = Text2.Text
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 
End Sub
 
Private Sub Command1_Click()
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div class\=\""col_titulo col_superior\""\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Command2_Click()
Text2.Text = WebBrowser1.Document.documentElement.innerHTML
End Sub
 
Private Sub Command3_Click()
    Dim vItem                   As Variant
Dim S                       As String
    S = Text1.Text
 
    For Each vItem In Get_Text(S)
        Text3.Text = vItem
    Next vItem
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.rinconjuegos.com/just-jhon/")
    Me.Caption = " Ejemplo que utiliza expresiones regulares" _
                 & " Para extraer los enlaces de un archivo"
 
    Command1.Caption = " Abrir archivo y Extraer "
End Sub
 

Option Explicit
 
Public Function Get_Text(ByVal sText As String) As String
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
 
    Set oRegExp = CreateObject("VBScript.RegExp")
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
    Set oMatch = oMatches(0)
 
    Get_Text = oMatch.SubMatches(0)
End Function
 
Private Sub Form_Load()
Dim S                       As String
    S = "<div class=""col_titulo col_superior"" > ¡Vivan las ranas!   </div>"
 
    MsgBox Get_Text(S)
End Sub

Dim S                       As String
    S = Text1.Text
 
    MsgBox Get_Text(S)

   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 

   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.SubMatches(0), Chr(34), vbNullString)
   Next
 

sPatern = "\<div align\=""justify""\>(.+)\<\/div\>"

Sub Extraer_Url(url_Path As String, Expresion As String)
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim Contenido As String
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = Text2.Text
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 
End Sub
 
Private Sub Command1_Click()
    Text2.Text = WebBrowser1.Document.documentElement.innerHTML
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div align\=\""justify""\\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com")
End Sub
 

sPatern = "\<div align\=""justify""\>(.+)\<\/div\>"

Option Explicit
 
Public Function Get_Text(ByVal sText As String, ByVal sPatern As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
 
    Set oRegExp = CreateObject("VBScript.RegExp") 'Evitamos la referencia
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Q = 0 To oMatches.Count - 1
        Set oMatch = oMatches(Q)
        cTemp.Add oMatch.SubMatches(0)
    Next Q
 
    Set Get_Text = cTemp
End Function
 
Private Sub Form_Load()
Dim vItem                   As Variant
Dim S                       As String
    S = "<div align=""justify"">¡¡Que vivan</div>" & vbNewLine & _
        "<div align=""justify"">las</div>" & vbNewLine & _
        "<div align=""justify"">Ranas! :D</div>"
 
    'La RegExp bien hecha
    For Each vItem In Get_Text(S, "\<div align\=""justify""\>(.+)\<\/div\>")
        MsgBox vItem
    Next vItem
End Sub

Option Explicit
 
Public Function Get_Text(ByVal sText As String, ByVal sPatern As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
 
    Set oRegExp = CreateObject("VBScript.RegExp") 'Evitamos la referencia
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Q = 0 To oMatches.Count - 1
        Set oMatch = oMatches(Q)
        cTemp.Add oMatch.SubMatches(0)
    Next Q
 
    Set Get_Text = cTemp
End Function
Private Sub Command1_Click()
    Text2.Text = WebBrowser1.Document.documentElement.innerHTML
    Dim vItem                   As Variant
Dim S                       As String
    S = Text2.Text
    For Each vItem In Get_Text(S, "\<div align\=""justify""\>(.+)\<\/div\>")
        MsgBox vItem
    Next vItem
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com/")
End Sub