返信

> こんにちは。 > > マクロを書いてみました。 > 誰か幸せになる人がいることを祈って。 > > 取得のところでsleep関数やinterval関数を使ってみたかったのですが、使えるオブジェクトが判らずに断念しています。 > > おかしなところを教えていただけると私が幸せに……。 > それでは。 > > ---------- > // 編集中のRubyスクリプトを実行して、標準出力を取得する。 > > var myscript = '"' + document.Path + document.Name + '"'; > var cmd = 'cmd /c cd /d "' + document.Path + '" & ruby ' + myscript ; > > // 編集中のRubyスクリプトを保存 > document.Save(); > > // Rubyスクリプトを実行する > var WshShell = new ActiveXObject("WScript.Shell") > var oExec = WshShell.Exec(cmd); > > // 標準出力と標準エラー出力の取得 > var errstr = ""; > var stdstr = ""; > var tryCount = 0; > var irregular = 0; > while (tryCount < 256){ > tryCount ++; > // 標準出力を先に読み込まないと、標準出力がバッファを埋め尽くしている > // 場合にダメ（StdErr.AtEndOfStreamがフリーズする）らしい。 > if (!oExec.StdOut.AtEndOfStream){stdstr += oExec.StdOut.ReadAll(); tryCount=0;}; > if (!oExec.StdErr.AtEndOfStream){errstr += oExec.StdErr.ReadAll(); tryCount=0;}; > if (oExec.Status == 0){tryCount=0;} > irregular ++; if (irregular > 1000){Alert("終わらない！？"); break;} > // if (oExec.Status == 1){break;} > } > > // 取得した標準出力の内容を新規ファイルに出力 > if (stdstr.length > 0) { > Editor.NewFile(); > Editor.Documents.Item(editor.Documents.Count-1).Write(stdstr); > } > > // 取得した標準エラー出力の内容を新規ファイルに出力 > if (errstr.length > 0) { > Editor.NewFile(); > Editor.Documents.Item(editor.Documents.Count-1).Write(errstr); > } > ---------- > > Mery 2.0.10.3973 > Windows7 X64

マークダウンを有効にする