マクロ覚え書き（開発者向け）

2019-06-19T02:59:13Z

138.101.21.146: /* マクロからファイル選択ダイアログ */

= 概要 =
マクロ開発者向けの覚え書きです． 
リファレンスなどに載っていない，豆知識的なことを集めています．

= 覚え書き =

== 開発言語について ==
WSH（Windows Script Host) が対応している言語であれば利用が可能です． 
標準では JScript（≒javascript）と VBScript が入っています． 
他の言語（Perl や Python）もインストールすれば使えますが，一般配布する場合利用者もインストールが必要になります． 
どの言語でも良いですが，JScript での開発者が多いため，JScript の方が情報が集まりやすくお勧めです．

== マクロを保存する際の文字コード ==
基本的に単体で利用する場合はどの文字コードでも構いません． 
ただし「他のマクロから読まれる」場合は文字コードの選択が重要になります． 
今のマクロでは #title のようなプリプロセス処理が必要で，それに対応したロードができる include ライブラリの IO.Include はデフォルトで UTF-8 対応なので，UTF-8 をお勧めします（個別の指定は可能）． 
ただし読み込む側が FileSystemObject を利用している場合，SJIS/Unicode しか対応できないのでその場合は SJIS をお勧めします（Mery 1 時代のマクロなどはコレです）．

== window.Document と Editor.ActiveDocument の違い ==
window.Document は，マクロ開始時にアクティブなドキュメントを指し続けます．マクロで別のドキュメントを Activate しても変わりません． 
Editor.ActiveDocument は，その時点でアクティブなドキュメントを指します．マクロで別のドキュメントを Activate すると当然変わります．
<source lang="javascript">
Editor.Documents.Item(0).Activate();
Alert(Document.Name);
Alert(Editor.ActiveDocument.Name);
</source>
また，window.Document は Documents.Item() と一致しませんが，Editor.ActiveDocument は一致します．
<source lang="javascript">
for (var i=0; i<Editor.Documents.Count; i++) {
if (Editor.ActiveDocument == Editor.Documents.Item(i)) {
Alert("Editor.ActiveDocument が一致");
}
if (Document == Editor.Documents.Item(i)) {
Alert("window.Document が一致");
}
}
</source>

== window.Redraw = true は必要か ==
マクロで
<source lang="javascript">
Redraw = false;
</source>
にしたとき，最後
<source lang="javascript">
Redraw = true;
</source>
が必要かという点については，現状確認する限りでは不要です．

== 矩形選択の扱い ==
マクロで矩形選択は扱えません（プラグインですら無理）． 
ただし，矩形選択中かの判定だけは以下の方法で可能です．
<source lang="javascript">
var s = Document.Selection;
var isBoxed = (s.GetBottomPointY(mePosView) - s.GetTopPointY(mePosView)) != (s.Text.match(/\n/g) || []).length;
</source>
2019/06/11追記（有志）：使い道は限られますが、Alt + Shit + カーソル移動のキーコードを送ることで、矩形範囲指定の開始と範囲変更は可能です。
new ActiveXObject("WScript.Shell").SendKeys("+%{left}");//{right},{up},{down}

== Document.GetLines の引数 ==
リファレンスには '''meGetLineView''' しか書かれていませんが，論理行単位での行数取得には引数に 0 を渡します． 
'''meGetLineLogical''' という定数はありません．

== プリプロセス（#title など） ==
対応しているプリプロセスコードは以下の通りです．
* #icon = "****" [, アイコン番号]
* #title = "****"
* #tooltip = "****"
* #include "****.js"
これらは必ずファイル先頭に書かなければなりません（コメントや VBS の Option Explicit などよりも先）．

== 他のファイルのロード方法 ==
マクロから他のファイルを直接ロードするには以下の方法があります．
* FileSystemObject を利用する
* ADODB.Stream を利用する
* include ライブラリの IO クラスを利用する

=== FileSystemObject を利用する ===
コードが短く簡単に扱えます． 
また FileSystemObject 自体に，ファイルの有無やフォルダ作成の機能があります． 
ただし扱える文字コードは SJIS または Unicode 限定．
<source lang="javascript">
// Scripting.FileSystemObject の定数
var ForReading = 1; // ファイルを読み取り専用として開きます。このファイルには書き込むことができません。
var ForWriting = 2; // ファイルを書き込み専用として開きます。
var ForAppending = 8; // ファイルを開き、ファイルの最後に追加して書き込みます。
var TristateUseDefault = -2; // システムデフォルトを使ってファイルを開きます。
var TriStateTrue = -1; // ファイルを Unicode ファイルとして開きます。
var TristateFalse = 0; // ファイルを ASCII ファイルとして開きます。

var fso = new ActiveXObject("Scripting.FileSystemObject");

// ファイルの読み込み
var fsIn = fso.OpenTextFile(Document.FullName, ForReading, false, TristateUseDefault);
var text = fsIn.ReadAll();
fsIn.Close();
Alert(text);

// ファイルの書き込み
var fsOut = fso.OpenTextFile("hoge.txt", ForWriting, true, TristateUseDefault);
fsOut.Write(text);
fsOut.Close();
</source>

