MusicMatch Ratings 1.1 [MM2+3]

[trixmoto]

I'm glad it worked for you, once you'd got it installed. You can download installer's for my script from my website, if this helps in future.

[yknot]

Imported 13,000 musicmatch ratings! Thanks much!

Yahoo Jukebox sucks!

[trixmoto]

So I've heard. I'm glad you've found MM!

[Gav_]

Thanks so much trixmoto, had been putting off migrating from MMJB because of having to re-rate all my music (Yahoo Jukebox is awful compared).

A slight mod to the code, some versions of MusicMatch put the rating in as text ("Excellent" to "Poor") instead of a number. My own MP3 collection has some with numbers and some with text.

Here is the updated script:

Code: Select all

Option Explicit 

Sub MusicMatchRatings 

  Dim list,itm,prog,i,q,r,c 
  Set list = SDB.CurrentSongList 
    
  Set prog = SDB.Progress 
  prog.Text = "Initialising script..." 
  prog.MaxValue = list.Count 
  c = 0 
  
  For i=0 To list.Count-1 
    prog.Text = "Checking file "&(i+1)&" of "&list.Count&"..." 
    prog.Value = i 
    Set itm = list.Item(i) 
  
    r = -1 
    If isNumeric(itm.Quality) Then 
      q = Cint(itm.Quality) 
      If q > -1 Then 
        If q < 6 Then 
          r = q * 20 
          c = c + 1 
        End If 
      End If 
    Else
      If Mid(itm.Quality,1,9) = "Excellent" Then
          r = 5 * 20 
          c = c + 1 
      End If
      If Mid(itm.Quality,1,9) = "Very Good" Then
          r = 4 * 20 
          c = c + 1 
      End If
      If Mid(itm.Quality,1,4) = "Good" Then
          r = 3 * 20 
          c = c + 1 
      End If
      If Mid(itm.Quality,1,4) = "Fair" Then
          r = 2 * 20 
          c = c + 1 
      End If
      If Mid(itm.Quality,1,4) = "Poor" Then
          r = 1 * 20 
          c = c + 1 
      End If
    End If
    
    itm.Rating = r 
    
    itm.UpdateDB 
    If prog.Terminate Then Exit For 
  Next 
  
  prog.Text = "Finalising script..." 
  prog.Value = prog.MaxValue 
  r = SDB.MessageBox("Tracks updated: "&c&" out of "&list.Count,mtInformation,Array(mbOk)) 
  Set prog = Nothing 

End Sub

[trixmoto]

New version (1.1) is now available to download from my website. If have added the text values discussed above to the conversion. I have also created an MM3 installation package for this script.

[justme]

FANTASTIC !! Could kiss you !!!!!

[trixmoto]

[katanna]

Hi There, if it really works it would save me quite some work...

I Have used the MusicMatch 10
and have now MediaMonkey 3.0.2.1134

I have downloaded the Exe file and the "MediaMonkey Package" or what ever file (both files which are on the HP)

I just double clicked to install... but unfortunatly its not working?
And the checkbox which asks you if you want to import information from other players I have disabled previously so...
Either way there are no ratings shown in the Player

thx

[katanna]

Before trying to install this script my mediamonkey did gather informations from my iTunes Library but not anymore???
It's quite likely I disabled something in the options... but as far as I recall I just did choose at the pop-up window which apeared, when adding media to not pop-up again... maybe I did read wrong?
I tried to find anything in the options, but didn't find anything... any clues?

[katanna]

Hi there, stupid me...

I found out how the Script works...
I had just go to the extras/scripts and apply the MusicMatch Ratings script
EASY to use and VERY VERY VERY effective!!

I LOVE IT!!!

THX for that tool

(But still no clue how to get my iTunes Library Ratings to MediaMonkey )

[trixmoto]

Thanks!

[TheMadGIO]

Trixmoto!

You are too awesome. I've got my major catigories stored in the occasion field. Is there an easy way to move them to the genre field or somewhere else that they will be permanent?

[trixmoto]

Thanks! There's a script called "Personal Tag Enhancer" which I think you should be able to use to help you do this.