This one also update the tags, to clean out MediaMonkey Replay Gain there too.
Changelog
1.00 - 1.01 : Minor detail in displaying the progress.
Goes to
' \Program Files\MediaMonkey\Scripts\Auto\Menu_UndoAnalyzeVolume.vbs
Undo Analyze Volume will appear in the Tools Menu after restarting MediaMonkey.
Code: Select all
'-------------------------------------------------------------------
' \Program Files\MediaMonkey\Scripts\Auto\Menu_UndoAnalyzeVolume.vbs
'
' Version: 1.01
' Date: 24 September 2006
' By DiddeLeeDoo
'-------------------------------------------------------------------
Sub OnStartup
Set Mnu=SDB.UI.AddMenuItem(SDB.UI.Menu_Tools,4,2)
Mnu.Caption=SDB.Localize("Undo Analyze Volume")
Mnu.IconIndex=39
Mnu.UseScript=Script.ScriptPath
Mnu.OnClickFunc="UndoVol"
End Sub
Sub UndoVol(o)
If SDB.SelectedSongList.Count>0 Then
Set dbT=SDB.SelectedSongList
Set Prg=SDB.Progress
Prg.MaxValue=dbT.Count-1
Prg.Text=SDB.Localize("Undoing Volume Analyzing...")
For i=0 To dbT.Count-1
Set Sng=dbT.Item(i)
Sng.Leveling=-999999
Sng.UpdateDB
Sng.WriteTags
Prg.Value=i
If Prg.Terminate Then Exit For
Next
Set Prg=Nothing
Set dbT=Nothing
Else
SDB.MessageBox SDB.Localize("Please select the tracks to be processed"), mtError, Array(mbOk)
End If
End Sub