Import BPM from MixMeister text-file - MixMeisterImport 1.02

Big_Berny · Post by **Big_Berny** » Sat Jan 12, 2008 8:29 pm

Hi guys,
yesterday I wantes Mixmeister to detect all BPMs of my song. Unfortunately it couldn't save the BPMs in the file, don't know why. But I have a text-file where the informations are stored in.

It's strucktured like "Path[Tab]Title[Tab]Artist[Tab]BPM[Tab]".
The first three lines here:

Code: Select all

D:\Eigene Dateien\Eigene Musik\Final\!!!\2007 - Myth Takes\01 - !!! - Myth Takes.mp3	Myth Takes	!!!	97.07	
D:\Eigene Dateien\Eigene Musik\Final\!!!\2007 - Myth Takes\02 - !!! - All My Heroes Are Weirdos.mp3	All My Heroes Are Weirdos	!!!	122.31	
D:\Eigene Dateien\Eigene Musik\Final\!!!\2007 - Myth Takes\03 - !!! - Must Be The Moon.mp3	Must Be The Moon	!!!	120.06

Does someone have a idea how I can import them? The first problem I have is that I don't know how to get the Path and the BPM (=How to extract from the whole line) and I don't know how to get the song with the path (=Don't know the sql-query).
Would be cool if someone would have the basic lines so that I can import the BPMs.

Thanks!

trixmoto · Post by **trixmoto** » Sun Jan 13, 2008 11:43 am

Well to read the lines of the file you want to have a loop, something like this...

Code: Select all

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim txt : Set txt = fso.OpenTextFile(xml,1,False)
Do While Not txt.AtEndOfStream
  Dim str : str = Trim(txt.ReadLine)
Loop

To get the parts of the line you want you can split the string into an array, like this...

Code: Select all

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim txt : Set txt = fso.OpenTextFile(xml,1,False)
Do While Not txt.AtEndOfStream
  Dim str : str = Trim(txt.ReadLine)
  Dim arr : arr = Split(str,Chr(9))
  Dim fil : fil = arr(0)
  Dim bpm : bpm = arr(3)
Loop

And then to find the track you need to query like this...

Code: Select all

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim txt : Set txt = fso.OpenTextFile(xml,1,False)
Do While Not txt.AtEndOfStream
  Dim str : str = Trim(txt.ReadLine)
  Dim arr : arr = Split(str,Chr(9))
  Dim fil : fil = Mid(arr(0),2)
  Dim sit : Set sit = SDB.Database.QuerySongs("AND (Songs.SongPath = '"&Replace(fil,"'","''")&"')")
  If Not (sit.EOF) Then 
    Dim itm : Set itm = sit.Item
    itm.BPM = arr(3)
    itm.UpdateDB
  End If
Loop

Hope this helps!

Big_Berny · Post by **Big_Berny** » Sun Jan 13, 2008 1:05 pm

Thanks a lot! That helped!

And another step to a perfect and complete library...

What a great forum...

trixmoto · Post by **trixmoto** » Sun Jan 13, 2008 3:17 pm

Glad I could help.

m_bojangles · Post by **m_bojangles** » Sun Jan 13, 2008 5:16 pm

I'm in this same situation. Berny, can you post your complete script? Thanks.

Big_Berny · Post by **Big_Berny** » Sun Jan 13, 2008 5:19 pm

Well here it didn't work directly so I imported the date into a custom field first and then into the BPM. But I can write a complete script if you want. Just need some days because I still have some exams...

m_bojangles · Post by **m_bojangles** » Sun Jan 13, 2008 5:32 pm

I don't mind using your initial approach... I don't need anything elegant. So do you have a script for importing the BPM into a custom field?

Then did you use one of those cool "set a field to the value of another field" scripts I've seen floating around on here?

Thanks!

Big_Berny · Post by **Big_Berny** » Sun Jan 13, 2008 5:36 pm

Well, I just have a temp.vbs-file which I always use for small temporary scripts. So I don't have the code anymore. But I'll post it soon!

vanmeterannie · Post by **vanmeterannie** » Sat Jan 19, 2008 4:28 pm

So, I'm new at this coding thing...will the above sections work pieced together, or is there more to it? I'd love to be able to extract the info as well, since I have all ape files - it'll be a bear to make mp3s of them and get the bpm from that, but I don't see another way around it, and I'd like to pull that data from the txt file.

trixmoto · Post by **trixmoto** » Sun Jan 20, 2008 7:25 am

If the "sections" means the 3 chunks of code I posted at the top, then you only need the last one. If you check them carefully, they are the same code but adding extra lines each time, as I was explaining each thing that I was doing.

This is a VERY rough-and-ready block of code, but it should be usable.

mhendu · Post by **mhendu** » Mon Feb 25, 2008 10:55 pm

Has anyone worked out this script completely? I'd love to be able to import the BPM data from MixMeister but my scripting skills are meager. Thanks!

spacefish · Post by **spacefish** » Mon Feb 25, 2008 11:05 pm

I'd be interested in this too!

mhendu · Post by **mhendu** » Thu Apr 10, 2008 2:21 pm

Soooo - I'm sorry to keep asking but if anyone could help out with this script I'd really appreciate it. I don't know of any other way to easily get the BPMs imported for all my tracks and I'm sure others would find this to be useful also. Thanks!

newmomma · Post by **newmomma** » Fri Apr 11, 2008 10:04 am

I don't know much about the whole code thing, but in order to import BPM into my library I just ran the songs on MixMeister and then highlighted the whole thing and dragged and dropped into my library. All tags were updated... I didn't bother saving as a text file 'cuz I couldn't figure out how to use it! Hope this is useful to someone

Big_Berny · Post by **Big_Berny** » Fri Apr 11, 2008 11:27 am

@newmomma: Unfortunately this doesn't work for some songs - don't know why though...

Sorry, that I forgot to finish the script. I'll do that as soon as possible!