Import BPM from MixMeister text-file - MixMeisterImport 1.02

[koro]

Hi berny,

tnx for the reply...

I did some searching and find the following...

I drag my files, wich i want the bmp for it, from Mediamonkey to MixM.

After the calculate of the BPM i'll save the txt file.

Now i discovered the following...

My files are stored on drive S:, wich is the path MixM goes to.
But in my MediaMonkey db the files are in the path //mp3/...... (selected via network places...)

So i think if i rescan all my files again , and take them from S:, the problem should be gone.

The reason i did the//mp3/.... thing is, that the S drive is on another PC.
When starting MM from my pc in my bureau, he don't find the db.
I have to select drive S first in explorer, before i can start MM.

With //mp3/.... i don't have that problem...

[Big_Berny]

Yeah, this is probably the problem. I hope that it works for you somehow as I don't have time at the moment to develop it further and I don't know how to fix that quickly.

[koro]

Hi Berny,

It was the problem with the path...

But i discovered another thing.

Mixmeister gives 124.99 and when importing the songs it becomes 12499 in Mediamonkey.

Do i do something wrong?

[Big_Berny]

Probably a localization bug because of '.' and ','... Unfortunately I don't have time to work on it at the moment as I work on nother project now. But feel free to work on it. Maybe you also find someone who helps?

[koro]

Hi all,

After my mails with Berny i found someone at my job who editted this wonderfull script.

When using the script now, the dot is not anymore in the tag.

When the BPM is 124.76 it becomes 125, and when its 124.35 it becomes 124

Code: Select all

Option Explicit
'1. Save this text as 'MixMeisterImport.vbs' in the Scripts-folder of MediaMonkey
'2. Add this Section to Scripts.ini

'[MixMeisterImport]
'FileName=MixMeisterImport.vbs
'ProcName=MixMeisterImport
'DisplayName=MixMeisterImport
'Language=VBScript
'ScriptType=0

'3. Edit the path to your MixMeister-BPM-file in the code below.
'4. Restart MediaMonkey
'5. You'll find "MixMeisterImport" under Tools/Scripts

Public Const path = "c:\bpm.txt" 'PUT THE PATH TO YOUR MIXMEISTER-BPM-FILE HERE

Sub MixMeisterImport
   Dim str, arr, fil, sit
   Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
   if fso.FileExists(path) then   
     Dim txt : Set txt = fso.OpenTextFile(path,1,False)
     SDB.Database.BeginTransaction
     Do While Not txt.AtEndOfStream
         str = Trim(txt.ReadLine)
         arr = Split(str,Chr(9)) 	
         fil = Mid(arr(0),2)	
         Set sit = SDB.Database.QuerySongs("AND (Songs.SongPath = '"&Replace(fil,"'","''")&"')")
         If Not (sit.EOF) Then 
            Dim itm : Set itm = sit.Item

	    if ((Mid(arr(3),(InStr(arr(3),".") + 1), 1)) >=5) then
		itm.BPM = (Left(arr(3),(InStr(arr(3),".") - 1)) + 1)
	    else
		itm.BPM = (Left(arr(3),(InStr(arr(3),".") - 1)))
	    end if

            itm.UpdateDB
         End If
      Loop
      Set sit = Nothing
      SDB.Database.Commit
   else
      SDB.MessageBox "The file `"&path&"` unfortunately doesn't exist."& vbCrLf &"Please modify the path to the MixMeister-BPM-file in the Scriptcode.", mtError, Array(mbOk)
   end if
End sub

[jjsemm]

I'm trying to add the script to import bpm's from mixmeister and i'm getting "permission" & "path not found errors" when I'm trying to save. My XP computer crashed, so I'm using our new Vista computer. I've tried adding the script under my regular windows log in and as th administrator. Does anybody have a clue what I need to do? Thanks in advance. ~ JJ

[ojk12]

Sorry guys, Please I need your help, I've been tryinng to tag the BPM value in my MP3 files but I can't get it. I used MixMeister but I cant get the BPM in the tag so I exported the playlist and tried to use this script but it doesnt work for me, the format for the txt file its something like this:

