Get Lyrics to songs using Online API!

[SpriggsySpriggs]

Here is some code you can use to get lyrics for your favorite songs from your favorite artists! No API key required! Maybe it would be a good thing to use in an InForm application and display the lyrics in a listbox? Maybe even encode some timing into the resulting JSON from the API call and display lyrics in time with MP3 files that are playing? HMMMM
 

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. PRINT GetLyrics("Newsboys", "Joy")
5. SLEEP
6.  
7. FUNCTION GetLyrics$ (artist AS STRING, title AS STRING)
8.     DIM URL AS STRING
9.     DIM URLFile AS STRING
10.     DIM a%
11.     DIM Request AS STRING
12.     URLFile = "lyricsapirequest"
13.     URL = "https://api.lyrics.ovh/v1/" + FormatAsHTTP(artist) + "/" + FormatAsHTTP(title)
14.     a% = API_Request(URL, URLFile)
15.     DIM U AS INTEGER
16.     U = FREEFILE
17.     OPEN URLFile FOR BINARY AS #U
18.     IF LOF(U) <> 0 THEN
19.         Request = SPACE$(LOF(U))
20.         GET #U, , Request
21.     ELSE
22.         CLOSE #U
23.         KILL URLFile
24.         GetLyrics = ""
25.         EXIT FUNCTION
26.     END IF
27.     CLOSE #U
28.     KILL URLFile
29.     Request = MID$(String.Replace(Request, "\n", CHR$(10)), 12)
30.     Request = String.Replace(Request, "\r", CHR$(13))
31.     Request = String.Replace(Request, "\" + CHR$(34), CHR$(34))
32.     GetLyrics = MID$(Request, 1, LEN(Request) - 2)
33. END FUNCTION
34.  
35. FUNCTION FormatAsHTTP$ (Request AS STRING)
36.     start% = 1
37.     DO
38.         position% = INSTR(start%, Request, " ")
39.         IF position% THEN
40.             MID$(Request, position%, 1) = "+"
41.             start% = position% + 1
42.         END IF
43.     LOOP UNTIL position% = 0
44.     FormatAsHTTP = Request
45. END FUNCTION
46.  
47. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
48.     j = INSTR(a, b)
49.     IF j > 0 THEN
50.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
51.     ELSE
52.         r$ = a
53.     END IF
54.     String.Replace = r$
55. END FUNCTION
56.  
57. DECLARE DYNAMIC LIBRARY "urlmon"
58.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
59. END DECLARE
60.  
61. FUNCTION API_Request (URL AS STRING, File AS STRING)
62.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
63. END FUNCTION

[FellippeHeitor]

Cool!

[SierraKen]

AWESOME Spriggsy! I use websites like this all the time. If you don't want to use InForm, you can use what I did here. I made it so it creates a .txt file and it has a SHELL command that opens it up with Notepad when it's done. That way you can save it or print it or do whatever you want with it. This will only work with Windows I think.
But what you did is awesome. I was just thinking about something like this yesterday, if we could make a simple text web browser. :)
Make sure and put this in its own folder so you can easily see the text files it makes.

Code: QB64: [Select]

1. '$CONSOLE:ONLY
2. '_DEST _CONSOLE
3. start:
4. CLS
5. INPUT "Band name:", band$
6. PRINT
7. INPUT "Song name:", nm$
8.  
9. filename$ = nm$ + " by " + band$ + ".txt"
10. PRINT GetLyrics(band$, nm$)
11. OPEN filename$ FOR OUTPUT AS #1
12. PRINT #1, GetLyrics(band$, nm$)
13. CLOSE #1
14. SHELL _DONTWAIT filename$
15.  
16. PRINT: PRINT
17. INPUT "Another one (Y/N)"; yn$
18. IF LEFT$(yn$, 1) = "y" OR LEFT$(yn$, 1) = "Y" THEN GOTO start:
19. END
20.  
21. FUNCTION GetLyrics$ (artist AS STRING, title AS STRING)
22.     DIM URL AS STRING
23.     DIM URLFile AS STRING
24.     DIM a%
25.     DIM Request AS STRING
26.     URLFile = "lyricsapirequest"
27.     URL = "https://api.lyrics.ovh/v1/" + FormatAsHTTP(artist) + "/" + FormatAsHTTP(title)
28.     a% = API_Request(URL, URLFile)
29.     DIM U AS INTEGER
30.     U = FREEFILE
31.     OPEN URLFile FOR BINARY AS #U
32.     IF LOF(U) <> 0 THEN
33.         Request = SPACE$(LOF(U))
34.         GET #U, , Request
35.     ELSE
36.         CLOSE #U
37.         KILL URLFile
38.         GetLyrics = ""
39.         EXIT FUNCTION
40.     END IF
41.     CLOSE #U
42.     KILL URLFile
43.     Request = MID$(STRING.Replace(Request, "\n", CHR$(10)), 12)
44.     Request = STRING.Replace(Request, "\r", CHR$(13))
45.     Request = STRING.Replace(Request, "\" + CHR$(34), CHR$(34))
46.     GetLyrics = MID$(Request, 1, LEN(Request) - 2)
47. END FUNCTION
48.  
49. FUNCTION FormatAsHTTP$ (Request AS STRING)
50.     start% = 1
51.     DO
52.         position% = INSTR(start%, Request, " ")
53.         IF position% THEN
54.             MID$(Request, position%, 1) = "+"
55.             start% = position% + 1
56.         END IF
57.     LOOP UNTIL position% = 0
58.     FormatAsHTTP = Request
59. END FUNCTION
60.  
61. FUNCTION STRING.Replace$ (a AS STRING, b AS STRING, c AS STRING)
62.     j = INSTR(a, b)
63.     IF j > 0 THEN
64.         r$ = LEFT$(a, j - 1) + c + STRING.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
65.     ELSE
66.         r$ = a
67.     END IF
68.     STRING.Replace = r$
69. END FUNCTION
70.  
71. DECLARE DYNAMIC LIBRARY "urlmon"
72.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
73. END DECLARE
74.  
75. FUNCTION API_Request (URL AS STRING, File AS STRING)
76.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
77. END FUNCTION
78.  
79.  

[Dav]

Neat!  Thanks for sharing.  Have you done a weather type program yet?  I was thinking of doing something like that lately with the url downloader - pull weather data from a website based on zipcode, and then some little images for rain, cloudy, to make a nice display.

- Dav

[SpriggsySpriggs]

Neat!  Thanks for sharing.  Have you done a weather type program yet?  I was thinking of doing something like that lately with the url downloader - pull weather data from a website based on zipcode, and then some little images for rain, cloudy, to make a nice display.

@Dav That's an excellent idea! I'll look into that.

[SpriggsySpriggs]

@SierraKen That's pretty neat! I like the idea of opening Notepad after the download.

[SierraKen]

Thanks! Glad you like it. :)

