テキストファイルの読み出し

先ほどの応用で、読み込んだファイルがJavaScriptであった場合それを実行可能なプログラムとして取り込みます。

/** 指定されたパスのテキストを読みだします。 */
function loadtext( filename ){
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	if( !fso.FileExists(filename) ) return null;	// ファイルが存在しないとき
	var f = fso.OpenTextFile(filename, 1);
	return f.readAll();
}
/* 指定されたJavaScriptのファイルを自分の中に取り込みます */
function include( filename ){
	var s = loadtext(filename);
	if( null==s ) return null;
	try{ eval( '('+s+')' ); } catch(e){}	// 評価中にエラーが出てもプログラムが停止しない
}