Hola amigos.
Hace unos años hice esta función que obtenía la letra de una canción, era para el programa Vinilo que es para escuchar y catalogar música, bien ahora intento actualizar y simplificar el código.
Les comparto el código por si tienen ganas de invertir algo de tiempo y mejorarla.
Nota: Uso el programa de terminal elinks que tambien me gustaria dejar de usar, si es posible me interesa usar solo gambas.
Código:
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.