by Peke » Sun Jul 14, 2019 7:04 am
Hi,
THX, I missed that one
Code: Select all
'==========================================================================
'
' NAME: PlayCountScript.vbs
'
' DATE : 14.07.2019.
'
' COMMENT: Set Desired Playcount, Save PlayCountScript.vbs to Scripts\Auto folder and restart MMW
'
'==========================================================================
Script.Reload(Script.ScriptPath)
Sub OnStartup
Dim SPLayCount
Set SPLayCount = SDB.UI.AddMenuItem(SDB.UI.Menu_TbAdvanced,0,0)
SPLayCount.Caption = "Increase Play Count"
SPLayCount.OnClickFunc = "ChangePlayCounter"
SPLayCount.UseScript = Script.ScriptPath
SPLayCount.IconIndex = 63
End Sub
Sub ChangePlayCounter(arg)
Dim list, itm, i, newPlayCounter, mb, progress
newPlayCounter = InputBox("Enter the new value for the Played field", "Modify Play Counter")
If newPlayCounter = "" Then
Exit Sub
End If
If Not IsNumeric(newPlayCounter) Then
mb = SDB.MessageBox("You did not enter a number. Please try again.",0,"Error")
Exit Sub
ElseIf newPlayCounter < 0 Then
mb = SDB.MessageBox("Only positive numbers or 0 are allowed. Please try again.",0,"Error")
Exit Sub
End If
If list.count = 0 Then
mb = SDB.MessageBox("No songs were selected. Please select some songs and try again",0,"Error")
Exit Sub
End If
Set Progress = SDB.Progress
Progress.Text = "Changing Play Counters..."
Progress.MaxValue = list.count
For i=0 To list.count-1
Set itm = list.Item(i)
'Set the Play Counter
itm.PlayCounter = newPlayCounter
itm.UpdateDB
Progress.value = i+1
If Progress.terminate Then
Exit For
End if
Next
Set Progress = Nothing
End Sub
Hi,
THX, I missed that one :)
[code]'==========================================================================
'
' NAME: PlayCountScript.vbs
'
' DATE : 14.07.2019.
'
' COMMENT: Set Desired Playcount, Save PlayCountScript.vbs to Scripts\Auto folder and restart MMW
'
'==========================================================================
Script.Reload(Script.ScriptPath)
Sub OnStartup
Dim SPLayCount
Set SPLayCount = SDB.UI.AddMenuItem(SDB.UI.Menu_TbAdvanced,0,0)
SPLayCount.Caption = "Increase Play Count"
SPLayCount.OnClickFunc = "ChangePlayCounter"
SPLayCount.UseScript = Script.ScriptPath
SPLayCount.IconIndex = 63
End Sub
Sub ChangePlayCounter(arg)
Dim list, itm, i, newPlayCounter, mb, progress
newPlayCounter = InputBox("Enter the new value for the Played field", "Modify Play Counter")
If newPlayCounter = "" Then
Exit Sub
End If
If Not IsNumeric(newPlayCounter) Then
mb = SDB.MessageBox("You did not enter a number. Please try again.",0,"Error")
Exit Sub
ElseIf newPlayCounter < 0 Then
mb = SDB.MessageBox("Only positive numbers or 0 are allowed. Please try again.",0,"Error")
Exit Sub
End If
If list.count = 0 Then
mb = SDB.MessageBox("No songs were selected. Please select some songs and try again",0,"Error")
Exit Sub
End If
Set Progress = SDB.Progress
Progress.Text = "Changing Play Counters..."
Progress.MaxValue = list.count
For i=0 To list.count-1
Set itm = list.Item(i)
'Set the Play Counter
itm.PlayCounter = newPlayCounter
itm.UpdateDB
Progress.value = i+1
If Progress.terminate Then
Exit For
End if
Next
Set Progress = Nothing
End Sub[/code]