Lyricsplugin Search Script

Post a reply

Smilies
:D :) :( :o :-? 8) :lol: :x :P :oops: :cry: :evil: :roll: :wink:

BBCode is ON
[img] is ON
[flash] is OFF
[url] is ON
Smilies are ON

Topic review
   

Expand view Topic review: Lyricsplugin Search Script

Re: Lyricsplugin Search Script

by rlj1965 » Fri Jan 11, 2013 11:05 pm

I like MediaMonkey a lot, but I really do miss Musicmatch Jukebox with its Auto-Tag feature. That was a great piece of software until they sold out and Yahoo killed it.

Re: Lyricsplugin Search Script

by barkoz » Mon Apr 19, 2010 4:35 am

Robbie
When the dialog box for Amazon comes up click on Options (top right corner) there you will find a pull down list.... select the Lyrics or whatever it says option, however this script has been kind of made defunct by the Lyricator Script which has been updated just last month after a very long wait. I have successfully tagged over 60,000 tracks with it. You simply highlight the tracks you want to search lyrics for then hit the toolbar button and 'Bob's your uncle'
http://www.mediamonkey.com/forum/viewto ... =2&t=47918

Re: Lyricsplugin Search Script

by robbie73 » Sun Apr 18, 2010 4:18 pm

confused. how does this work? i only seem to get amazon
i dont need to buy it again, just provide lyrics.

PS:
evil lyrics site is not working. no download link.

Re: Lyricsplugin Search Script

by Evil Scotsman » Wed Jan 14, 2009 10:54 am

Sorry I am new to Media Monkey and more so to the scripts, How do I run it to get it to search for lyrics?

Thank You

Re: Lyricsplugin Search Script

by barkoz » Wed Aug 06, 2008 1:58 am

by bob61 on Mon Mar 03, 2008 11:31 am
Any chance to modify this script to also work with http://www.lyrics-songs.com? I've found that website has lyrics that lyricsplugin.com doesn't. I tried to go in and make the change to the URL in the original code to:
url = "http://www.lyrics-songs.com/winamp.php?musica=" & title & "&artista=" & artist

That pulled in the lyric and displayed in in the window. However after selecting "auto tag" the lyrics weren't updated in the tag.
I have tried to do the same thing with letras.br which has very large database and came up with the same result... all the tracks appear but it fails to copy to the tag even though the Status bar indicates that it is copying to the tags
Here is the code I used

Code: Select all

' Lyrics Plugin Search script
'
' This script is a plug-in into MediaMonkey Web Search dialog. You should save it to Scripts folder as
' lyricsplugin.vbs. It has to be in Scripts.ini file, where entries can be as follows:
'
' [SearchAMG]
' FileName=letraslyrics.vbs
' ProcName=letraslyrics
' Order=99
' DisplayName=letraslyrics
' Language=VBScript
' ScriptType=3

' Global
Dim Browser
Dim Tmr
Dim Current
Dim ResultCounter
Dim TryAgain

Sub StartSearch(Panel, SearchTerm, SearchArtist, SearchAlbum)
      TryAgain = 0
      Set Browser = SDB.UI.NewActiveX(Panel, "Shell.Explorer")
      Browser.Common.Align = 5
      
      Dim Tracks : Set Tracks = SDB.Tools.WebSearch.NewTracks
      Dim Results : Set Results = SDB.NewStringList

      For i = 0 to Tracks.Count-1
         Results.Add Tracks.item(i).ArtistName & " - " & Tracks.item(i).Title
      Next
      
      SDB.Tools.WebSearch.SetSearchResults Results
      If Results.Count > 0 Then
         ResultCounter = 0
         SDB.Tools.WebSearch.ResultIndex = ResultCounter
      End If
End Sub

Sub ShowResult(ResultID)
     If (ResultID >= 0)  Then
          Browser.SetHTMLDocument ""

          With SDB.Tools.WebSearch
             .TrackChecked(ResultID) = True
             title = .NewTracks.Item(ResultID).Title
             artist = .NewTracks.Item(ResultID).ArtistName
          End With
         
               Dim pos :   pos = InStr(artist, ";")
               If pos > 1 Then
                  artist = Mid(artist, 1, pos - 1)
               End If
          
          url = "http://letras.terra.com.br/winamp.php?musica=" & Escape(title) & "&artista=" & Escape(artist)
          Browser.Interf.Navigate url
         
          Set Tmr = SDB.CreateTimer(40)
          Script.RegisterEvent Tmr, "OnTimer", "WebsiteLoaded"
     End If
End Sub

