MediaMonkey forum

Code: Select all

'
' MediaMonkey Script
'
' NAME: Lyrics to Instrumentals
'
' AUTHOR: TeknoJnky
' DATE : April 1 2008
'
' INSTALL: Copy Script to Instrumentals.vbs in the Mediamonkey\Scripts\Auto folder.
' This script takes the selected songs and sets the lyrics to the set string

Option Explicit

Dim LyricString
LyricString = "[instrumental]" 'default lyric string'


Sub OnStartup 
  
    Dim MenuItem
    Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Scripts, 0, -1) 
    
    MenuItem.Caption = "Lyrics to Instrumental"
    MenuItem.Hint = "Changes Lyrics field to " & LyricString
    MenuItem.UseScript = Script.ScriptPath 
    MenuItem.OnClickFunc = "FixLyrics"

End Sub 


Sub FixLyrics(MenuItem)

  Dim List,Song,Status,Counter
  Set List = SDB.CurrentSongList
  Dim Input
  Input = InputBox("Enter Lyric String: ","Lyrics to Instrumental",LyricString)

  If Input <> "" Then
    LyricString = Input
    Set Status = SDB.Progress
    Status.Text = "Initialising script..."
    Status.MaxValue = list.Count

    For Counter=0 To list.Count-1
      Status.Text = "Updating file "&(Counter+1)&" of "&list.Count&"..."
      Status.Value = Counter
      Set Song = List.Item(Counter)

        Song.Lyrics = LyricString

        Song.UpdateDB
        SDB.ProcessMessages
        Song.WriteTags
        SDB.ProcessMessages

      If Status.Terminate Then Exit For
    Next

    Status.Text = "Script Finished..."
    Status.Value = Status.MaxValue
    Set Status = Nothing
    
  End If

End Sub

Code: Select all

LyricString = "[instrumental]" 'default lyric string'