Song Path ArtisName BPM

D:\Mi Música\1\100 90's Thechno Hits\20. 2 Unlimited - Get Ready for This (Dance).mp3 2 Unlimited 124.9
D:\Mi Música\1\100 90's Thechno Hits\26. 69 Boyz - Tootsee Roll (Rap).mp3 69 Boyz 133.0
D:\Mi Música\1\100 90's Thechno Hits\43. Ace of Base - All That She Wants (Pop).mp3 Ace of Base 93.8

please help me

[ojk12]

Please, I've trying to use "MixMeisterImport 1.02" to tag the BPM but it says






The format of my generated txt file with MixMesiter is "SongPath ArtistName BPM", something like this:

D:\Mi Música\1\100 90's Thechno Hits\20. 2 Unlimited - Get Ready for This (Dance).mp3 2 Unlimited 124.9
D:\Mi Música\1\100 90's Thechno Hits\26. 69 Boyz - Tootsee Roll (Rap).mp3 69 Boyz 133.0
D:\Mi Música\1\100 90's Thechno Hits\43. Ace of Base - All That She Wants (Pop).mp3 Ace of Base 93.8

please help me

[Kynotzib]

Just a couple of questions.

1. Can this script be used to import other data to tracks like date, disk and track numbers by tweaking the itm:bpm to another item? (If so what are the itm names)
2. Can it import more than one item at once?

Kyno

[ojk12]

Sorry again, I found the way to tag BPM, it is with "MixMeister BPM Analyzer" and I was using the complete program instead analizer, I just have MM running while MixMeister BPM Analyzer is analizing the BPM and got no problems, it automatically updates the value in the MP3 file, also I have the file monitr activated in MM.

Thanks

[MarkMe]

For convenience I've added a file open dialog to the script.

Code: Select all

Option Explicit
'1. Save this text as 'MixMeisterImport.vbs' in the Scripts-folder of MediaMonkey
'2. Add this Section to Scripts.ini (remove ')

'[MixMeisterImport]
'FileName=MixMeisterImport.vbs
'ProcName=MixMeisterImport
'DisplayName=MixMeisterImport
'Language=VBScript
'ScriptType=0

'3. Edit the path to your MixMeister-BPM-file in the code below.
'4. Restart MediaMonkey
'5. You'll find "MixMeisterImport" under Tools/Scripts

Sub MixMeisterImport
   Dim path, ObjFSO, InitFSO
   
   Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
   ObjFSO.Filter = "Text Documents|*.txt|All Files|*.*" 
   InitFSO = ObjFSO.ShowOpen
   If InitFSO = true Then 'File was selected

	   path=ObjFSO.FileName
   
	   Dim str, arr, fil, sit
	   Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
	   if fso.FileExists(path) then   
		 Dim txt : Set txt = fso.OpenTextFile(path,1,False)
		 SDB.Database.BeginTransaction
		 Do While Not txt.AtEndOfStream
			 str = Trim(txt.ReadLine)
			 arr = Split(str,Chr(9))    
			 fil = Mid(arr(0),2)   
			 Set sit = SDB.Database.QuerySongs("AND (Songs.SongPath = '"&Replace(fil,"'","''")&"')")
			 If Not (sit.EOF) Then 
				Dim itm : Set itm = sit.Item

		   if ((Mid(arr(3),(InStr(arr(3),".") + 1), 1)) >=5) then
		  itm.BPM = (Left(arr(3),(InStr(arr(3),".") - 1)) + 1)
		   else
		  itm.BPM = (Left(arr(3),(InStr(arr(3),".") - 1)))
		   end if

				itm.UpdateDB
			 End If
		  Loop
		  Set sit = Nothing
		  SDB.Database.Commit
	   else
		  SDB.MessageBox "The file `"&path&"` unfortunately doesn't exist."& vbCrLf &"Please modify the path to the MixMeister-BPM-file in the Scriptcode.", mtError, Array(mbOk)
	   end if
   end if

End sub