ayuda - extraer algunos lin de un webbrowser a un list...

[N@5h]

hola gente estoy asiendo mi primer programita en vb

y se me esta complicando todo :p

bueno yo nose comohacer esta parte:

tengo un webbrowser, un boton y una list

y quiero q cuando yo entro por ejemplo a una pagina apreto el boton extraer y en el list me saque todos los link que empiesen por ejemplo con http://google.com.ar/ads3

como ago para que me aga eso??

estaria muy agradecido de quien me de una mano.. lo voy a agradecer i poner en comentariso en el programita q me alludo :p

by salduos...

[N@5h]

buscando toda la tarde encontre esto: http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm

pero esta en .net como ago para pasarlo a vb 6??

o alguien me alluda a hacerlo para vb :S

encontre esto en vb 6

pero como ago q a esto :

Código: [Seleccionar]

Private Sub ListarUrl()
Dim i As Integer
   
        List2.Clear
        For i = 0 To WebBrowser1.Document.links.length - 1
            List2.AddItem WebBrowser1.Document.links.Item(i)
        Next
End Sub
le deuna opcion de solamente las urls q empiesan con "http://google.com/images" las copie a la list i no todas ??

saludos...

[LeandroA]

hola tenes que utilizar la funcion "Left" ,"Len"  "UCase" por ejemplo

Código: [Seleccionar]

Private Sub ListarUrl()
    Dim i As Integer
    Dim sURL As String
    Dim LargoCadena As Long
    List2.Clear
   
    LargoCadena = Len("http://google.com/images")
   
    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("http://google.com/images") 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

End Sub
Te explico

la funcion "Left"  te da la izquierda de una cadena

Ej:  Left("hola mundo",4)  = "hola"


la funcion "Len" te da el largo de una cadena   

Ej:  Len("hola mundo") = 6

la funcion "Ucase" combierte la cadena en mayusculas esto sirver para comparar luego si dos cadenas son iguales ya que un url podria contener un letra mayuscula y no te las mostraria como iguales.

Ej: ucase("hola mundo")  = HOLA MUNDO


el tiempo que me tome en escrivir todo esto, espero que utilizes el triple en leer un manual 

Saludos.

[N@5h]

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

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...