ゆっくりムービーメーカー4の定義ファイルからセリフを抜き出すバッチ

ゆっくりムービーメーカー4の定義ファイルからセリフを抜き出すバッチです。

@if(0)==(0) ECHO OFF
:カレントDIRをこのバッチが置かれたDIRに変更
cd /d %~dp0
%SystemRoot%\SysWOW64\cscript.exe //nologo //E:JScript "%~f0" %* | sort > serifu.csv
GOTO :EOF
@end

// 読み込み
var sr = new ActiveXObject("ADODB.Stream");
sr.Type = 2;
sr.charset = "utf-8";
sr.Open();
sr.LoadFromFile( "init1.ymmp" );   //ymm4のymmpファイル名
var temp = sr.ReadText( -1 );
sr.Close();
//設定ファイルをオブジェクトとしてとりこみ
parsedjson = eval('('+temp+')');
//WScript.echo(parsedjson["Timeline"]["Items"][0]["CharacterName"])
for (var i = 0; i < parsedjson["Timeline"]["Items"].length; i++) {
	if (parsedjson["Timeline"]["Items"][i]["Serif"]) {
		WScript.echo(("          "+parsedjson["Timeline"]["Items"][i]["Frame"]).slice(-10)+","+parsedjson["Timeline"]["Items"][i]["CharacterName"]+',"'+parsedjson["Timeline"]["Items"][i]["Serif"].replace(/\r?\n/g ,"")+'"')
	}
}