set iTunesApp = WScript.CreateObject("iTunes.Application") Set objDic = CreateObject("Scripting.Dictionary") Set objPlistDic = CreateObject("Scripting.Dictionary") inListName = "SearchMusic"
set pInList = iTunesApp.LibrarySource.Playlists.ItemByName(inListName) for each Track in pInList.Tracks sstr = Track.Album & "," & Track.Name objDic.Add sstr, 1 next objPlistDic.Add "ライブラリ", 1 objPlistDic.Add "ミュージック", 1 objPlistDic.Add "SearchMusic", 1
if verbose <> 0 then WScript.Echo "Search List" end if for each PlayList in iTunesApp.LibrarySource.PlayLists if searchFolder = 1 or PlayList.SpecialKind <> 4 then if not objPlistDic.Exists(PlayList.Name) then objPlistDic.Add PlayList.Name, 1 for each Track In PlayList.Tracks sstr = Track.Album & "," & Track.Name if objDic.Exists(sstr) then if verbose <> 0 then WScript.Echo "Kind;" & PlayList.SpecialKind & ", Playlist:" & PlayList.Name & ", Music:" & sstr else WScript.Echo PlayList.Name end if exit for end if next end if end if next
set iTunesApp = WScript.CreateObject("iTunes.Application") set iFileSystem = WScript.CreateObject("Scripting.FileSystemObject") set pList = iTunesApp.LibraryPlayList set Sources = iTunesApp.Sources
Path = "C:\Videocopy\"
set pList = iTunesApp.LibraryPlayList set pFolder = iFileSystem.GetFolder(Path) for each files in pFolder.Files set TrackStatus = pList.AddFile(Path & files.Name) set TrackList = TrackStatus.Tracks for each Track in TrackList Track.Name = files.Name next next 0574名無しさん@お腹いっぱい。2017/04/21(金) 14:40:11.79ID:PZTBRKua イコライザ設定を追加登録する為のスクリプト
set iTunesApp = WScript.CreateObject("iTunes.Application") set iShell = CreateObject("Wscript.Shell") for each existeq in iTunesApp.EQPresets if strcomp(existeq.Name, EqName) = 0 then Var = MsgBox("登録済みのイコライザ設定を削除しますか?", 32 + 4, "情報") if Var = 7 then iShell.Popup "スクリプト停止します。",2,"処理中断", 0 + 64 WScript.Quit() else existeq.Delete(1) end if end if next
set iTunesApp = WScript.CreateObject("iTunes.Application") set Tracks = iTunesApp.SelectedTracks
for each Track in iTunesApp.SelectedTracks NStr = Track.Name rem -nn削除 ppos = instrrev(NStr, "-") revpos = len(NStr) - ppos + 1 if((ppos <> 0) and (revpos > 1) and (revpos < 5)) then NStr = left(NStr, ppos-1) end if Track.Name = NStr next WScript.Echo "Job complete." 0576名無しさん@お腹いっぱい。2017/08/11(金) 09:08:43.29ID:1j0drklL iTunes登録名の" 1"を消す為のスクリプト
set iTunesApp = WScript.CreateObject("iTunes.Application") set Tracks = iTunesApp.SelectedTracks
for each Track in iTunesApp.SelectedTracks NStr = Track.Name rem " n"削除 ppos = instrrev(NStr, " ") revpos = len(NStr) - ppos if((revpos > 0) and (revpos < 3)) then ns = right(NStr, revpos) nval = int(ns) if(nval>0) then NStr = left(NStr, ppos-1) end if end if Track.Name = NStr next WScript.Echo "Job complete." 0577名無しさん@お腹いっぱい。2019/01/18(金) 14:38:38.45ID:tt7x3CRE . 0578名無しさん@お腹いっぱい。2020/11/28(土) 15:13:00.81ID:WOjCMUka 曲名の後ろに付いた余計な文字を消すスクリプト
for each Track in iTunesApp.SelectedTracks NStr = Track.Name Wscript.Echo NStr do check = 0 rem 拡張子削除 for i = 1 to cMaxCount if strcomp(right(NStr, len(cstr(i))), cstr(i), 1) = 0 then NStr = left(NStr, len(NStr)-len(cstr(i))) check = 1 end if next loop while check <> 0 Track.Name = NStr next WScript.Echo "Job complete." 0579名無しさん@お腹いっぱい。2020/11/28(土) 20:58:44.74ID:kKikkg9/ すげーな。 0580名無しさん@お腹いっぱい。2023/09/10(日) 13:35:00.59ID:2INprb6x ∑(゚Д゚)アァ!?