MediaMonkey forum

Code: Select all

'Place in .ini:
'[AddingLastFM]
'FileName=AddingLastFM.vbs
'ProcName=AddingLastFM
'Order=29
'DisplayName=&Adding Last FM plays
'Description=Adding plays from Last FM
'Language=VBScript
'ScriptType=0

Sub AddingLastFM

	Set objFilesystem = CreateObject("Scripting.FileSystemObject")
	' The path to your textfile
	Set objMyFile = objFilesystem.GetFile("D:\Program Files\MediaMonkey\Scripts\songs.txt")
	Set objTextStream = objMyFile.OpenAsTextStream(1)

	' define vars
	Dim Plays, Track, Artist
	
	Dim list, itm, i
	Dim tmpId, tmpPlayed
	Dim strOut
	Dim intPlayCountDiff
	Dim strDummyDate
	Dim qryStats
	Dim mes
					
	' get the list of selected tracks
	Set list = SDB.CurrentSongList
	
	' loop through the textfile
	Do While Not objTextStream.AtEndOfStream
		
		Plays = objTextStream.readline
		Track = objTextStream.readline
		Artist = objTextStream.readline

		' loop through the list
		For i=0 To list.count-1
		  Set itm = list.Item(i)
		  tmpId = itm.ID
		  
		  If itm.artistName = Artist Then
			If itm.title = Track Then		  
				If Plays > 0 Then
					
					' add fake plays
					For x=0 To Plays-1
					    strDummyDate = Now
						strSQL = "INSERT into Played (IdSong, PlayDate) values (" & itm.ID & ",'" & strDummyDate & "')"
						SDB.Database.ExecSQL(strSQL)
					next
										
					strSQL = "select Count(Played.IdSong) AS CountOfPlays from Played where Played.IdSong = " & itm.ID
					Set qryStats = SDB.Database.OpenSQL(strSQL)

					' find out how many plays of this track there have been
					countofplays = qryStats.StringByName("CountOfPlays")
					
					' increase PlayCounter
					SDB.Database.ExecSQL("UPDATE Songs INNER JOIN Artists ON Songs.IDArtist = Artists.ID SET Songs.PlayCounter = "& countofplays &" WHERE Songs.SongTitle = '"& replace(Track,"'","''") &"' AND Artists.Artist = '"&  replace(Artist,"'","''") &"' ")
					
					mes = mes & "||" & itm.title &" - "& itm.artistName & "  (" & countofplays & ") ||"
					
				End If
			End If
		  End If
		Next
	loop
	
	Call SDB.MessageBox(mes,mtInformation,Array(mbOk))
	
	objTextStream.Close
	
End Sub

Code: Select all

164
Call Me When You're Sober
Evanescence
82
The Diary of Jane
Breaking Benjamin
81
Anywhere
Evanescence
78
Hard Rock Hallelujah
Lordi
77
Broken (Acoustic)
Seether
77
Bones
The Killers
72
The Diary Of Jane (Acoustic Version)
Breaking Benjamin

Code: Select all

use XML::DOM;
use strict;

my $chartlisturl = 'http://ws.audioscrobbler.com/1.0/user/<username>/weeklychartlist.xml';
my $weeklycharturl = 'http://ws.audioscrobbler.com/1.0/user/<username>/weeklytrackchart.xml?from=<start>&to=<end>';
my %trackplays;

my $username = $ARGV[0] || die "Please supply your last.fm username as an argument.";
my $parser = new XML::DOM::Parser;

my $url = $chartlisturl;
$url =~ s/<username>/$username/g;
my $chartlistdoc;
eval { $chartlistdoc = $parser->parsefile($url); };
die "Could not retrieve page $url" unless $chartlistdoc;
sleep 1;

die "Could not find root node <weeklychartlist>" unless (my $rootlist = $chartlistdoc->getElementsByTagName("weeklychartlist",0))->getLength;
my $chartlist = $rootlist->item(0)->getElementsByTagName("chart",0);
print "Found a total of ".$chartlist->getLength." weeks to parse.\n";
for (my $i = 0; $i < $chartlist->getLength; $i++) {
  print "Parsing week ".($i+1)." of ".$chartlist->getLength."...";
  my $start = $chartlist->item($i)->getAttribute("from") || die "ERROR: Could not find 'from' attribute in <chart> node.";
  my $end = $chartlist->item($i)->getAttribute("to") || die "ERROR: Could not find 'to' attribute in <chart> node.";
  
  $url = $weeklycharturl;
  $url =~ s/<username>/$username/g;
  $url =~ s/<start>/$start/g;
  $url =~ s/<end>/$end/g;
  my $weeklychartdoc;
  eval { $weeklychartdoc = $parser->parsefile($url); };
  die "Could not retrieve page $url" unless $weeklychartdoc;
  sleep 1;

  die "Could not find root tag <weeklytrackchart>" unless ($rootlist = $weeklychartdoc->getElementsByTagName("weeklytrackchart",0))->getLength;
  my $tracklist = $rootlist->item(0)->getElementsByTagName("track",0);
  my $totalplays = 0;
  for (my $j = 0; $j < $tracklist->getLength; $j++) {
    die "Could not find <artist> tag" unless (my $artistlist = $tracklist->item($j)->getElementsByTagName("artist",0))->getLength;
    die "Could not find <name> tag" unless (my $songlist = $tracklist->item($j)->getElementsByTagName("name",0))->getLength;
    die "Could not find <playcount> tag" unless (my $playcountlist = $tracklist->item($j)->getElementsByTagName("playcount",0))->getLength;

    die "Could not get text from <artist> tag"
      unless $artistlist->item(0)->hasChildNodes && (my $artisttext = $artistlist->item(0)->getFirstChild)->getNodeType == TEXT_NODE;
    die "Could not get text from <name> tag"
      unless $songlist->item(0)->hasChildNodes && (my $songtext = $songlist->item(0)->getFirstChild)->getNodeType == TEXT_NODE;
    die "Could not get text from <playcount> tag"
      unless $playcountlist->item(0)->hasChildNodes && (my $playcounttext = $playcountlist->item(0)->getFirstChild)->getNodeType == TEXT_NODE;

    my $artist = $artisttext->getData;
    my $song = $songtext->getData;
    my $playcount = $playcounttext->getData;

    if (exists $trackplays{$artist}) {
      $trackplays{$artist}{$song} += $playcount;
    } else {
      $trackplays{$artist} = { $song => $playcount };
    }
    $totalplays += $playcount;
  }
  print "got $totalplays plays\n";
}

# print out hash
open(OUTFILE,'>songs.txt') || die "Could not open songs.txt";
my @artists = sort(keys %trackplays);
for my $artist (@artists) {
  my @songs = sort(keys %{$trackplays{$artist}});
  for my $song (@songs) {
    print OUTFILE "$trackplays{$artist}{$song}\n$song\n$artist\n";
  }
}

Code: Select all

perl lastfmplaycounts.pl MyLastFMUsername