I'm using NP - All Playcounts (No Xmas), it's still running but I am 8 minutes in.
EDIT: BTW, now that you mentioned it how do I sort the MN nodes??

nynaevelan wrote:how do I sort the MN nodes??
nynaevelan wrote:First let me say thank you for taking the time and creating it for me
gege wrote:nynaevelan wrote:First let me say thank you for taking the time and creating it for me
For us. Don't be so selfish!![]()
![]()
![]()
![]()
nynaevelan wrote:it's a little slow but I can live with that to get the filtered info.
strSQL = strSQL & " AND" & sMMFilter & ")) AND" & sMMFilter strSQL = strSQL & ")) AND" & sMMFilterLudek wrote:This should not be a problem for a script writer to customize the Stats.vbs script.
Question is whether this would be valuable to have it native (i.e. bundled with MM install package).
ZvezdanD wrote:It would be much faster.
Mizery_Made wrote:the "Artists" section showing all people, including conductors, composers, etc. Also, some of the statistics seem odd, like the "Played" column for Albums will max out once they've all been played, but you can end up with something like "2928" & "4103" for Library & Played respectively for Artists, when everything has been played in your library.
ZvezdanD wrote:OK, here is what you could try. Replace the line 643:
- Code: Select all
strSQL = strSQL & " AND" & sMMFilter & ")) AND" & sMMFilter
with the:
- Code: Select all
strSQL = strSQL & ")) AND" & sMMFilter
It would be much faster.
nynaevelan wrote:There were a couple of filters that did not complete quickly but they never finish quickly even when I use them in nodes, they are the songs in playlist/songs not in playlist filters.
ZvezdanD wrote:but I don't know what you mean with the Played column for Albums.
Totals
Type Library Played
Artists 2928 4103
Albums 812 812
Genres 7 7
Years 26 26
Playlists 8 8
'Totals
strSQL = "SELECT Count(*) AS Nombre FROM Artists WHERE ID <> 0 AND Tracks>0" ' Track artists only
Set qryStats = SDB.Database.OpenSQL(strSQL)
intArtistsCount = CLng(NoNull(qryStats.ValueByName("Nombre"),0))
' process background threads
SDB.ProcessMessages
strSQL = "SELECT Count(Distinct Artists.ID) AS CountOfID FROM Artists WHERE Artists.ID IN ( SELECT ArtistsSongs.IDArtist FROM ArtistsSongs WHERE ArtistsSongs.IDSong IN ( SELECT Played.IDSong FROM Played))"
Set qryStats = SDB.Database.OpenSQL(strSQL)
intArtistsCountPlayed = CLng(NoNull(qryStats.ValueByName("CountOfID"),0)) 'Totals
strSQL = "SELECT Count(*) AS Nombre FROM Artists WHERE ID <> 0 AND Tracks>0" ' Track artists only
Set qryStats = SDB.Database.OpenSQL(strSQL)
intArtistsCount = CLng(NoNull(qryStats.ValueByName("Nombre"),0))
' process background threads
SDB.ProcessMessages
strSQL = "SELECT Count(Distinct Artists.ID) AS CountOfID FROM Artists WHERE Artists.ID IN ( SELECT ArtistsSongs.IDArtist FROM ArtistsSongs WHERE ArtistsSongs.IDSong IN ( SELECT Played.IDSong FROM Played) AND PersonType=1)"
Set qryStats = SDB.Database.OpenSQL(strSQL)
intArtistsCountPlayed = CLng(NoNull(qryStats.ValueByName("CountOfID"),0)) strSQL = "SELECT Sum(PlayCounter) AS CountOfID, Sum(SongLength) AS TotalLength, Sum(FileLength) AS TotalFileLength, Artists.Artist "
strSQL = strSQL & "FROM ArtistsSongs, Songs, Artists "
strSQL = strSQL & "WHERE Songs.ID = ArtistsSongs.IDSong AND Songs.ID IN (SELECT Played.IDSong FROM Played) AND ArtistsSongs.IDArtist = Artists.ID "
strSQL = strSQL & "GROUP BY ArtistsSongs.IDArtist "
strSQL = strSQL & "ORDER BY Sum(PlayCounter) DESC LIMIT " & intTopCount & ""
Set qryStats = SDB.Database.OpenSQL(strSQL)
While Not qryStats.EOF
strSQL = "SELECT Sum(PlayCounter) AS CountOfID, Sum(SongLength) AS TotalLength, Sum(FileLength) AS TotalFileLength, Artists.Artist "
strSQL = strSQL & "FROM ArtistsSongs, Songs, Artists "
strSQL = strSQL & "WHERE Songs.ID = ArtistsSongs.IDSong AND Songs.ID IN (SELECT Played.IDSong FROM Played) AND ArtistsSongs.IDArtist = Artists.ID AND ArtistsSongs.PersonType=1 "
strSQL = strSQL & "GROUP BY ArtistsSongs.IDArtist "
strSQL = strSQL & "ORDER BY Sum(PlayCounter) DESC LIMIT " & intTopCount & ""
Set qryStats = SDB.Database.OpenSQL(strSQL)
While Not qryStats.EOF
Users browsing this forum: Exabot [Bot] and 10 guests