Just List Albums 2.1 - Updated 17/03/2013

[beg]

Hi Eval,

thx for the reply! I did not get the notification for your reply, and found out by myself by trying.. But thank you!

I did not think it could be that straight forward even without any escape character for < or /.. so

thx,
Bernhard

[trixmoto]

New version (1.8.) is now available to download from my website. Changes include...

- Added <Genre> and <Comment> fields to Mask and CompMask

[Eyal]

Great! Thank you Trixmoto.

[Musikkius]

Hey
Thanks for a great script which allows us to modify it in a simple way.
I wanted to sort on artist - date - album to get the artists albums in order after the year they were released...

But when i edited the vbs-file to:

Option Explicit

Dim Mask : Mask = "<Artist> - <Year> - <Album> (<Tot>/<Max>)" 'mask for artist albums

the result was like this for all albums:

Frank Zappa - ???? - Cheap Thrills (13/13)
Frank Zappa - ???? - Chungas Revenge (10/10)
Frank Zappa - ???? - Freak Out! (15/15)
Frank Zappa - ???? - Freaks & Motherfuckers (10/10)

I understand that the date-value is generated in this section:
If itmID > 0 Then
'calculate field values
sql = "SELECT Max(CAST(TrackNumber AS INTEGER)) AS vMax, Count(*) AS vTot, Sum(SongLength) AS vLen, Avg(Year/10000) AS vYea, Avg(Rating) AS vRat, Max(CAST(DiscNumber AS INTEGER)) AS vDis, Count(DISTINCT CASE WHEN INSTR(Artist,';')>0 THEN SUBSTR(Artist,1,INSTR(Artist,';')-1) WHEN INSTR(Artist,';')=0 THEN Artist END) AS vArt, Avg(Bitrate) AS vBit FROM Songs WHERE IDAlbum="&itmID
Set iter = SDB.Database.OpenSQL(sql)
theyear = getval(iter,"vYea")
If theyear = "0" Then
theyear = "????"

I run Mediamonkey Gold Ver. 3.2.4.1304 Norwegian language with 32bit XP proffessional Norwegian edition.
In the Properties-boxes i have written 4-digit numbers in every date-field exept the "original date"-field, which is left empty.

Please ask if you need any further information, i will gladly assist you with getting the missing dates fixed....

[trixmoto]

I don't know what to say really, if you've specified the date with a 4 digit year then this should definitely be working, because that's what I always do. If I gave you some SQL to run, would you know how to?

[Musikkius]

I am not a trained professional, but I am familiar with some programming.

But first i want to try the script on a few other machines to see if i get it right there.

I guess it can be something wrong with my computer

[SDJeff]

Here's what I've done, I use the "%" as separator for when I use text to columns with excel.
Also, I changed the path to where the resulting txt file is saved.

Great script!

Code: Select all

Option Explicit

Dim Mask : Mask = "<Artist>%<Year>%<Album>" 'mask for artist albums
Dim TrackMask : TrackMask = "" 'blank mask means no tracks are displayed
Dim CompMask : CompMask = "<Artist>%<Year>%<Album>" 'mask for compilation albums
Dim FirstMask : FirstMask = "" 'mask for first track in an album

Sub JustListAlbums 
  Dim list : Set list = SDB.CurrentSongList
  If list.Count = 0 Then
    Call SDB.MessageBox( SDB.Localize("Please select tracks to be exported."), mtError, Array(mbOk))
    Exit Sub
  End If
  
  Dim fso : Set fso = SDB.Tools.FileSystem
  Dim path : path = "D:\Temp\Albums.txt"

[Musikkius]

I don't know what to say really, if you've specified the date with a 4 digit year then this should definitely be working, because that's what I always do. If I gave you some SQL to run, would you know how to?

I can try, if you give me a brief descripion.

I have tried my date-script as described in my first post on several different machines with both XP and Windows 7. They all returns the value 0 into the variable "theyear", resulting in ???? as the date in the text-file.


SDJeff, do you get the correct value of the date when you run your script?

If so, any suggestions on why it doesn`t work on my machines?

[Eyal]

They all returns the value 0 into the variable "theyear", resulting in ???? as the date in the text-file.
(...) If so, any suggestions on why it doesn`t work on my machines?

It does work for me either... It was OK in previous versions but can't tell in which one it has stopped working.

[MoreTrife]

Sorry if this has been addressed somewhere but I used Justlistalbums to generate a list of my CDs and it is missing some...seemingly the ones most recently ripped into the library. It generated a list around 600 albums, it left out around 400. Is there a max number of albums it will display? Thanks for any help!

[trixmoto]

There's theoretically no maximum, but I've never tried it with this number.

[Musikkius]

I just tried to list my albums now, and all 1228 albums showed up in the generated text-file.

But they were still missing the date. I see that there are two of us which is experiencing the same.....

[beg]

Hi,

can you please tell me if Just List Albums 1.8 is running on MM 4 beta?

thx,
Bernhard

[trixmoto]

I haven't tried it, but there's no reason why it shouldn't.

[ajaxmike]

You might need to change the mask variables at the top of the script to include the fields you wish to be displayed.

I have the script working and I import into Excel to put the data in columns. However, I am only seeing three fields: artist, album, and some number (xx/xx) appended to the Album title. I can't find the mask you speak of to change the fields displayed.