Mostrar Mensajes
1
Visual Basic 6 / Re:ayuda - extraer algunos lin de un webbrowser a un list...
« en: Octubre 20, 2009, 11:15:08 pm »
gracias coelga.. si leyendo leo mucho pero poco entiendo nose jeje...
la cosa es q quiero aser un curso en algun instituto pero como vivo en un pueblo no hay me dijieron q el año q vien empiesa uno..
asi q lo voy a aser...
gracias por darme tu alluda i mañana voy a leer sobre esos funciones...
lo q estube viendo es por ejemplo
cambiar hay donde dise el url q quiero q aparescan nomas en el list2: en ves de poner http://google.com/images puedo poner text2.text
para poner un text 2, hasi yo entrando a una pagina dps relleno eso i pongo extraer.. me sale nomas los link q quisiera sin tener q ir a modificar el codigo verdad??
pero algo ise mal pq no me funciono.. :p
o estoy equibocado i entendi mal el codigo??
desde ya gracias saludos..
--------------------------------------- despues derenegar :p --------------
bueno colega desde ya gracias denuevo..
ya lo estoy asiendo andar...
prestando atencion a varios codigos q encontre i siempre gracias al tuyo y tu explicacion
no lo entedi pero lo hice andar
mañana me voy a poner a interpretar todo bien...
ahora voy atener q ver como aser para q ande cuando apreto comand uno pero bueno no creo q se me complique mucho
y en unos dias subo el programa i el codigo.. saludos...
la cosa es q quiero aser un curso en algun instituto pero como vivo en un pueblo no hay me dijieron q el año q vien empiesa uno..
asi q lo voy a aser...
gracias por darme tu alluda i mañana voy a leer sobre esos funciones...
lo q estube viendo es por ejemplo
Código: [Seleccionar]
Private Sub ListarUrl()
Dim i As Integer
Dim sURL As String
Dim LargoCadena As Long
List2.Clear
LargoCadena = Len("text2.text")
For i = 0 To WebBrowser1.Document.links.length - 1
sURL = WebBrowser1.Document.links.Item(i)
If Len(sURL) >= LargoCadena Then 'compruebo si el largo de la cadena es mayor/igual a la que busco
If UCase(Left(sURL, LargoCadena)) = UCase("text2.text") Then 'comparo si la izquierda de la url es igual a la que busco
List2.AddItem sURL 'agrego la url
End If
End If
Next
cambiar hay donde dise el url q quiero q aparescan nomas en el list2: en ves de poner http://google.com/images puedo poner text2.text
para poner un text 2, hasi yo entrando a una pagina dps relleno eso i pongo extraer.. me sale nomas los link q quisiera sin tener q ir a modificar el codigo verdad??
pero algo ise mal pq no me funciono.. :p
o estoy equibocado i entendi mal el codigo??
desde ya gracias saludos..
--------------------------------------- despues derenegar :p --------------
bueno colega desde ya gracias denuevo..
ya lo estoy asiendo andar...
prestando atencion a varios codigos q encontre i siempre gracias al tuyo y tu explicacion
no lo entedi pero lo hice andar
mañana me voy a poner a interpretar todo bien...
ahora voy atener q ver como aser para q ande cuando apreto comand uno pero bueno no creo q se me complique mucho
y en unos dias subo el programa i el codigo.. saludos...