Sub WebsiteLoaded(Timer)
      Script.UnregisterEvents Tmr
      Set Tmr = Nothing

      If Len(Browser.Interf.LocationURL) < 10 Then ' A trick - wait until navigation to the search results page starts
         Set Tmr = SDB.CreateTimer(40)
         Script.RegisterEvent Tmr, "OnTimer", "WebsiteLoaded"
         Exit Sub
      End If
      
      If Browser.Interf.ReadyState = 1 Or Browser.Interf.Busy Then
         Set Tmr = SDB.CreateTimer(40)
         Script.RegisterEvent Tmr, "OnTimer", "WebsiteLoaded"
         Exit Sub
      End If

     Dim Doc : Set Doc = Browser.Interf.Document
     If IsObject(Doc) Then
          Set lyrics = Doc.getElementById("lyrics")
          If Not(lyrics IS Nothing) Then
             If lyrics.innerText = "" Then
                Dim NewTitle : NewTitle = SDB.Tools.WebSearch.NewTracks.Item(ResultCounter).Title
                Dim NewArtist : NewArtist = SDB.Tools.WebSearch.NewTracks.Item(ResultCounter).ArtistName
               
                If TryAgain > 0 Or (InStr(NewTitle, "(") = 0 And InStr(NewTitle, "[") = 0) Then
                   TryAgain = 0
                Else
                   TryAgain = 1

                        Dim pos : pos = 0
                        pos = InStr(NewTitle, "(")
                        If pos > 1 Then
                           NewTitle = Mid(NewTitle, 1, pos - 1)
                        End If
                        pos = InStr(NewTitle, "[")
                        If pos > 1 Then
                           NewTitle = Mid(NewTitle, 1, pos - 1)
                        End If
                        NewTitle = LTrim(RTrim(NewTitle))
                        
                   Browser.SetHTMLDocument ""
         
                   url = "http://letras.terra.com.br/winamp.php?musica=" & Escape(NewTitle) & "&artista=" & Escape(NewArtist)
                   Browser.Interf.Navigate url

                   Set Tmr = SDB.CreateTimer(40)
                   Script.RegisterEvent Tmr, "OnTimer", "WebsiteLoaded"
                   Exit Sub
                End If
             End If
             TryAgain = 0
                  SDB.Tools.WebSearch.NewTracks.Item(ResultCounter).Lyrics = lyrics.innerText
                  If ResultCounter < SDB.Tools.WebSearch.NewTracks.Count - 1 Then
                     ResultCounter = ResultCounter + 1
                     SDB.Tools.WebSearch.ResultIndex = ResultCounter
                  End If
          End If
     End If
End Sub

Sub FinishSearch(Panel)
      Browser.Common.DestroyControl     
      Set Browser = Nothing             
End Sub
and entry in scripts.ini as follows

Code: Select all

[letraslyrics]
Filename=letraslyrics.vbs
Procname=letraslyrics
Order=99
DisplayName=Search for Lyrics using letraslyrics.com
Description=Searches Lyrics
Language=VBScript
ScriptType=3
I was hoping to crack this on my own but it appears i'm not smart enough :( :( :(
Can anyone help?

Re: Script does not appear in scripts menu

by spacefish » Tue Mar 04, 2008 11:24 am

danhackley wrote:I didn't put this script in the "auto" directory as I don't want it starting up each time with MM. I just put it in the root scripts directory. However, when I go to tools/scripts, it is not in the list.

Am I doing something wrong ?

Didn't seem to make any difference. The script works fine if I place it in the "auto" folder.
I don't think it's meant to be run outside the auto folder. Since it hooks into the Auto-Tag from Web interface, it won't work from the scripts menu, i.e. it needs the Auto-Tag interface to run (it's a selection from that dialog).

Script does not appear in scripts menu

by danhackley » Tue Mar 04, 2008 11:17 am

I didn't put this script in the "auto" directory as I don't want it starting up each time with MM. I just put it in the root scripts directory. However, when I go to tools/scripts, it is not in the list.

Am I doing something wrong ?

I tried adding the following to the scipts.ini file in the scripts directory:

[websearch]
Filename=websearch.vbs
Procname=websearch
Order=50
DisplayName=Search for Lyrics
Description=Searches Lyrics
Language=VBScript
ScriptType=0

Didn't seem to make any difference. The script works fine if I place it in the "auto" folder.

by Vyper » Tue Mar 04, 2008 7:45 am

Yup, I did. Thanks! :D

by drjboulder » Mon Mar 03, 2008 8:27 pm

Vyper wrote:I love this script ...... that being said, here's my wish for it:
I wish it gave some kind of indication as to which songs it found lyrics for and which it doesn't when you search for a batch of them at once.

Maybe have the ones it didn't find lyrics for be unchecked?

Or is there already an indicator that I'm just not seeing?
You must of missed Das's rework of this - The Lyricator. Enjoy!

by Vyper » Mon Mar 03, 2008 8:20 pm

I love this script ...... that being said, here's my wish for it:


I wish it gave some kind of indication as to which songs it found lyrics for and which it doesn't when you search for a batch of them at once.


Maybe have the ones it didn't find lyrics for be unchecked?


Or is there already an indicator that I'm just not seeing?


:)

by bob61 » Sun Mar 02, 2008 8:31 pm

Any chance to modify this script to also work with www.lyrics-songs.com? I've found that website has lyrics that lyricsplugin.com doesn't. I tried to go in and make the change to the URL in the original code to:
url = "http://www.lyrics-songs.com/winamp.php?musica=" & title & "&artista=" & artist

That pulled in the lyric and displayed in in the window. However after selecting "auto tag" the lyrics weren't updated in the tag.

by bob61 » Sun Mar 02, 2008 9:15 am

FYI - I don't know what others are seeing with speed, but I'm getting about 250-280 tracks processed per minute (time spent to run through tracks and gather lyric details). Quite impressive Das!

by drjboulder » Sat Mar 01, 2008 9:19 pm

das Monkey wrote: drjboulder, could you post an example title/artist that isn't working right with the asterisk? Thanks.

das
You can ignore that. Just tried The Church - Too Fast for You [*][/b] and it worked. Probably my Internet connection dropped out last night coincidently while an asterisk song was being searched on. *shrugs*

by bob61 » Sat Mar 01, 2008 4:27 pm

das Monkey wrote:If anyone's interested, I also fixed Missing Lyrics Node to work with MM3 and added some code to ignore classical, film scores, podcasts, etc. I use the node in combination with this script to clean up my lyrics.
das
For those who have MagicNodes installed here's code to be used to find those tracks with missing lyrics, group by genre:

Code: Select all

Songs with no lyrics|SQL filter:Length(Songs.Lyrics) = 0\<genre|statistic:count(all)>\<Artist>

by bob61 » Sat Mar 01, 2008 4:20 pm

das Monkey wrote:OK, I gave it a shot.
Excellent! Great job and very useful script!

Top