Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 20, 2020, 07:31:36 pm

Title: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 20, 2020, 07:31:36 pm
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]
  3.  
  4. PRINT GetLyrics("Newsboys", "Joy")
  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)
  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
  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$
  56.  
  58.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  60.  
  61. FUNCTION API_Request (URL AS STRING, File AS STRING)
  62.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
Title: Re: Get Lyrics to songs using Online API!
Post by: FellippeHeitor on July 20, 2020, 07:32:00 pm
Cool!
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 20, 2020, 08:15:11 pm
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:
  5. INPUT "Band name:", band$
  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$)
  14. SHELL _DONTWAIT filename$
  15.  
  17. INPUT "Another one (Y/N)"; yn$
  18. IF LEFT$(yn$, 1) = "y" OR LEFT$(yn$, 1) = "Y" THEN GOTO start:
  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)
  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
  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$
  70.  
  72.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  74.  
  75. FUNCTION API_Request (URL AS STRING, File AS STRING)
  76.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
  78.  
  79.  
Title: Re: Get Lyrics to songs using Online API!
Post by: Dav on July 20, 2020, 08:55:39 pm
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
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 20, 2020, 10:36:06 pm
Quote from: Dav on July 20, 2020, 08:55:39 pm
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.
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 20, 2020, 10:40:43 pm
@SierraKen That's pretty neat! I like the idea of opening Notepad after the download.
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 21, 2020, 12:24:11 am
Thanks! Glad you like it. :)
Title: Re: Get Lyrics to songs using Online API!
Post by: Ashish on July 21, 2020, 01:34:26 am
Nice work! @SpriggsySpriggs
It works fine for American songs but it not working for Indian songs...
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 21, 2020, 06:07:17 am
Quote from: Ashish on July 21, 2020, 01:34:26 am
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.
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 21, 2020, 05:55:14 pm
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.
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 21, 2020, 06:37:22 pm
@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.
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 21, 2020, 09:57:55 pm
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
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 21, 2020, 10:19:34 pm
@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]
  3. PRINT GetLyrics("Newsboys", "Joy")
  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)
  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
  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$
  56.  
  58.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  60.  
  61. FUNCTION API_Request (URL AS STRING, File AS STRING)
  62.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 22, 2020, 12:49:46 am
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.



Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 22, 2020, 12:55:49 am
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. :)

Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 22, 2020, 06:55:39 am
@SierraKen , When I run my code I have NO extra lines between anything, even in the output file. Are you sure you ran my latest code?
Strange.... When I run this exact same code at home on my desktop I have no lines between anything except where they should be. Running them on my work laptop I get lines like you described...... I'll have to see why this is happening. That latest code I posted works perfectly on my home PC.
EDIT: Even weirder, I ran the code again and had no lines like my picture shows. Then I ran it again and had the same lines like before. This is some weird goings-on.
EDIT AGAIN: I ran the code back to back several times without annoying lines like you were showing. *shrug*
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 22, 2020, 07:12:11 am
Never mind, it's going to require a few IF ELSE statements. I think the majority of the issue is that the site is inconsistent with usage of \r and \n. I tried one song, it looked perfect. I tried another, there were absolutely no lines in between, even between verses so it looked worse. I'll have to add some conditional statements for sure.
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 22, 2020, 03:16:29 pm
Wild Spriggs. Like I said, their website where the program gets the data does the same thing. So yeah, it would need some IF/THEN statements, somehow.
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 22, 2020, 05:01:15 pm
Oops, sorry. I didn't realize my previous reply was there. Ignore the previous version of this message.
Title: Re: Get Lyrics to songs using Online API!
Post by: SierraKen on July 22, 2020, 05:12:43 pm
Yeah, probably some loose variable on their end or something. Anyway, no big deal. Like I said, we can always use  the Enter key or Back Space on Notepad. :)
Title: Re: Get Lyrics to songs using Online API!
Post by: SpriggsySpriggs on July 22, 2020, 05:55:18 pm
Yeah. Something. I'll look at it in depth this weekend, perhaps. I might find the perfect IF ELSE scenario.
Text Only | Text with Attachments