【ipod】おまいらのスマートプレイリスト5

【ipod】おまいらのスマートプレイリスト5 (584ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

572: 名無しさん＠お腹いっぱい。 [sage] 2017/03/12(日) 16:17:02.14 ID:YCvAgeLH

某スレにあった、特定の曲が存在しているプレイリストを抽出するスクリプト。
検索対象を "SearchMusic"というプレイリストに登録しておいて、その曲が含まれてる
プレイリスト名一覧を出力します。

3行目をsearchFolder = 1にするとFoolderも検索対象になります。でも多分うざい。
4行目は主にデバッグ用。verbose = 1にするとメッセージが増えます。
正直相当遅いです。あと、ダブルクリックでの起動は勧めません。
出来ればPowerShell上から、 cscript .\（スクリプト名).vbsで起動をお勧め。

on error resume next

searchFolder = 0
verbose      = 0

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

WScript.Echo "Job complete."

http://kizuna.5ch.net/test/read.cgi/wm/1230937106/572

574: 名無しさん＠お腹いっぱい。 [sage] 2017/04/21(金) 14:40:11.79 ID:PZTBRKua

イコライザ設定を追加登録する為のスクリプト

主にPerfectとかEargasm Explosionのような設定を確実に登録する為に使う。

スクリプトの3行目から5行目に、イコライザ名、プリアンプ値、バンド値が並んでいるので、
適当に書き換えて配布すれば誰でも確実に設定出来る。同名のイコライザ登録があると
消去するか聞いてくるので、消去すれば書き換え、消去しない場合は登録中断する。
サンプルはEargasm Explosion。

dim vBand

EqName = "Eargasm Explosion"
vPreamp = -3.0
vBand = Array(3,6,9,7,6, 5,7,9,11,8)

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 eq = iTunesApp.CreateEQPreset(EqName)
if eq.Modifiable then
eq.Preamp = vPreamp
eq.Band1 = vBand(0)
eq.Band2 = vBand(1)
eq.Band3 = vBand(2)
eq.Band4 = vBand(3)
eq.Band5 = vBand(4)
eq.Band6 = vBand(5)
eq.Band7 = vBand(6)
eq.Band8 = vBand(7)
eq.Band9 = vBand(8)
eq.Band10 = vBand(9)
iShell.Popup "イコライザ設定を追加しました。",2,"処理終了", 0 + 64
else
WScript.Echo "このイコライザ設定の変更は出来ません"
end if

http://kizuna.5ch.net/test/read.cgi/wm/1230937106/574

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.026s