Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: N@5h en Octubre 18, 2009, 06:14:08 pm
-
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...
-
buscando toda la tarde encontre esto: http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm
(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 :
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...
-
hola tenes que utilizar la funcion "Left" ,"Len" "UCase" por ejemplo
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.
-
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
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 (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 :D
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...