Lyricsplugin Search Script

Download and get help for different MediaMonkey Addons.

Moderators: Peke, Gurus

bob61
Posts: 157
Joined: Sun Dec 09, 2007 4:52 pm

Post 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!

bob61
Posts: 157
Joined: Sun Dec 09, 2007 4:52 pm

Post 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>

drjboulder
Posts: 1119
Joined: Mon Apr 09, 2007 12:03 am
Location: Boulder, Colorado, USA

Post 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*
D Rock
Image
MediaMonkeyGoldv3.0.3.1183
Vista Home Basic|4thGen 20GPod
Zune Small Player Skin w/ Aqua 4 Player Mod
Backup | Last FM Node | Scrobbler DJ | TopTracks | StayInSameStyleDJ
RadioDJ | RadioFreeMonkey | PrettyPictures | MiniLyricsEmbedder
LyricsViewer | Lyricator | LyricsPlugin | VisualizationEmbedder | MonkeyRok
RightClickForWeb | WebSearchPanels | WebNodes | MagicNodes | FavoritesNodes
NowPlayingArtNode |AutoRateAccurate | TaggingInconsistencies
AdvancedDuplicateFind&Fix | CaseModify | PlayHistory&Stats | Etc...

bob61
Posts: 157
Joined: Sun Dec 09, 2007 4:52 pm

Post 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!

bob61
Posts: 157
Joined: Sun Dec 09, 2007 4:52 pm

Post 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.

Vyper
Posts: 845
Joined: Tue May 23, 2006 5:53 pm

Post 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?


:)
Stop Button Freak

drjboulder
Posts: 1119
Joined: Mon Apr 09, 2007 12:03 am
Location: Boulder, Colorado, USA

Post 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!
D Rock
Image
MediaMonkeyGoldv3.0.3.1183
Vista Home Basic|4thGen 20GPod
Zune Small Player Skin w/ Aqua 4 Player Mod
Backup | Last FM Node | Scrobbler DJ | TopTracks | StayInSameStyleDJ
RadioDJ | RadioFreeMonkey | PrettyPictures | MiniLyricsEmbedder
LyricsViewer | Lyricator | LyricsPlugin | VisualizationEmbedder | MonkeyRok
RightClickForWeb | WebSearchPanels | WebNodes | MagicNodes | FavoritesNodes
NowPlayingArtNode |AutoRateAccurate | TaggingInconsistencies
AdvancedDuplicateFind&Fix | CaseModify | PlayHistory&Stats | Etc...

Vyper
Posts: 845
Joined: Tue May 23, 2006 5:53 pm

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

Yup, I did. Thanks! :D
Stop Button Freak

danhackley
Posts: 317
Joined: Fri Aug 31, 2007 6:43 am
Location: Scotland
Contact:

Script does not appear in scripts menu

Post 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.
Sony Vaio Laptop
Thecus N5200B NAS
Windows 7
MM3 Gold 3.2
Looking for jukebox software that manages a large collection, has good album art integration and plays flac as well as MP3

spacefish
Posts: 1427
Joined: Mon Jan 14, 2008 7:21 am
Location: Denmark

Re: Script does not appear in scripts menu

Post 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).
Image
MM Gold 3.0.3.1183 : Vista HP SP1 (x86) : Zen Stone (2GB)
Zekton: An original MM3 skin by Eyal.
Scripts in Use: Add/Remove PlayStat | Auto Album DJ | AutoRateAccurate | Backup
Case & Leading Zero Fixer | Classification & Genre Changer | Clean Scripts.ini | Clear
Field | Custom Report | Discogs Auto-Tag Web Search | Forget Crossfade | Invert
Selection/Select None | Last 100... | Lyricator | Lyrics to Instrumental | MonkeyRok
MusicBrainz Tagger | My Custom Nodes | Now Playing Art Node | Play History & Stats
Right Click for Reports | Right Click for Scripts | Right Click for Web | Stop After Current
WebNodes

barkoz
Posts: 121
Joined: Fri May 02, 2008 5:58 pm
Location: Sydney, Australia

Re: Lyricsplugin Search Script

Post 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?

Evil Scotsman
Posts: 8
Joined: Tue Dec 23, 2008 1:03 pm

Re: Lyricsplugin Search Script

Post 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
If you can read this Thank a Teacher!
If you are reading this in English, Thank a Veteran!
God Bless Our Military!

robbie73

Re: Lyricsplugin Search Script

Post 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.

barkoz
Posts: 121
Joined: Fri May 02, 2008 5:58 pm
Location: Sydney, Australia

Re: Lyricsplugin Search Script

Post 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

rlj1965

Re: Lyricsplugin Search Script

Post 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.

Post Reply