So it will reduce the discrepencey by 1 for tracks played on the ipod
The rest need to be fixed with one of the other scripts mentioned

It's the code that will included in Add/Remove PlayStat 1.1.1 (2008-10-09) [MM3] soon
...Scripts\Scripts.ini
Code: Select all
[CheckPlaycountVSPlayed]
Filename=CheckPlaycountVSPlayed.vbs
Procname=CheckPlaycountVSPlayed
Order=100
DisplayName=CheckPlaycount VS Played
Description=CheckPlaycount VS Played
Language=VBScript
ScriptType=0
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