Hola: Debido a que cada pagina web ha sido construida de una forma diferente, la obtencion de datos de cada una tambien lo es. No es posible hacer una aplicacion que sirva para todas. La idea general es determinar en que etiqueta html concreta esta la informacion que nos interesa y segun la forma en que haya sido construida utilizar alguna forma de capturarla. ¿Que pagina y que informacion te interesan?. Saludos.
http://www.intermusika.org sacar la información así mismo como le hiciste con tu aplicasion para bajar musica y una pregunta mas no das clases particulares quisiera aprender mas
Hola: He intentado iniciar una aplicación sobre esa pagina y parece que emite algún troyano. Asi que a otra cosa. No doy clases particulares. Comparto en YouTube y aquí lo que yo aprendo. Saludos.
Hola, soy Jose... He visto en https://www.youtube.com/watch?v=dwXXDhnV6T8&t=314s tu video Obtener (+ HTML) Cotizaciones de Divisas con Visual Basic .NET”, allí explicas de manera muy clara, como descargar datos de una página web desde visual basic y realmente es espectacular…
Manejo visual basic 6.0 y estoy comenzando con visual basic 2015, y me gustaría que me ayudaras en lo posible en ambas versiones de visual, pero si te es tedioso con ambas, me serviría mejor en visual Basic 2015…
La cuestión es la siguiente:
¿Cómo puedo descargar de las siguientes páginas web que son de la lotería de Florida, las listas completas de los resultados de los sorteos?
En esta página está el historial de todos los sorteos con los números ganadores del PoweBall, pero solo colocan los números ganadores con su respectiva fecha, no están los premios que se repartieron en cada uno de los días en que se realizaron los sorteos. La cosa es ¿Cómo puedo descargar toda esa lista completa con todos los números ganadores para guardarla en visual basic en una base de datos?? La página es la siguiente: http://flalottery.com/exptkt/pb.htm
y… en esta otra página de la lotería de florida, aparecen los números ganadores del PowerBall con su fecha y sus respectivos premios. ¿Cómo puedo descargar la fecha, los números ganadores, los montos de los premios, etc.? Y la página es la siguiente:
Imports System.Net Imports System.IO Public Class Form2 Public Sub OBTENER_DATOS() Try Dim CLIENTE As New WebClient Dim PAGINA As Stream = CLIENTE.OpenRead("http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias") Dim LECTOR As New StreamReader(PAGINA) Dim MIHTML As String = LECTOR.ReadToEnd Dim RUC As String = MIHTML.Remove(0, MIHTML.IndexOf("list-group-item-text") + 113) 'Dim RUC As String = MIHTML.Remove(0, MIHTML.IndexOf("list-group-item-text") + 5000) RUC = RUC.Substring(0, RUC.IndexOf("<")) TextBoxRuc.Text = RUC Dim TIPO As String = MIHTML.Remove(0, MIHTML.IndexOf("bg") + 4) TIPO = TIPO.Substring(0, TIPO.IndexOf("<")) TextBoxTipo.Text = TIPO PAGINA.Close() Catch ex As Exception MsgBox(ex.Message) End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click OBTENER_DATOS() 'Consulta() End Sub
Private Sub Consulta() 'Dim urlSUNAT As String = String.Format("http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias") Dim UnaLinea As String Dim WDHtml As New StreamReader(WebBrowser1.DocumentStream) While WDHtml.Peek > -1 UnaLinea = WDHtml.ReadLine() If UnaLinea.IndexOf("list-group-item-heading") > -1 Then MessageBox.Show("La información fue obtenida satisfactoriamente") End If TextBoxDireccion.Text = UnaLinea End While
Excelente Blog , no se como no lo encontre antes ... tienes unos excelentes tutos (y)
ResponderEliminarHola: Muchas gracias. Saludos.
EliminarExcelente Blog
EliminarHola: Muchas gracias. Saludos.
Eliminaroye me podrias ayudar explicandome mejor como obtenero datos de una pgina web mas especifo te lo agradeceria
Eliminaroye me podrias ayudar explicandome mejor como obtenero datos de una pgina web mas especifo te lo agradeceria
EliminarHola: Debido a que cada pagina web ha sido construida de una forma diferente, la obtencion de datos de cada una tambien lo es.
EliminarNo es posible hacer una aplicacion que sirva para todas.
La idea general es determinar en que etiqueta html concreta esta la informacion que nos interesa y segun la forma en que haya sido construida utilizar alguna forma de capturarla.
¿Que pagina y que informacion te interesan?.
Saludos.
http://www.intermusika.org sacar la información así mismo como le hiciste con tu aplicasion para bajar musica y una pregunta mas no das clases particulares quisiera aprender mas
EliminarHola: He intentado iniciar una aplicación sobre esa pagina y parece que emite algún troyano. Asi que a otra cosa.
EliminarNo doy clases particulares. Comparto en YouTube y aquí lo que yo aprendo.
Saludos.
Hola, EGODISTONICO necesito ayuda pq no me encuentra lo que yo quiero dentro de una linea html para sacar dicho dato.
ResponderEliminarComo te puedo enviar las lineas de codigo para que me eches una mano, gracias.
Hola: Puedes enviarme un mail. Mi direccion es vb.tutoriales.abc@gmail.com. Mejor si ademas me indicas la url a la que pertenece el html. Saludos.
EliminarHola, te acabo de enviar un email, espero que me eches un cable, gracias.
EliminarHola, soy Jose...
ResponderEliminarHe visto en https://www.youtube.com/watch?v=dwXXDhnV6T8&t=314s tu video Obtener (+ HTML) Cotizaciones de Divisas con Visual Basic .NET”, allí explicas de manera muy clara, como descargar datos de una página web desde visual basic y realmente es espectacular…
Manejo visual basic 6.0 y estoy comenzando con visual basic 2015, y me gustaría que me ayudaras en lo posible en ambas versiones de visual, pero si te es tedioso con ambas, me serviría mejor en visual Basic 2015…
La cuestión es la siguiente:
¿Cómo puedo descargar de las siguientes páginas web que son de la lotería de Florida, las listas completas de los resultados de los sorteos?
En esta página está el historial de todos los sorteos con los números ganadores del PoweBall, pero solo colocan los números ganadores con su respectiva fecha, no están los premios que se repartieron en cada uno de los días en que se realizaron los sorteos.
La cosa es ¿Cómo puedo descargar toda esa lista completa con todos los números ganadores para guardarla en visual basic en una base de datos??
La página es la siguiente:
http://flalottery.com/exptkt/pb.htm
y… en esta otra página de la lotería de florida, aparecen los números ganadores del PowerBall con su fecha y sus respectivos premios. ¿Cómo puedo descargar la fecha, los números ganadores, los montos de los premios, etc.?
Y la página es la siguiente:
http://flalottery.com/site/winningNumberSearch?searchTypeIn=date&gameNameIn=POWERBALL&singleDateIn=10%2F18%2F2017&fromDateIn=&toDateIn=&n1In=&n2In=&n3In=&n4In=&n5In=&pbIn=&submitForm=Submit
Si me puedes ayudar dame tu correo electrónico para contactarte.
De antemano mil gracias y ojala me puedas ayudar con eso.
Hola EGODISTONICO, te agradezco de antemano si me puedes ayudar a obtener los datos de esta página web dentro de una línea de HTML:
ResponderEliminarLa consulta se indicia en esta dirección:
http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/FrameCriterioBusquedaCelular.jsp
y el resultado lo muestra en la siguiente:
http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias
Este es el código:
Imports System.Net
Imports System.IO
Public Class Form2
Public Sub OBTENER_DATOS()
Try
Dim CLIENTE As New WebClient
Dim PAGINA As Stream = CLIENTE.OpenRead("http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias")
Dim LECTOR As New StreamReader(PAGINA)
Dim MIHTML As String = LECTOR.ReadToEnd
Dim RUC As String = MIHTML.Remove(0, MIHTML.IndexOf("list-group-item-text") + 113)
'Dim RUC As String = MIHTML.Remove(0, MIHTML.IndexOf("list-group-item-text") + 5000)
RUC = RUC.Substring(0, RUC.IndexOf("<"))
TextBoxRuc.Text = RUC
Dim TIPO As String = MIHTML.Remove(0, MIHTML.IndexOf("bg") + 4)
TIPO = TIPO.Substring(0, TIPO.IndexOf("<"))
TextBoxTipo.Text = TIPO
PAGINA.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OBTENER_DATOS()
'Consulta()
End Sub
Private Sub Consulta()
'Dim urlSUNAT As String = String.Format("http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias")
Dim UnaLinea As String
Dim WDHtml As New StreamReader(WebBrowser1.DocumentStream)
While WDHtml.Peek > -1
UnaLinea = WDHtml.ReadLine()
If UnaLinea.IndexOf("list-group-item-heading") > -1 Then
MessageBox.Show("La información fue obtenida satisfactoriamente")
End If
TextBoxDireccion.Text = UnaLinea
End While
End Sub
End Class
Un abrazo a la distancia, desde Lima, Perú.