by m_bojangles » Fri Jan 04, 2008 10:21 pm
Just installed MM3 and was wondering if this will work. It appears to work well. I use this to change my lyrics field to "Instrumental" or to "Foreign" depending on which set of tracks I've selected.
The script is called MassLyrics.vbs and is in my Scripts folder:
Code: Select all
Sub MassLyricsInst
Dim list : Set list = SDB.SelectedSongList
If list.count = 0 Then
Set list = SDB.AllVisibleSongList
End If
If list.count = 0 Then
Call SDB.MessageBox("Please select tracks to be updated", mtError, Array(mbOk))
Exit Sub
End If
Dim i : i = SDB.MessageBox("Update lyrics from "&list.Count&" tracks with 'Instrumental'?", mtConfirmation, Array(mbYes,mbCancel))
If Not (i = mrYes) Then
Exit Sub
End If
For i = 0 To list.Count-1
list.Item(i).Lyrics = "Instrumental"
Next
list.UpdateAll
End Sub
Sub MassLyricsFor
Dim list : Set list = SDB.SelectedSongList
If list.count = 0 Then
Set list = SDB.AllVisibleSongList
End If
If list.count = 0 Then
Call SDB.MessageBox("Please select tracks to be updated", mtError, Array(mbOk))
Exit Sub
End If
Dim i : i = SDB.MessageBox("Update lyrics from "&list.Count&" tracks with 'Foreign'?", mtConfirmation, Array(mbYes,mbCancel))
If Not (i = mrYes) Then
Exit Sub
End If
For i = 0 To list.Count-1
list.Item(i).Lyrics = "Foreign"
Next
list.UpdateAll
End Sub
Then I have these entries in my Scripts.ini file which is also in the Scripts folder:
Code: Select all
[MassLyricsInst]
FileName=MassLyrics.vbs
ProcName=MassLyricsInst
Order=60
DisplayName=Instrumental Mass Lyrics Updater
Description=Mass update lyrics for selected Instrumental tracks
Language=VBScript
ScriptType=0
[MassLyricsFor]
FileName=MassLyrics.vbs
ProcName=MassLyricsFor
Order=61
DisplayName=Foreign Mass Lyrics Updater
Description=Mass update lyrics for selected Foreign tracks
Language=VBScript
ScriptType=0
Just installed MM3 and was wondering if this will work. It appears to work well. I use this to change my lyrics field to "Instrumental" or to "Foreign" depending on which set of tracks I've selected.
The script is called MassLyrics.vbs and is in my Scripts folder:
[code]Sub MassLyricsInst
Dim list : Set list = SDB.SelectedSongList
If list.count = 0 Then
Set list = SDB.AllVisibleSongList
End If
If list.count = 0 Then
Call SDB.MessageBox("Please select tracks to be updated", mtError, Array(mbOk))
Exit Sub
End If
Dim i : i = SDB.MessageBox("Update lyrics from "&list.Count&" tracks with 'Instrumental'?", mtConfirmation, Array(mbYes,mbCancel))
If Not (i = mrYes) Then
Exit Sub
End If
For i = 0 To list.Count-1
list.Item(i).Lyrics = "Instrumental"
Next
list.UpdateAll
End Sub
Sub MassLyricsFor
Dim list : Set list = SDB.SelectedSongList
If list.count = 0 Then
Set list = SDB.AllVisibleSongList
End If
If list.count = 0 Then
Call SDB.MessageBox("Please select tracks to be updated", mtError, Array(mbOk))
Exit Sub
End If
Dim i : i = SDB.MessageBox("Update lyrics from "&list.Count&" tracks with 'Foreign'?", mtConfirmation, Array(mbYes,mbCancel))
If Not (i = mrYes) Then
Exit Sub
End If
For i = 0 To list.Count-1
list.Item(i).Lyrics = "Foreign"
Next
list.UpdateAll
End Sub[/code]
Then I have these entries in my Scripts.ini file which is also in the Scripts folder:
[code][MassLyricsInst]
FileName=MassLyrics.vbs
ProcName=MassLyricsInst
Order=60
DisplayName=Instrumental Mass Lyrics Updater
Description=Mass update lyrics for selected Instrumental tracks
Language=VBScript
ScriptType=0
[MassLyricsFor]
FileName=MassLyrics.vbs
ProcName=MassLyricsFor
Order=61
DisplayName=Foreign Mass Lyrics Updater
Description=Mass update lyrics for selected Foreign tracks
Language=VBScript
ScriptType=0[/code]