![]() ![]() If HeaderIni = 0 Then HeaderIni = 1: exit sub 'PIC not found searching from start 'WScript.Echo "Hex rep: " & strHEX_Pmt & " " & CLng("&H" & strHEX_Pmt)Īrtsize_pmt = CLng("&H" & Hex_Size_Pmt)-14 StrBuffer = MidB(arrBuffer,HeaderIni,2*Tam)Īux = Right("0000" & Hex(AscW(Mid(strBuffer,1,1))), 4) 'WScript.Echo "Header Ini: " & HeaderIni & " Fim: " & HeaderFim & " ,Tam: " & Tam 'Ler entre Apic (41 50 49 43) e Image (69 6D 61 67 65), depois converter pra decimal 'remove duplicate space from the Target file name Sub CoverSize (ByVal strSourceFile, ByVal Format_pmt, ByRef Artsize_pmt, ByRef Hex_Size_pmt, ByRef strHex_Pmt) 'IN THIS CODE, I SAVE THE ART TO A FILE AND THEN CHECK ITS SIZEĭim iTunesApp ' iTunes.Application object used to access the iTunes application.ĭim tracks ' The tracks collection object of the Library object. 'CREATES AN EXCEL SHEET WITH ALL THE FILES IN A PLAYLIST, They are currently pointing to folders on my computer, and the script will crash since they probably don't exist in your computer. Note that you have to change both the location where the final excel file is saved, and the location where the cover is extracted to so its dimensions are grabbed. A for art, -D for dimensions, -S for grouping/sort tags, and -H for hexadecimal cover reading (don't use this option.) When you call the script, there are 4 possible parameters. Most of the tags of the selected playlist are saved in an excel file at the end. It does that by extracting the cover to a file, and then using the windows file system to check the dimensions. ![]() If you use iTunes, I've created a vb script that extracts the dimensions of the cover of an image. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |