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.

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'
[url]http://www.mediamonkey.com/forum/viewtopic.php?f=2&t=47918[/url]

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.

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

' 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

[letraslyrics]
Filename=letraslyrics.vbs
Procname=letraslyrics
Order=99
DisplayName=Search for Lyrics using letraslyrics.com
Description=Searches Lyrics
Language=VBScript
ScriptType=3

[quote]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.[/quote]
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]' 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[/code]

and entry in scripts.ini as follows

[code][letraslyrics]
Filename=letraslyrics.vbs
Procname=letraslyrics
Order=99
DisplayName=Search for Lyrics using letraslyrics.com
Description=Searches Lyrics
Language=VBScript
ScriptType=3[/code]

I was hoping to crack this on my own but it appears i'm not smart enough :( :( :(
Can anyone help?

[quote="danhackley"]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.[/quote]
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).

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.

Yup, I did. Thanks! :D

[quote="Vyper"]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?
[/quote]
You must of missed Das's rework of this - [url=http://www.mediamonkey.com/forum/viewtopic.php?t=26899]The Lyricator[/url]. Enjoy!

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?


:)

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.

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!

[quote="das Monkey"]
[b]drjboulder[/b], could you post an example title/artist that isn't working right with the asterisk? Thanks.

das[/quote]
You can ignore that. Just tried [b]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*

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

[quote="das Monkey"]If anyone's interested, I also fixed [url=http://www.mediamonkey.com/forum/viewtopic.php?t=11762]Missing Lyrics Node[/url] 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[/quote]For those who have MagicNodes installed here's code to be used to find those tracks with missing lyrics, group by genre:

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

[quote="das Monkey"]OK, I gave it a shot. [/quote]Excellent! Great job and very useful script!