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

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?

Thanks! :)

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!!! :lol:

THX for that tool

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

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?

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

:lol:

FANTASTIC !! Could kiss you !!!!!

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. :)

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

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]
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
[/code]

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

Imported 13,000 musicmatch ratings! Thanks much!

Yahoo Jukebox sucks!

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. :)

[quote="trixmoto"]As requested, this script copies ratings from MusicMatch (which apparently appear as values 1-5 in the Quality field) to MediaMonkey ratings (in the ratings field), of all the selected tracks. It does not remove the information from the Quality field (so the ratings should still appear fine in MusicMatch).
[/quote]

Trix,

I installed the above code into my scripts.ini file and then started MediaMonkey Gold 2.5.5. I clicked that Script

I finally figured out that I needed to create a VBS file separately. Then I loaded all unrated songs into the main pane and selected all of them. It worked like a charm.

Thanks for a great script.

The script only saves the values into the database. You can then synchronise the track to save the ratings to the tags, or have your settings setup to do this automatically (like mine) or indeed add this line to the script. I'm glad you found the script useful. :)