The installer is available to download from my website.
Code: Select all
'
' MediaMonkey Script
'
' NAME: MissingLyrics 1.3
'
' AUTHOR: trixmoto (http://trixmoto.net)
' DATE : 11/01/2010
'
' INSTALL: Copy to Scripts\Auto\MissingLyrics.vbs
'
' Thanks to Psyxonova, my SQL guru!
' Thanks to DiddeLeeDoo for his more efficient code
' Thanks to Bex for the current filter code
'
' FIXES: Removed old MM2 code
' Fixed to only show tracks in the current filter
'
Option Explicit
Sub OnStartup
Dim node : Set node = SDB.Objects("MissingLyricsNode")
If Not (node Is Nothing) Then
node.Visible = False
End If
Set node = SDB.MainTree.CreateNode
node.Caption = "Unknown Lyrics"
node.IconIndex = 36
node.UseScript = Script.ScriptPath
node.OnFillTracksFunct = "ShowUnknown"
Call SDB.MainTree.AddNode(SDB.MainTree.Node_FilesToEdit,node,2)
Set SDB.Objects("MissingLyricsNode") = node
End Sub
Sub ShowUnknown(node)
Dim sql : sql = "WHERE Songs.Lyrics=''"
If Not (SDB.Database.ActiveFilterQuery = "") Then
sql = sql&" AND "&SDB.Database.ActiveFilterQuery
End If
SDB.MainTracksWindow.AddTracksFromQuery(sql)
SDB.MainTracksWindow.FinishAdding
End Sub