//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();
};