トップページ > コンテンツ > プログラミング入門 > Ajax入門 > JavaScript入門 > Javascript駄文 > 作ってみたもの > リネームツール

ForReading = 1;
ForWriting = 2;

var fs = new ActiveXObject("Scripting.FileSystemObject");
var arg = WScript.Arguments;

var obj = WScript.CreateObject("MSScriptControl.ScriptControl");
obj.language = "VBScript";
obj.addcode("function getInput() getinput = inputbox("入力せよ","タイトル") end function");
var input_data = obj.eval("getInput");

var file_name = input_data + "_test.txt";
var file_fullpath = fs.buildpath(fs.GetFile(WScript.ScriptFullName).ParentFolder,file_name);
fs.CopyFile(arg.item(0),file_fullpath);
var write_text = fs.OpenTextFile(file_fullpath,ForReading);

var read_text = fs.OpenTextFile(arg.item(0),ForReading);

while(!read_text.AtEndOfStream) {
   var text_line = read_text.ReadLine();
   var target = new RegExp("test = (.*)","g");
   if(text_line.match(target)) {
      var str_line = text_line.replace(RegExp.$1,"test2");
      write_text.WriteLine(str_line);
   } else {
      write_text.WriteLine(text_line);
  }
}