[Ashish]

Nice work! @SpriggsySpriggs
It works fine for American songs but it not working for Indian songs...

[SpriggsySpriggs]

Nice work! @SpriggsySpriggs
It works fine for American songs but it not working for Indian songs...

I think the website only has user submitted songs. Chances are it won't even find very many American songs unless they're popular.

[SierraKen]

I see the website has the first 2 or so stanzas (groups of lines) without empty lines between each line. But the rest of the song does every other line. Would be cool to be able to patch it somehow.

[SpriggsySpriggs]

@SierraKen I'll look into it. You mean like extra carriage returns, right? I think it is mostly a matter of how Windows VS QB64 interprets new lines.

[SierraKen]

Actually it's exactly how it shows on a web browser. But I was just wondering if that can be changed because the first 2 stanzas don't have any blank lines in between the lines. But after that they have one empty line between each line. Except between the stanzas which have a couple blank lines. I don't know if it's possible or not, although maybe an IF/THEN statement with a counter on blank lines would work, somehow. lol

[SpriggsySpriggs]

@SierraKen Here is how I get it now with replacing CHR$(13) + CHR$(10) with CHR$(10)
Is this better?
There are no extra lines in the first two sections

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3. PRINT GetLyrics("Newsboys", "Joy")
4. SLEEP
5.  
6. FUNCTION GetLyrics$ (artist AS STRING, title AS STRING)
7.     DIM URL AS STRING
8.     DIM URLFile AS STRING
9.     DIM a%
10.     DIM Request AS STRING
11.     URLFile = "lyricsapirequest"
12.     URL = "https://api.lyrics.ovh/v1/" + FormatAsHTTP(artist) + "/" + FormatAsHTTP(title)
13.     a% = API_Request(URL, URLFile)
14.     DIM U AS INTEGER
15.     U = FREEFILE
16.     OPEN URLFile FOR BINARY AS #U
17.     IF LOF(U) <> 0 THEN
18.         Request = SPACE$(LOF(U))
19.         GET #U, , Request
20.     ELSE
21.         CLOSE #U
22.         KILL URLFile
23.         GetLyrics = ""
24.         EXIT FUNCTION
25.     END IF
26.     CLOSE #U
27.     KILL URLFile
28.     Request = String.Replace(Request, CHR$(13) + CHR$(10), CHR$(10))
29.     Request = MID$(String.Replace(Request, "\n", CHR$(10)), 12)
30.     Request = String.Replace(Request, "\r", CHR$(13))
31.     Request = String.Replace(Request, "\" + CHR$(34), CHR$(34))
32.     GetLyrics = MID$(Request, 1, LEN(Request) - 2)
33. END FUNCTION
34.  
35. FUNCTION FormatAsHTTP$ (Request AS STRING)
36.     start% = 1
37.     DO
38.         position% = INSTR(start%, Request, " ")
39.         IF position% THEN
40.             MID$(Request, position%, 1) = "+"
41.             start% = position% + 1
42.         END IF
43.     LOOP UNTIL position% = 0
44.     FormatAsHTTP = Request
45. END FUNCTION
46.  
47. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
48.     j = INSTR(a, b)
49.     IF j > 0 THEN
50.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
51.     ELSE
52.         r$ = a
53.     END IF
54.     String.Replace = r$
55. END FUNCTION
56.  
57. DECLARE DYNAMIC LIBRARY "urlmon"
58.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
59. END DECLARE
60.  
61. FUNCTION API_Request (URL AS STRING, File AS STRING)
62.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
63. END FUNCTION

[SierraKen]

It still does the same thing. I think you might not understand what I'm saying. Here is a picture that helps you understand it better. Just remember though, it's the same way also on my web browser on that website. So in actuality, your program is doing everything perfectly. I was just wondering if you could patch it so it fixes this problem that they originally have on their website, to be seen better on this program. Look at where my arrows are and what I say on this picture of it.

[SierraKen]

Here's another picture, this time of the website and you can notice that your program is just showing exactly what's already there on the website. If you can't patch it or do anything, it's no big deal, I can just use the Enter key and make blank lines in the first 2 stanzas as the rest of the lines are. Sometimes I'm too picky. :)