el problema que me surge ahora es que intento sacar la url desde un texto que tengo en el text2.text,pero no consigo sacarla,aqui va el source:
'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
y aqui el original que lo hace através de un common dialog y archivos (este funciona perfectamente)
'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
pero yo necesito arreglar el primer source para sacarlo directamente del webbrowser? que estoy haciendo mal? gracias
Autor
En línea
