Listing all Artists from Album into One Tag Field

Here comes another modification of the export script from before.
The artist names are separated by the delimiter sequence "; " (semicolon+space).
The list of artist names contains unique artist names and is sorted by artist name.

01: $filename($getEnv('USERPROFILE')'\Desktop\Mp3tag.Report.CollectArtistsPerAlbum.txt',UTF-8)

02: $puts(Info,'This Mp3tag export script creates a report text file of format CSV (
comma separated values).
')
03: $puts(Info,'The CSV columns are: "Album","ArtistCollection","Filepath".')
04: $puts(Info,'The CSV output list is sorted by "Album", then by "Filepath".')
05: $puts(Info,'The CSV column "ArtistCollection" contains a list of artist names, which have been collected from
the files of the related Album.
')
06: $puts(Info,'The artist names are separated by the delimiter sequence "; " (semicolon+space).')
07: $puts(Info,'Duplicate artist names will be removed from the list of artist names.')
08: $puts(Info,'The list of artist names will be sorted by artist name.')$puts(Info,)
09: $loop(%ALBUM%)$puts(ListOfArtists,)$loop(%ARTIST%)$loop(%ALBUM%)$puts(ListOfArtists,$get(ListOfArtists)%ARTIST%'; ')$loopend()$loopend()
10: $loop(%ALBUM%)$puts(ListOfArtists,$trim($regexp($get(ListOfArtists),'(?:(?<=;)|(?<=\A)|(?<=^))\s?([^;]);(?=.?(?<=;)\s?\1(?=;|\Z|$))(?#remove dups from semicolon- or semicolon+space- delimited list)',),'; '))$loopend()
11: $loop(%ALBUM%)$loop(%_path%)'"'%ALBUM%'","'$get(ListOfArtists)'","'%_path%'"'
12: $loopend()$loopend()$loopend()

20130208.Export.CollectArtistsPerAlbum.3.mte (1.27 KB)

DD.20130208.1108.CET

20130208.Export.CollectArtistsPerAlbum.3.mte (1.27 KB)