Take your time, I'm just thrilled you would implement it.Bex wrote:Ok Nyn, you'll have an update which consider this by the weekend. (It'll take some time to implement it, I think.)
Nyn
Take your time, I'm just thrilled you would implement it.Bex wrote:Ok Nyn, you'll have an update which consider this by the weekend. (It'll take some time to implement it, I think.)
Code: Select all
Sub CheckPlaycountVSPlayed
xCounter = 0
Set iter = SDB.DataBase.OpenSQL("SELECT ID,LastTimePlayed FROM Songs LEFT JOIN Played ON Songs.ID=Played.IDSong WHERE PlayCounter>0 GROUP BY Songs.ID HAVING PlayCounter>COUNT(IDSong)")
Do While NOT iter.EOF
ID = iter.ValueByIndex(0)
LastTimePlayed = iter.StringByIndex(1)
PlayedCount = SDB.DataBase.OpenSQL("SELECT COUNT(*) FROM Played WHERE IDSong=" & ID & " AND Playdate=" & LastTimePlayed).ValueByIndex(0)
If PlayedCount = 0 Then
SDB.DataBase.ExecSQL("INSERT INTO Played (IDSong,PlayDate) VALUES(" & ID & "," & LastTimePlayed & ")")
End If
xCounter = xCounter + 1
iter.next
Loop
End Sub
Thank you this is going to be a feature of ARPS that I will be using frequently. Of all the scripts which I use, this one is a part of my Top 5.Bex wrote: - Added possibility to displays plays for selected tracks only, in "Remove all Plays In Period"
Enjoy
/Bex
Nyn - add this to your Scripts.ini then you can use RCFS to add buttons anywhere you want...nynaevelan wrote: Would it be possible to have toolbar buttons for select features?
Code: Select all
[AddRemovePlayStat-AddOne]
Filename=Auto\AddRemovePlaystat.vbs
Procname=AddOnePlayNow
Order=99
DisplayName=Add one play, TimeStamp Now
Description=Add one play, TimeStamp Now
Language=VBScript
ScriptType=99
Icon=1
[AddRemovePlayStat-AddOneTimeStamp]
Filename=Auto\AddRemovePlaystat.vbs
Procname=AddOnePlayX
Order=99
DisplayName=Add one play, TimeStamp X
Description=Add one play, TimeStamp X
Language=VBScript
ScriptType=99
Icon=4
[AddRemovePlayStat-AddPlays]
Filename=Auto\AddRemovePlaystat.vbs
Procname=AddPlays
Order=99
DisplayName=Add Plays
Description=Add Plays
Language=VBScript
ScriptType=99
Icon=1
[AddRemovePlayStat-RemovePlays]
Filename=Auto\AddRemovePlaystat.vbs
Procname=RemovePlays
Order=99
DisplayName=Remove Plays
Description=Remove Plays
Language=VBScript
ScriptType=99
Icon=8
[AddRemovePlayStat-RemoveAll]
Filename=Auto\AddRemovePlaystat.vbs
Procname=RemoveInPeriod
Order=99
DisplayName=Remove All Plays In Period
Description=Remove All Plays In Period
Language=VBScript
ScriptType=99
Icon=8
[AddRemovePlayStat-SetLastPlay]
Filename=Auto\AddRemovePlaystat.vbs
Procname=SetLastPlayedDateM
Order=99
DisplayName=Set LastPlayedDate
Description=Set LastPlayedDate
Language=VBScript
ScriptType=99
Icon=59
[AddRemovePlayStat-FixPlayCounter]
Filename=Auto\AddRemovePlaystat.vbs
Procname=FixPlayCounter
Order=99
DisplayName=Adjust Only PlayCounter
Description=Adjust Only PlayCounter
Language=VBScript
ScriptType=99
Icon=73