=== ADODB.Stream を利用する ===
書き方は若干複雑ですが，システムが対応している文字コードであれば全て扱えます． 
また（信頼性は低いが）文字コードの自動判定も可能です．
<source lang="javascript">
var adTypeBinary = 1; // バイナリデータを表します。
var adTypeText = 2; // 既定値です。Charset で指定された文字セットにあるテキストデータを表します。
var adReadAll = -1; // 既定値です。現在の位置から EOS マーカー方向に、すべてのバイトをストリームから読み取ります。これは、バイナリストリームに唯一有効な StreamReadEnum 値です。
var adReadLine = -2; // ストリームから次の行を読み取ります (LineSeparator プロパティで指定)。
var adSaveCreateNotExist = 1; // 既定値です。FileName パラメータで指定したファイルがない場合は新しいファイルが作成されます。
var adSaveCreateOverWrite = 2; // FileName パラメータで指定したファイルがある場合は、現在開かれている Stream オブジェクトのデータでファイルが上書きされます。

// ファイルの読み込み
var adodb = new ActiveXObject('ADODB.Stream');
adodb.Type = adTypeText;
adodb.Charset = 'utf-8';
adodb.Open();
adodb.LoadFromFile(Document.FullName);
var text = adodb.ReadText(adReadAll);
adodb.Close();
Alert(text);

// ファイルの書き込み
var adodb = new ActiveXObject('ADODB.Stream');
adodb.Type = adTypeText;
adodb.Charset = 'utf-8';
adodb.Open();
adodb.WriteText(text);
adodb.SaveToFile("hoge.txt", adSaveCreateOverWrite);
adodb.Close();
</source>

=== include ライブラリの IO クラスを利用する ===
ファイルの読み書きを簡単にするクラスです． 
簡単に扱えることと，BOM なしの UTF-8 を書き込めることがメリットです． 
逆にソースを読むしか資料がないこと，ユーザに導入してもらう必要があるのが欠点です．
<source lang="javascript">
#include "include/IO.js"

// ファイルの読み込み
var text = IO.LoadFromFile(Document.FullName, "utf-8");
Alert(text);

// ファイルの書き込み
IO.SaveToFile("hoge.txt", text, "utf-8");
</source>

== 他のマクロの実行方法 ==
他のマクロを実行するには，以下の方法があります．
* #include で取り込む
* ファイルをロードして eval する
前者は先頭でしかかけない上，動的にロードの切り替えができません． 
後者は文字コードの問題とプリプロセス処理に関する問題があります． 
include ライブラリの IO.Include を使うことで，プリプロセス処理に関しては解決できます．
<source lang="javascript">
#include "include/IO.js"

eval(IO.Include("test.js", "utf-8")); // #include なども処理される
</source>

== マクロからファイル選択ダイアログ ==
できません． 
2019/06/11追記(有志)：以下の関数で可能です。
function OpenFileDlg(){
var HTASource = '<object id=HtmlDlgHelper classid=CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object>\n'
+'<script language=vbscript>\n'
+'resizeTo 0,0\n'
+'Sub window_onload()\n'
+'CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write HtmlDlgHelper.object.openfiledlg(,,"All Files(*.*)|*.*|","ファイル選択")\n'
+'close\n'
+'End Sub\n'
+'</script>\n'
+'<hta:application caption=no showintaskbar=no />\n';

var oExec = new ActiveXObject('WScript.Shell').Exec(
'MSHTA.EXE "javascript:new ActiveXObject(\'Scripting.FileSystemObject\').GetStandardStream(0).ReadAll()"'
);
oExec.StdIn.Write(HTASource);
oExec.StdIn.Close();

var filename = oExec.StdOut.ReadAll();
var nullcharAt = filename.indexOf(String.fromCharCode(0x0));
if (nullcharAt > 0) filename = filename.substring(0, nullcharAt);
return filename;
}

使用例
var filename = OpenFileDlg();
window.alert((filename)?filename:'Canceled');

2019/06/17追記(有志)：PoserShell版追加,,2019/06/19修正：Execと標準出力の組み合わせを、Runとクリップボードに変更 
HtmlDlgHelper.object.openfiledlg の第1引数はダイアログに初期表示する InitFile。疑似的に初期フォルダを指定することが可能だが、パス区切り文字 "\" で終わることはできない。PowerShell 版なら初期フォルダの明示、複数ファイル選択が可能。Multiselect = $false にしても $dialog.FileName に書き換えせずに $dialog.FileNames でアクセス可能。
function OpenFileDlg(){
ClipboardData.ClearData();
var PS1Source = '[void][System.Reflection.Assembly]::LoadWithPartialName(\'System.windows.forms\');'
+'$dialog = New-Object System.Windows.Forms.OpenFileDialog;'
+'$dialog.Filter = \'AllFiles(*.*)|*.*\';'
+'$dialog.InitialDirectory = \'C:\\\';'
+'$dialog.Title = \'ファイル選択\';'
+'$dialog.Multiselect = $true;'
+'if($dialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK){ Set-Clipboard $dialog.FileNames }'
new ActiveXObject('WScript.Shell').Run(
'PowerShell.EXE -sta -ExecutionPolicy RemoteSigned ' + PS1Source, 0, true
);
var result=ClipboardData.GetData();
ClipboardData.ClearData();
return result;
}

== Prompt で空入力とキャンセルの区別 ==
できません．

== PopupMenu.Add の ID ==
PopupMenu.Add() の ID は必ず 0 以外にしましょう． 
PopupMenu.Track() はキャンセルされた（メニューが押されなかった）場合，0 を返します．

MeryWiki - 利用者の投稿記録 [ja]

マクロ覚え書き（開発者向け）