|
Página 2 de 2
|
Copiar Página Web En Buffer
| Autor |
Mensaje |
 calcena 
Ingeniero Programador
Registrado: Julio 2016
Mensajes: 272
Edad: 47
|
 Re: Copiar Página Web En Buffer
sin dudarlo en cuanto tenga implementado lo subo para que podáis aprovechar algo que necesitéis.
Saludos
|
#11 Jueves, 19 Octobre 2017, 16:55 |
|
 |
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación: 
|
Re: Copiar Página Web En Buffer
Hola, hace un tiempo publique un programa llamado Vinilo que es un reproductor de música y tiene las funciones de descarga de letras de las canciones, tal vez les sirva algo del código.
Para recuperar los datos de la página de letras (http://lyrics.wikia.com) uso elinks, un navegador para la terminal y luego acomodo un poco el texto.
Public Function ReadLyric(strArtist As String, strTitle As String) As String
Dim strBoxBeg As String
Dim intBoxBeg As Integer
Dim intBoxEnd As Integer
Dim strHtmlTmp As String
Dim intMessage As Integer
Select Msys.PkgStat("elinks")
Case True
If InStr(strArtist, " ") <> 0 Then
strArtist = Replace(strArtist, " ", "_")
strArtist = MUtility.Capital(strArtist)
Endif
If InStr(strTitle, " ") <> 0 Then
strTitle = Replace(strTitle, " ", "_")
strTitle = MUtility.Capital(strTitle)
Endif
Shell "elinks http://lyrics.wikia.com/" & strArtist & ":" & strTitle & " 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
intMessage = Message.Question(("Tiene que instalar el progrma") & "elinks", ("Aceptar"), ("Instalar"))
Select intMessage
Case 1
'
Case 2
Desktop.OpenTerminal
Case 3
Settings["Preferences/alarm"] = False
FMain.bolPkgAlarm = False
End Select
End Select
Return strHtml
End
Saludos.
|
#12 Jueves, 19 Octobre 2017, 17:29 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
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
|
|
|
|
|
Foro 
