|
Página 1 de 1
|
Leer Datos Desde Una Pagina Web
| Autor |
Mensaje |
 tincho 
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación: 
|
 Leer Datos Desde Una Pagina Web
Hola. Estoy intentando recuperar información de una pagina web de letras de canciones con el método del foro italiano:
http://www.gambas-it.org/wiki/index..._una_pagina_web
Pero, algo estoy haciendo mal y no solo no funciona sino que el sistema hace "crash".
La pagina es esta:
http://lyrics.wikia.com/wiki/Bersui..._tiempo_no_para
La forma es http://lyrics.wikia.com/wiki/{artista}:{canción}
La canción esta en un div del html que tiene el id:"lyricbox"
Y finalmente este es el codigo que uso.
Por favor si alguno pueda darme algo de información sobre que puedo estar haciendo mal se lo agradeceré.
Saludos.
|
#1 Miercoles, 02 Noviembre 2016, 02:59 |
|
 |
razaAztk
aztk crux
Analista Programador
Registrado: Enero 2010
Mensajes: 340
Edad: 35 Ubicación:  Tenochtitlan
|
Re: Leer Datos Desde Una Pagina Web
Parece ser que gb.xml puede "parsear" documentos HTML siempre y cuando sean "estándar"... Intente con la página que das pero tiene muchas etiquetas que no son compatibles. Ver hilo: https://sourceforge.net/p/gambas/ma...alk.nabble.com/
gambas aún no tiene un html parser decente. Yo lo que casi siempre hago es usar las funciones de cadenas.
Te adjunto un ejemplo.
Saludos.
|
| Descripción: |
Simple ejemplo de obtener data de una página web. |
Descargar |
| Nombre del archivo: |
gethtmlinfo-0.0.1.tar.gz |
| Tamaño: |
17.63 KB |
| Descargado: |
41 veces |
|
| Descripción: |
Simple ejemplo de obtener data de una página web. |
Descargar |
| Nombre del archivo: |
gethtmlinfo-0.0.1.tar.gz |
| Tamaño: |
17.63 KB |
| Descargado: |
41 veces |
|
| Descripción: |
Simple ejemplo de obtener data de una página web. |
Descargar |
| Nombre del archivo: |
gethtmlinfo-0.0.1.tar.gz |
| Tamaño: |
17.63 KB |
| Descargado: |
41 veces |
|
#2 Miercoles, 02 Noviembre 2016, 09:07 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación:  dos hermanas, sevilla
|
Re: Leer Datos Desde Una Pagina Web
Tincho:
Te confirmo lo que dice razaAztk, yo lo hago "a pelo" con funciones de cadena.
Una que me sirve mucho es "between", que hizo en su dia Juan Luis Lopez:
Referencias:
https://foro.gambas-es.org/1-vf5-vt...et+curl&start=0
http://jsbsan.blogspot.com.es/2011/...der-buscar.html
|
#3 Miercoles, 02 Noviembre 2016, 22:00 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Re: Leer Datos Desde Una Pagina Web
Tincho: Te confirmo lo que dice razaAztk, yo lo hago "a pelo" con funciones de cadena.
Una que me sirve mucho es "between", que hizo en su dia Juan Luis Lopez:...
Si, finalmente use este método, y descargue la web con elinks.
Puedes ver el resultado en Vinilo.
No logre descargar la web con el método "italiano" que seria lo suyo ya que hay un componente para eso, pero luego de golpearme la cabeza contra el teclado unas horas lo descarte y use esta función:
' gambas module file
Public strHtml As String
Public Function ReadLyric(strArtist As String, strSong As String) As String
Dim strBoxBeg As String
Dim intBoxBeg As Integer
Dim intBoxEnd As Integer
Dim strHtmlTmp As String
Select Msys.PkgStat("elinks")
Case True
If InStr(strArtist, " ") <> 0 Then
strArtist = Replace(strArtist, " ", "_")
strArtist = MUtility.Capital(strArtist)
Endif
If InStr(strSong, " ") <> 0 Then
strSong = Replace(strSong, " ", "_")
strSong = MUtility.Capital(strSong)
Endif
Shell "elinks http://lyrics.wikia.com/" & strArtist & ":" & strSong & " 2>&1" To strHtmlTmp
strBoxBeg = "licensing agreement with music Gracenote."
intBoxBeg = InStr(strHtmlTmp, strBoxBeg) + String.Len(strBoxBeg)
intBoxEnd = InStr(strHtmlTmp, " External links", intBoxBeg)
strHtml = Mid(strHtmlTmp, intBoxBeg, intBoxEnd - intBoxBeg)
strHtml = Replace(strHtml, "\n\n", "\n")
Case False
Select Message.Question(("Tiene que instalar el progrma") & "elinks", "ok", "Instalar", "Omitir")
Case 1
'
Case 2
Desktop.OpenTerminal
Case 3
Settings["Preferences/alarm"] = False
FMain.bolPkgAlarm = False
End Select
End Select
Return strHtml
End
Saludos.
|
#4 Miercoles, 02 Noviembre 2016, 22:43 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
