MediaMonkey forum

Posted: **Wed Oct 10, 2007 5:18 pm**

I've corrected my previous post - I used the wrong quote marks!

Posted: **Wed Oct 17, 2007 5:00 pm**

New version (1.3) is now available from my website. Changes include...

- Added option to generate report for all playlists

Posted: **Mon Oct 22, 2007 7:59 am**

Hi Trixmoto:

I've been playing with the new Custom report and I have a few questions/updates, I was wondering if you could help me (again).

I've created a report of my playlists using the new feature you've added and I was wondering if it is possible to have a blank line appear between each playlist? I tried to put a blank line in the report requirements but it just ran them all together when they were exported to Excel. Very confusing to separate and read 94 playlists.

The second request is, is there a field in the report that would extract the total number of songs in each playlist? In other words, I would only like the report to extract the name of the playlist and the number of songs which are in the playlist, it would be similar to the statistics report?? This would be a nice feature because I use this list to compare to my player to determine if any of the playlists are missing songs.

Thanks again,

Nyn

Posted: **Mon Oct 22, 2007 9:24 am**

Well you could do this by replacing lines 371-389...

Code: Select all

      Select Case DropDown1.ItemIndex
        Case 0 'CSV
          If Not Unicode Then
            name = SDB.ToAscii(name)
          End If
          Call f.WriteLine(name)
        Case 1 'HTML
          Call f.WriteLine("<tr><td colspan=99><b>"&MapXML(name,False)&"</b></td></tr>")
        Case 2 'XLS
          y = y+1
          ws.Cells(y,1).Value = name
        Case 3 'XML
          Call f.WriteLine("<Playlist title='"&MapXML(name,True)&"'>")
        Case 4 'TXT
          If Not Unicode Then
            name = SDB.ToAscii(name)
          End If      
          Call f.WriteLine(name)
      End Select

...with...

Code: Select all

See below

Posted: **Mon Oct 22, 2007 10:50 am**

Trixmoto:

When I try to run the report using only the playlists I get the following error:

Error #438 - Microsoft VBScript runtime error
Object doesn't support this propety or method: 'Tracks'
File: "c:\program files\mediamonkey3\scripts\customreport.vbs", line: 381, Column 10

The script runs when I use selected tracks but I do not see any differences from what you had it doing before.

Nyn

Posted: **Mon Oct 22, 2007 5:28 pm**

Sorry, my fault. Should be "list.Count" not "list.Tracks.Count" - I've corrected my previous post so recopying the code should provide the output you're after.

Posted: **Mon Oct 22, 2007 5:42 pm**

Trixmoto:

Once again you have made my job easier, if you keep this up I am going to have to put you on the payroll. A little side note, I recieved an error when I copied the code, but when I removed the last line all was well.

Nyn

Posted: **Mon Oct 22, 2007 5:53 pm**

Sorry, my fault for trying to code ad-hoc with testing!! Try this if you want to include the blank line you were after...

Code: Select all

      Select Case DropDown1.ItemIndex
        Case 0 'CSV
          If Not Unicode Then
            name = SDB.ToAscii(name)
          End If
          Call f.WriteLine(name&" ("&list.Count&")")
          Call f.WriteLine("")
        Case 1 'HTML
          Call f.WriteLine("<tr><td colspan=99><b>"&MapXML(name&" ("&list.Count&")",False)&"</b></td></tr>")
          Call f.WriteLine("<tr><td colspan=99></td></tr>")
        Case 2 'XLS
          y = y+1
          ws.Cells(y,1).Value = name&" ("&list.Count&")"
          y = y+1
        Case 3 'XML
          Call f.WriteLine("<Playlist title='"&MapXML(name&" ("&list.Tracks.Count&")",True)&"'>")
        Case 4 'TXT
          If Not Unicode Then
            name = SDB.ToAscii(name)
          End If      
          Call f.WriteLine(name&" ("&list.Count&")")
          Call f.WriteLine("")
      End Select

Posted: **Mon Oct 22, 2007 6:03 pm**

Now I get the following error:

Error #70 - Microsoft VBScript runtime error
Permission Denied
File: "c:\program files\mediamonkey3\scripts\customreport.vbs", line: 338, Column 8

You don't have to put too much trouble into in, now that you added the total number of songs in each playlist in parenthesis, I can scan the file looking for those.

Nyn

Posted: **Tue Oct 23, 2007 3:01 am**

I think I might give up for now then. I'm not on the right machine to test it today!

Posted: **Tue Oct 23, 2007 8:18 am**

You know I must have either copied something wrong on my home computer or there is something else going on there, because it works here on my work computer. Of course here I am running XP and at home I am running Vista. So I am going to try this version of the vbs file at home. If it works all is well, if it doesn't I have to do some research to find out what is preventing it from working.

Nyn

EDIT: Ok tried the file on my Vista machine and it did not work. After scouring the internet to try to find out what was the difference between the Vista and XP machines, I realized the problem was I had the file open that I was telling the report to export to. SORRY for my **stupidity**, consider this one a done deal.

Posted: **Fri Oct 26, 2007 6:13 pm**

Thanks for this great sricpt. Its working well.

However there is one thing I am missing. What about a format-option for CD-Covers ? I mean. having this great Track list in my hand I would really love it to print out in the right format fpr CD-Jewels.

Is there a chance to do so ?

Thanks

Posted: **Mon Oct 29, 2007 4:21 am**

I guess this could be done using absolute position in html, but it wouldn't be applicable to the other file formats I don't think. I might take a look at doing it. Really it's another application and there was one being produced here but it appears the main developer has no time to continue the project, unfortunately.

Posted: **Sat Nov 10, 2007 2:37 pm**

Thank you for another very nice script.

I hope you will add Custom4 and Custom5 to the list of selectable fields in your next version.

Here on the Forum it is correctly called a MM2+3 script, but on your home page I can only see the MM2 monkey.

Posted: **Mon Nov 12, 2007 6:03 am**

I do plan to add all the extra MM3 fields once the property values have been released, I don't know if they are accessible through scripting yet. An MM3 installation package is on my to do list but I've not got round to it yet, sorry!

MediaMonkey forum

Custom Report 3.2 - Updated 29/07/2014