Re: Similar Artists 2.0 - Updated 23/07/2012
Posted: Thu Aug 09, 2012 7:42 am
"Select highest rated in library" etc.: That is track or artist?
The Music Manager for Serious Collectors
http://forum.mediamonkey.com/
Code: Select all
Dim Debug : Debug = True
Code: Select all
#CREATE TABLE IF NOT EXISTS TrixSongRank (ID INTEGER PRIMARY KEY, Rank INTEGER)
#DELETE FROM TrixSongRank
#SELECT Id FROM Artists WHERE Artist='Judas Priest'
@http://ws.audioscrobbler.com/2.0/?method=artist.getSimilar&api_key=6cfe51c9bf7e77d6449e63ac0db2ac24&artist=Judas+Priest
@http://ws.audioscrobbler.com/2.0/?method=artist.getTopTracks&api_key=6cfe51c9bf7e77d6449e63ac0db2ac24&artist=Judas+Priest&limit=100
#SELECT Songs.ID FROM Songs,ArtistsSongs WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=1505 AND Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UpperW(Songs.SongTitle),'&','AND'),'+','AND'),' N ','AND'),'''N''','AND'),' ',''),'.',''),',',''),':',''),';',''),'-',''),'_',''),'!',''),'''',''),'"','')='BREAKINGTHELAW'
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (124994,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125002,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125011,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125134,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125275,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125301,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125349,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125371,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (157754,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (166235,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (168067,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (173011,100)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (191447,100)
#SELECT Songs.ID FROM Songs,ArtistsSongs WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=1505 AND Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UpperW(Songs.SongTitle),'&','AND'),'+','AND'),' N ','AND'),'''N''','AND'),' ',''),'.',''),',',''),':',''),';',''),'-',''),'_',''),'!',''),'''',''),'"','')='PAINKILLER'
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (124996,99)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125063,99)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125097,99)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125262,99)
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (125352,99)
#SELECT Songs.ID FROM Songs,ArtistsSongs WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=1505 AND Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UpperW(Songs.SongTitle),'&','AND'),'+','AND'),' N ','AND'),'''N''','AND'),' ',''),'.',''),',',''),':',''),';',''),'-',''),'_',''),'!',''),'''',''),'"','')='LIVINGAFTERMIDNIGHT'
#REPLACE INTO TrixSongRank (ID,Rank) VALUES (124999,98)
.
. Code is too long, so I am cutting it here and showing you the last few lines after this.
.
#SELECT Songs.ID FROM Songs,ArtistsSongs WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=11249 AND Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UpperW(Songs.SongTitle),'&','AND'),'+','AND'),' N ','AND'),'''N''','AND'),' ',''),'.',''),',',''),':',''),';',''),'-',''),'_',''),'!',''),'''',''),'"','')='WHITEHEATREDHOT'
#SELECT Songs.Id,Songs.SongTitle FROM ArtistsSongs,Songs LEFT OUTER JOIN TrixSongRank ON Songs.ID=TrixSongRank.ID WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=11249 AND (Rating<0 OR Rating>55) GROUP BY Songs.SongTitle ORDER BY TrixSongRank.Rank DESC,Random()
#SELECT Id,Artist FROM Artists WHERE Artist='Accept'
@http://ws.audioscrobbler.com/2.0/?method=artist.getTopTracks&api_key=6cfe51c9bf7e77d6449e63ac0db2ac24&artist=Accept&limit=100
#SELECT Songs.ID FROM Songs,ArtistsSongs WHERE Songs.ID=ArtistsSongs.IDSong AND ArtistsSongs.PersonType=1 AND ArtistsSongs.IDArtist=6365 AND Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UpperW(Songs.SongTitle),'&','AND'),'+','AND'),' N ','AND'),'''N''','AND'),' ',''),'.',''),',',''),':',''),';',''),'-',''),'_',''),'!',''),'''',''),'"','')='BALLSTOTHEWALL'