//SAKURAからキーワードを取得 Editor.SelectWord(0); var keyWord = Editor.GetSelectedString(); Editor.SearchClearMark(0); //パラメータの作成 var str = "p:Simulate,InputWord3," + keyWord +"\n"; var dropPath = "%TEMP%\\pdic-dde.d\\in"; // PDIC入力ファイルのパスを取得 var path = GetExpandEnvironmentPath(dropPath); //PDICが起動中か確認 if (ReportFileStatus(path)) { //PDICへ書き出し SaveBomText(path, str); } //---------------------------------------------------------- //環境変数を展開する function GetExpandEnvironmentPath(dropPath) { /*var WshShell = WScript.CreateObject("WScript.Shell");*/ var WshShell = new ActiveXObject("WScript.Shell"); var envTemp = WshShell.ExpandEnvironmentStrings(dropPath); var escapedEnvTemp = envTemp.replace(/\\/g, "\\\\"); return (escapedEnvTemp); } //指定したファイルが存在する場合はtrue、 //存在しない場合はfalseを返す function ReportFileStatus(filespec) { var fso = filespec; fso = new ActiveXObject("Scripting.FileSystemObject"); return fso.FileExists(filespec); /* if (fso.FileExists(filespec)) s += " は、存在します。"; else s += " は、存在しません。"; return(s); */ } //テキストを指定したファイルにUTF-8で書き込む function SaveBomText(filename, text) { // StreamTypeEnum var adTypeBinary = 1; var adTypeText = 2; // SaveOptionsEnum var adSaveCreateNotExist = 1; var adSaveCreateOverWrite = 2; // ADODB.Streamを作成 var stm = new ActiveXObject("ADODB.Stream"); // テキストモード(UTF-8)で書き込む stm.Type = adTypeText; stm.Charset = 'UTF-8'; stm.Open(); stm.WriteText(text); stm.SaveToFile(filename, adSaveCreateOverWrite); stm.Close(); };