FasdUAS 1.101.10 k l  "Playlist Tracks to Album" for iTunes written by Matt Thornton weirdbeard@gmail.com v1.0 January 25, 2009 For all tracks in a selected playlist, it will create album playlists for all albums in a playlist folder. The primary purpose is to point it at your "my top rated" so that instead of just copying single high rated tracks, complete albums are copied to your iPod device. Uses ideas from code from various scripts at Doug's Scripts : Track Playing Playlist creator, Batch-Delete playlist, Track's album to playlist etc.   " "Playlist Tracks to Album" for iTunes written by Matt Thornton weirdbeard@gmail.com v1.0 January 25, 2009 For all tracks in a selected playlist, it will create album playlists for all albums in a playlist folder. The primary purpose is to point it at your "my top rated" so that instead of just copying single high rated tracks, complete albums are copied to your iPod device. Uses ideas from code from various scripts at Doug's Scripts : Track Playing Playlist creator, Batch-Delete playlist, Track's album to playlist etc.  l  j 0plnameplName m  j 0plrefplRef m  msng j 0 plfolderref plFolderRef m  msng l l$ O$ k# l ! l"# " get selected playlist#$$, get selected playlist!%& %Q'() 'km**+, +r-. -l/ /n01 01   pnam 1n 23 21  pPly 34 4  cwin 4m  .o 0plnameplName,5 5Zm678 6=9: 9o 0plnameplName :m;;<< Music 7k P==>? >r 2@A @l 0B BI 0CD .sysodlogaskrTEXT Cm !EEFFAre you sure you want to create album playlists for every album in your library?DGH  btns GJ"&IIJK Jm"#LLMMOKKN Nm#$OOPPStopHQR  dflt Qm'(RST  disp Sm)*TU  givu Um+, Ao 0response?V VZ3PWXY W=3<Z[ Zn38\] \148  bhit ]o34 0response [m8;^^__OK Xr?K`a `4?Eb  cLiP bmCD ao 0plrefplRef YLNP 8rSmcd c6Sgef e3SX  cUsP f=[fgh g1\^  pnam ho_e 0plnameplName do 0plrefplRef (Ri .ascrerr ******** io 0errmsg )kujjkl kIumn .sysodlogaskrTEXT mbuzop omuxqqrrCouldn't get name of selected playlist. Check selection is a playlist! poxy 0errmsgnst  btns sJ{uuv vm{~wwxxOKtyz  dflt ymz{|  appr {m}}~~ Error|  disp m  givu ml L& l l 4. create album folder to store new playlists in\ create album folder to store new playlists in Q k r l b o 0plnameplName m albums o 0 plfoldername plFolderName Z I .coredoexboolobj l 6 3  cFoP = 1  pnam o 0 plfoldername plFolderName l I .coredeloobj obj l 6 3  cFoP = 1  pnam o 0 plfoldername plFolderName 0*deletes all playlists contained within it!Tdeletes all playlists contained within it! r l I .corecrel****null m  cFoP  prdt K  pnam o 0 plfoldername plFolderName o 0 plfolderref plFolderRef R .ascrerr ******** o 0 error_message k I .sysodlogaskrTEXT b mDError processing playlist folder: o 0 error_message  btns J mOK  dflt m  appr m   Error  disp m   givu m L l r m o  0plprocesscountplProcessCount r 1 l -~} I -|{ |.corecnte******** l )zy n ) 2%)x x cFlT o %w w0plrefplRefzy{~} ov v0 pltrackcount plTrackCount r28 J24uu ot t0 albumlist albumList l99srqsrq V9! kE rEY nEU 1QUp p pAlb lEQon nEQ 4JQm m cTrk oMPl l 0plprocesscountplProcessCount oEJk k0plrefplRefon oj j0 tempalbum tempAlbum ZZih >Ze cZa oZ]g g0 tempalbum tempAlbum m]`f f TEXT mad lh Zhed Hhp Eho ohkc c0 albumlist albumList oknb b0 tempalbum tempAlbum ks  rs{   osva a0 tempalbum tempAlbum  n   ;yz  ovy` `0 albumlist albumList   r| I|_ _.corecrel****null m|^ ^ cUsP]\ ] prdt K[Z [ pnam lYX c oW W0 tempalbum tempAlbum mV V TEXTYXZ\ oU U0 tempplaylist tempPlaylist r e n 1T T pPIS oS S0 tempplaylist tempPlaylist oR R 0tempplaylistidtempPlaylistID !  lQPOQPO!"# "lN$%N $ gather album tracks%&&( gather album tracks#'( 'r)* )l+ML +6,- ,n./ .2K K cFlT /4J0 J cLiP 0mII -=12 11H H pAlb 2oG G0 tempalbum tempAlbumML *oF F0 these_tracks(34 3lEDCEDC456 5lB78B 7! copy tracks to playlist 8996 copy tracks to playlist 6:; :X? @.coreclon******** >o? ? 0a_track?>@= > insh @o< <0 tempplaylist tempPlaylist= A 0a_track =o; ;0 these_tracks;AB Al:98:98BCD Cl7EF7 E move playlist to folderFGG0 move playlist to folderDH6 HI 5IJ 5.coremovenullcPly IlK43 K6LM L32 2 cUsP M=NO N11 1 pPIS Oo0 0 0tempplaylistidtempPlaylistID43J/P. / insh PlQ-, Q4+R + cFoP Ro* *0 plfoldername plFolderName-,.6ed # ignore tracks with no album!SS: ignore tracks with no album!ihT) TrUV U[WX Wo( ( 0plprocesscountplProcessCount Xm'' Vo& & 0plprocesscountplProcessCount) B=DYZ Yo=@% % 0plprocesscountplProcessCount Zo@C$ $0 pltrackcount plTrackCount[\ [l""#"!#"!\]^ ]l"" _` _QK set these_tracks to (file tracks of library playlist 1 whose album is alb)`aa set these_tracks to (file tracks of library playlist 1 whose album is alb)^b bl"" mcchookalisL Macintosh HDH+ iTunes.app Nñ Applicationsñ$Macintosh HD:Applications:iTunes.app iTunes.app Macintosh HDApplications/iTunes.app/defghijklmnd  0plnameplName 0plrefplRef 0 plfolderref plFolderRef .aevtoappnull**** 0 plfoldername plFolderName  0plprocesscountplProcessCount 0 pltrackcount plTrackCount 0 albumlist albumList 0 tempalbum tempAlbum 0 tempplaylist tempPlaylist 0tempplaylistidtempPlaylistID 0 these_trackseooTest Playlistfppqqc  cSrc)  kfrmID  cUsPx)  kfrmID grrssc  cSrc)  kfrmID  cFoPxf  kfrmID htuv .aevtoappnull**** tk$wwu 0errmsg 0 error_message 0a_trackv:c;ELO^xqw}  cwin  pPly  pnam  btns  dflt  disp  givu .sysodlogaskrTEXT 0response  bhit  cLiP  cUsPx 0errmsg  appr 0 plfoldername plFolderName  cFoP .coredoexboolobj .coredeloobj obj  prdt .corecrel****null 0 error_message 0plprocesscountplProcessCount  cFlT .corecnte******** 0 pltrackcount plTrackCount 0 albumlist albumList  cTrk  pAlb 0 tempalbum tempAlbum  TEXT 0 tempplaylist tempPlaylist  pPIS 0tempplaylistidtempPlaylistID 0 these_tracks  kocl  cobj  insh .coreclon******** .coremovenullcPly%!k*k/,,EcOb5lvll EOa,a*ak/EcYhY*a.a[,\Zb81EcW'Xa%akvkaala OhO]ba%E`O*a.a[,\Z_81j *a.a[,\Z_81j YhOaa!_ll "EcW'X#a$%a%kvkaa&la OhOkE`'Oba(-j )E`*OjvE`+Oh_'_*ba,_'/a-,E`.O_.a/&a0_+_. _._+6FOaa!_.a/&ll "E`1O_1a2,EE`3O*ak/a(-a[a-,\Z_.81E`4O%_4[a5a6l )kha7_1l 8[OYO*a.a[a2,\Z_381a7*a_/l 9YhYhO_'kE`'[OYOPUiyy(Test Playlist albumsjzz{|k{}}Armageddon|~~4Whitesnake's Greatest HitskhThe Best Air Guitar Album In The World Ever (Disc 2)lc  cSrc)  kfrmID  cUsPx  kfrmID m 5647074617EC1C1Bnc  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID ~c}|{ } cSrc|) { kfrmID  cLiP`a ~ kfrmID  cFlTj  kfrmID zyxwvuctsr t cSrcs) r kfrmID w cLiPv`a u kfrmID z cFlTyj x kfrmID qponmlckji k cSrcj) i kfrmID n cLiPm`a l kfrmID q cFlTpj o kfrmID hgfedccba` b cSrca) ` kfrmID e cLiPd`a c kfrmID h cFlTgj f kfrmID _^]\[ZcYXW Y cSrcX) W kfrmID \ cLiP[`a Z kfrmID _ cFlT^j ] kfrmID VUTSRQcPON P cSrcO) N kfrmID S cLiPR`a Q kfrmID V cFlTUj T kfrmID MLKJIHcGFE G cSrcF) E kfrmID J cLiPI`a H kfrmID M cFlTLj K kfrmID DCBA@?c>=< > cSrc=) < kfrmID A cLiP@`a ? kfrmID D cFlTCj B kfrmID ;:9876c543 5 cSrc4) 3 kfrmID 8 cLiP7`a 6 kfrmID ; cFlT:j 9 kfrmID 210/.-c,+* , cSrc+) * kfrmID / cLiP.`a - kfrmID 2 cFlT1j 0 kfrmID )('&%$c#"! # cSrc") ! kfrmID & cLiP%`a $ kfrmID ) cFlT(j ' kfrmID  c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID   c  cSrc)  kfrmID  cLiP `a  kfrmID  cFlT j  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID c  cSrc)  kfrmID  cLiP`a  kfrmID  cFlTj  kfrmID ascr ޭ