//引数 var infilepath = WScript.Arguments(0); var outfilepath = WScript.Arguments(1); //スクリプトのパス var scriptPath = String(WScript.ScriptFullName).replace(WScript.ScriptName, ""); //ファイルシステム var fileSystem = new ActiveXObject("Scripting.FileSystemObject"); //パス結合 infilepath = fileSystem.BuildPath(scriptPath, infilepath); //Excel操作 var excelObj = new ActiveXObject("Excel.Application"); excelObj.Workbooks.Open(infilepath); var workBook = excelObj.Workbooks(1); //indexは1から var workSheet = workBook.WorkSheets(1); //indexは1から var rangeBuffer = workSheet.Range("A2:A2"); //範囲選択 //ファイル入出力 var ReadOnly = 1; var WriteOnly = 2; var Append = 8; var file = fileSystem.OpenTextFile(outfilepath, WriteOnly, true); var strValue; for(var i=1; i<2; ++i){ strValue = (typeof(rangeBuffer(i,1).value) == "undefined")? "1.0" : rangeBuffer(i,1).value; file.WriteLine(strValue + ","); } WScript.echo("Success (" + outfilepath + ")"); excelObj.quit(); //UTF-8 var adTypeBinary = 1; var adTypeText = 2; var adReadAll = -1; var adReadLine = -2; var adWriteChar = 0; var adWriteLine = 1; var adSaveCreateNoExist = 1; var adSaveCreateOverWrite = 2; var stream = new ActiveXObject("ADODB.Stream"); stream.Type = adTypeText; stream.charset = "utf-8"; stream.Open(); stream.WriteText("Hoge", adWriteLine); stream.SaveToFile(outfilepath, adSaveCreateOverWrite); stream.Close();
WSF
JScriptファイルをインクルードしたい場合に使える.Windowsスクリプトファイル(.wsf)を使用する
WSHリファレンス>XML要素
شركة تسليك مجارى بمكة
返信削除شركة مكافحة حشرات بالمدينة المنورة
شركة مكافحة حشرات بمكة
شركة مكافحة حشرات بالطائف