色々日記（ざ・めも）

ENV['PATH'] = 'c:\online\lame;c:\online\acdir;' + ENV['PATH']

dir_name = File.dirname(ARGV[0]) + "\" + File.basename(ARGV[0], ".*")

`acdir.exe --output "#{dir_name}\$n.$t.mp3" --pipe "lame -b 256 --replaygain-accurate --clipdetect -T --tt $#t --ta $#a --tl $#T --tn $#n --tg $#r{GENRE} --ty $#r{DATE} $x - $#o" "#{ARGV}"

print "\a\a"

　--clipdetect : LAMEタグに音量ピーク値を保存する。メッセージ表示。

　--replaygain-accurate : より正確にリプレイゲイン情報を計算する

　-T : lameタグを強制的に書き込む。

WARNING: clipping occurs at the current gain. Set your decoder to decrease
the gain by at least 0.8dB or encode again using --scale 0.91
or less (the value under --scale is approximate).

Error flushing file (Unsupported format or corrupted file) : ファイル名

%s %d

HKEY_LOCAL_MACHINE\SYSTEM\使っているコントロールセット\Control\StillImage\Events\STIProxyEvent

[HKEY_LOCAL_MACHINE\SYSTEM\使っているコントロールセット\Control\StillImage\Events\STIProxyEvent\{アプリのGUID}]

ReadFile = "F:\みんなのうた_02281654.MPG"
OutPutFile = "F:\test.avi"
ID = Exec("c:\online\aviutl\aviutl.exe")

//バッチのクリア
ClkItem(ID, "ファイル\バッチ出力")
ClkItem(GetID("バッチ出力"), "すべて削除")
if GetID("OK") then ClkItem(GetID("AviUtl"), "OK")

ClkItem(GetID("バッチ出力"), "閉じる")

////////ここからループ
//読み込み
ClkItem(ID, "ファイル\開く (Ctrl+O)")
SendStr(GetID("ファイルを開く"), ReadFile, 1, TRUE)
ClkItem(GetID("ファイルを開く"), "開く")

while ClkItem(ID, "ファイル\AVI出力 (Ctrl+S)") <> TRUE
	Sleep(1)
wend

SendStr(GetID("名前を付けて保存"), OutPutFile, 1, TRUE)
ClkItem(GetID("名前を付けて保存"), "バッチ登録")

//同名のファイルが存在したら強制上書き
if GetID("はい") then ClkItem(GetID("名前を付けて保存"), "はい")
////////ここまでループ

ClkItem(ID, "ファイル\バッチ出力")
ClkItem(GetID("バッチ出力"), "開始")

Sleep(1)

while GetID("バッチ出力") <> -1
	Sleep(1)
wend

Sleep(1)

ClkItem(ID, "終了")