Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。

マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (Kuro)
*[[Zen Coding]] (Kuro)
*[[CSV のカーソル位置の列を削除]] (Kuro)
*[[対応する括弧に移動]] (Kuro, kurama, masme) update 2017/05/27
*[[選択文字列を強調]] (Kuro)
*[[行頭に移動]] (Kuro, 他) update 2014/03/15
*[[バイト数]] (Kuro, ks, sukemaru) update 2018/11/18 文書全体の文字数・行数表示にも対応
*[[日付と時刻を挿入]] (n, masme, sukemaru) update 2018/12/09
*[[日付と時刻を挿入（カレンダー版）]] (papagoat) update 2016/05/24
*[[選択範囲を上下に移動]] (ks)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (papagoat) update 2013/11/22
*[[非選択状態でも逆インデント]] (papagoat)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]] (アラフォー親父) HTMLタグを、ショートカット・キーに登録して入力するマクロ（文章挟み込み仕様）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石) update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石) update 2013/02/23
*[[青空文庫用整形補助]] (ks, 有志)
*[[部分編集]] (ks)
*[[文字カウント]] (masme) 2014/02/01, update 2018/08/04
*[[字下げ・字上げ]](インデント・逆インデント) (masme, sukemaru) 2014/02/09, update 2018/11/16
:*「[[字下げ・字上げ#インデント|インデント／逆インデント]]」を追加
*[[数値を増減]](インクリメント・デクリメント) (masme) 2014/06/17, update 2016/02/28
*[[少し便利な Undo/Redo]] (ks)
*[[自動ルビ振り]] (急急如律令)
*[[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko, sukemaru) update 2018/11/14
*[[ドイツ語特殊文字]] (鯉)
*[[矩形選択範囲の各行先頭に文字挿入]] (yuko)
*[[文章で使用されている文字をユニーク抽出]] (Kuro)
*[[アウトライン用ノード追加]] (mik) 2018/06/25
*[[アウトラインのノードレベルを上げる]] (mik) 2018/06/25
*[[アウトラインのノードレベルを下げる]] (mik) 2018/06/25
*[[アウトラインのノードの完了/未完了を切り替える]] (mik) 2018/10/18 update
*[[ハルナアウトライン用の完了/未完了フラグをノード名に反映する]] (mik) 2018/10/18 update
*[[Markdown文書で改行時にリスト、引用ブロック開始記号を自動入力する]] (catfist, yuko) 2018/10/15 update
*[[行を複製 (複数行可)]] (sukemaru) 2018/08/24
*[[行の先頭に貼り付け]] (sukemaru) 2018/08/24
*[[カッコで囲う]] (ポップアップメニューあり)　(sukemaru) last modified 2018/11/19
: ・簡易版「カッコで囲う (ポップアップメニューなし)」 ・「引用符を追加／削除」 ・人柱版追加コード「行頭/行末から任意の文字数／文字列を削除」
*[[カッコをはずす]] ＆ [[カッコをはずす#カッコを削除／追加|カッコを削除／追加]] ＆ [[カッコをはずす#カッコを追加／削除|カッコを追加／削除]] (sukemaru) 2019/03/14 - 2019/03/19
*[[引用符／コメント]] (※旧「引用の追加」マクロを増補改訂)　(sukemaru) 2018/10/28
*[[行頭か行末または選択範囲の始点か終点]] (sukemaru) 2018/12/03
*[[文書の先頭か末尾]] (sukemaru) 2019/03/10
*[[定型文を挿入]] (sukemaru) 2018/12/03
*[[何年生で習う漢字？]] (シリル) 2019/03/10

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
:*[[選択範囲のURL・パスを開く|ひらけゴマ！]] (sukemaru) update 2019/03/15 ※「選択範囲のURL・パスを開く」
*[[自動バックアップ]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]] (ks)
*[[パスを取得]] (Kuro)
*[[フォルダ内のファイルをすべて開く]] (Kuro)
*[[ファイルを比較]] (Kuro)
*[[ファイル名を引数にしてアプリ起動]] (Kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]] (papagoat) Update 2012/10/23 (説明文変更 2013/11/22)
*[[よく使うフォルダ]] (手石) Update 2014/02/22
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダツリーをポップアップ表示]] (n)
*[[タグジャンプ]] (o)
*[[ウィンドウの位置とサイズを拡張子で指定]] (papagoat) Update 2014/04/17
*[[編集モードの自動選択]] または '''書き換え禁止で開く''' (sukemaru, Bleat) Update 2019/02/15
*[[書き換え禁止モード色反転]] (Bleat)
*[[特定のフォルダで「ファイルを開く」ダイアログ]] (sukemaru) fixed 2018/12/19
*[[ファイルのプロパティ]] (sukemaru) 2018/12/18
*[[すべて閉じる]] (sukemaru) 2018/12/19
*[[文書が変更されていなければ変更マークを消す]] (Noah)
*[[変更なしのタブをすべて閉じる]] (Noah)

== 変換・ソート・整形 ==

*[[可変長を固定長に変換]] (Kuro)
*[[SHA でハッシュ化]] (Kuro)
*[[標準変換]] (Kuro)
*[[昇順で並び替え]] (Kuro)
*[[降順で並び替え]] (Kuro)
*[[連続する重複行を削除]] (Kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
**[[テキスト整形]] (masme) 2013/09/15, update 2018/01/15
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石) update 2013/04/16
*[[行並べ替え]] (masme) 2013/08/25, update 2018/04/15
*[[連番を挿入]] (masme) 2013/08/25
*[[GFMをHTMLに変換]] (noonworks) 2014/03/09
*[[TrueとFalse_を切り替える|YES／NO マクロ]] (sukemaru) update 2018/11/27 ※「TrueとFalseを切り替える」
*[[基数変換10_16]] (シリル) 2019/02/10
*[[スネークケース ⇔ キャメルケースの変換]] (Noah)
*[[罫線変換]] (シリル) 2019/03/09

== 検索・置換 ==

*[[文書から検索]] (Kuro)
*[[単語を抽出]] (Kuro)
*[[このファイルから検索(マッチしない行)]] (Kuro)
*[[このファイルから検索(マッチする行)]] (Kuro)
*[[タグの外側（内側）だけ置換]] (手石)
*[[ポップアップメニューで検索先にジャンプ]] (手石, sukemaru) Last Update 2019/03/13
*[[検索(SJIS以外)]] + 検索強調を解除 (masme) 2014/09/16, update 2017/06/26
*[https://github.com/TakamiChie/mery-scripts/blob/master/SearchWithMode.js 現在開いているファイルの言語名をつけてWeb検索] (高見知英)→[[https://vine.co/v/eeY59rFMail 実際の動作例]]
*[https://github.com/GunseiPaseri/Mery_macro 文字出現量ランキング] (群生系パセリ) 2015/12/28
*[[検索ヒット数表示]] (ks)
*[[任意の検索エンジンで検索]] (Noah)
*[[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)
*[[簡易検索一覧]] (シリル) 2018/12/24
*[[簡易検索一覧などをアウトプット]] (シリル) 2018/12/31
*[[複数置換]] (Noah)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[Eclipse風コメントアウト(改)]] (pizz) 2019/03/04
*[[スマートインデント(C 構文)]] (ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[コメントマーク付け外し]] (手石, masme, sukemaru) last update 2018/11/19 ※sukemaru版に「人柱用追加コード」
*[[TeX文書のコンパイル]] (手石)
*[[TeX数式のチェック]] (手石)
*[[簡易数式計算]] (ks)
*[[定義へ移動]] (ks)
*[[タブの桁数]] (手石)
*[[行末の空白を削除]] (n) 2014/12/19
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを実行(掲載時点ではバッチファイル・Javascript・Lua・PHP・Perl・Python・Ruby・UWSCに対応。順次追加予定)] (高見知英)
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを構文チェック(掲載時点ではPHP・Perlに対応。順次追加予定)] (高見知英)
*[[説明を出力]] (s) Create 2015/08/16
*[[拡張子からコンソール実行]] (YOS G-spec) 2016/12/11更新

== おもしろ ==

*[[テキストブラウザ]] (Kuro)
*[[Yahoo!天気情報]] (Kuro)
*[[メール送信]] (ks)

== その他 ==

*[[最新版を確認]] (diaphragm)
*[[SAPI 使って単語読み上げ]] (miso)
*[[フォルダ選択ダイアログ]] (手石)
*[[HTA(HTML)の自作ダイアログを表示]] (noonworks)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis) 2013/08/19
*[[階層化マクロメニュー]] (ks)
*[[シェルコマンドを実行]] (sasaki)
*[[ポップアップメニューでチェックボックス]] (手石)
*[[ポップアップメニューでラジオボタン]] (手石)
*[[Editor.OpenFile()のポリフィル]](kazy)
*[[折り返しトグル切り替え]] (Bleat, sukemaru) update 2019/02/19
*[[ファイルロック (排他制御) 的なもの]] (PebblePot)
*[[Mery.iniのオプション値を取得]] ※組み込み用関数 (sukemaru) 2019/03/10
----
*[[キーアサイン集]] (ks, masme, 有志) last update 2018/10/08
*[[マテリアルデザインっぽいアイコンと『小マクロ集』]] (sukemaru) last update 2018/12/04
*[[includeライブラリ]] (ks)
*[[GetKeyState.exe(キー状態取得実行ファイル)]] (pizz) 2019/03/23
*[[マクロ覚え書き（開発者向け）]](ks)

GetKeySatate.exe(キー状態取得実行ファイル)

2019-03-23T04:33:11Z

Pizz: ページの白紙化

Eclipse風コメントアウト(改)

2019-03-23T04:22:18Z

Pizz: /* 概要 */

= 概要 =
Eclipse風なコメントアウト <=> コメントの除去を行います。

ksさんの作成された、[[Eclipse風コメントアウト]]は、私にとって欠かせないツールです。

便利に使わせていただく一方、細かい挙動が気になって変更したり、機能を追加しているうちに、すっかり別物になってしまいました。

オリジナルを作成されたksさんに感謝するとともに、せっかく作成したので改造版をここに公開します。

Shiftキーの状態を取得するために、[[GetKeySatate.exe(キー状態取得実行ファイル)]]を使用しています。

本体マクロと併せて上記実行ファイルも必要になります。

zipファイルをダウンロードしたら、ファイルのプロパティ画面で「ブロックの解除」を行ってください。
(これをしないと実行時に警告が表示されることがあります)

その後、zipファイルを展開して、Macrosフォルダーに配置してください。

= 更新履歴 =
2019/3/4 新規作成

= コード =
<source lang="javascript">
#title = "選択行コメントアウト"

// -----------------------------------------------------------------------------
// Eclipse風なコメントアウト
// 複数行一括コメントアウト，復帰マクロ
// 1) 対象は行全体(行途中の選択も行全体とみなす)
// 2) 空白行はコメントアウトしない
// 3) インデントは選択行の範囲で一番左(タブ幅単位)に合わせる
// 4) 選択範囲全体がコメントアウトされている場合は復帰
//
// Copyright (c) ks. All Rights Reserved.
// www: http://merysmacro.seesaa.net/
// -----------------------------------------------------------------------------
// a) 最終行の先頭までの選択状態では、最終行は処理範囲外にする(行選択対応)
// b) コメント文字の種類を追加(Mery標準で単一行コメント可能な編集モード全て対応)
// c) スペースが含まれるコメント文字に対応
// d) コメント文字が正規表現文字でも正しく動作するようにした
// e) コメント文字不明時、SHIFTキー押下起動時はコメント文字を入力できるようにした
// (Mery.iniと同じ場所に設定ファイルとして一時記憶)
// f) 選択方向を維持するようにした(下から上への選択対応)
// g) 空白行で実行するとUndoされてしまう問題に対処
// h) OutputBarにフォーカスがある場合に処理できない問題に対処
//
// SHIFTキー状態取得のために、"GetKeyState.exe"が必要です
//
// Improved by pizz
// -----------------------------------------------------------------------------

var doc = editor.ActiveDocument;
var COM = ""; // 単一行コメント
var settingFilename = "CommentMacro.ini";

switch(doc.Mode.toLowerCase()){
case "bat":
COM = "rem ";
break;
case "c#":
case "c++":
case "coldfusion":
case "delphi":
case "java":
case "javascript":
case "jsp":
case "php":
case "uwsc":
COM = "// ";
break;
case "hsp":
case "ini":
case "x86 assembler":
COM = "; ";
break;
case "perl":
case "perlscript":
case "powershell":
case "python":
case "rhtml":
case "ruby":
COM = "# ";
break;
case "sql":
COM = "-- ";
break;
case "tex":
COM = "% ";
break;
case "vbscript":
case "visualbasic":
COM = "'";
break;
}

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

// カレントディレクトリをマクロディレクトリに変更
wshShell.CurrentDirectory = editor.FullName.match(/^.*\\/)[0] + 'Macros';

// 設定ファイルからコメント文字を読み込む
var comSelected = LoadDocSetting();
if(comSelected == "") comSelected = COM;

var comTrim = comSelected.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字

// SHIFTキー状態を取得
var shift = wshShell.Run("GetKeyState.exe shift", 0, true);
if(shift == -1) window.Quit();

// コメント文字の入力を受ける
if(comTrim == "" || shift == 1){
var comInput = "// ";
if(comTrim != "") comInput = comSelected;

comInput = prompt("コメント文字を指定してください", comInput);

comTrim = comInput.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字
if(comTrim == "") window.Quit();

if(comInput != comSelected){
SaveDocSetting(comInput);
comSelected = comInput;
}
}

var meGetLineLogical = 0;
var regOrg = new RegExp("^[ \\t]*" + comSelected.replace(/\W/g, "\\$&"));
var regTrim = new RegExp("^[ \\t]*" + comTrim.replace(/\W/g, "\\$&"));
var scrollY = window.ScrollY;
var sel = doc.Selection;
var st = sel.GetTopPointY(mePosLogical);
var ed = sel.GetBottomPointY(mePosLogical);
var ac = sel.GetActivePointY(mePosLogical);
if(st != ed && sel.GetBottomPointX(mePosLogical) == 1){
// 複数行選択、最下行選択位置が行頭の場合は、最終行は除外
ed--;
}
var tab = GetTabSpace();

sel.SetActivePoint(mePosLogical, doc.GetLine(ed, meGetLineLogical).length + 1, ed);
sel.SetAnchorPoint(mePosLogical, 1, st);
var lines = sel.Text.split("\n")
if(sel.Text.length > 0) sel.Untabify();
var linesWithoutTab = sel.Text.split("\n");
if(sel.Text.length > 0) doc.Undo();

// インデント取得
var indent = -1;
var existNotCommentLine = false; // 空白・コメント行でない行が存在するか
for(var i=0, len = linesWithoutTab.length; i < len; i++){
var line = linesWithoutTab[i];
var left = line.search(/[^ ]/);
if(left >= 0 && (indent < 0 || left < indent)){
// インデントはタブ幅単位(左寄せ)
indent = Math.floor(left / tab) * tab;
}
if(left >= 0){
// コメント行判定
if(!existNotCommentLine && line.search(regTrim) == -1){
existNotCommentLine = true;
}
}
}

var txt = "";
var changed = false;
if(existNotCommentLine){
// コメントアウト
for(var i = 0, len = lines.length; i < len; i++){
var line = lines[i] + "\n";
// 空白行はコメントアウトしない
if(line.search(/[^ \t\n]/) == -1){
txt += line;
continue;
}

// 挿入位置をタブと空白を考慮して決定
var index = 0, j;
for(j = 0; index < indent; j++){
// indent の範囲には半角スペースかタブしかない
if(line.charAt(j) == " "){
index += 1;
}else{
index += tab - (index % tab);
}
}
txt += line.substring(0, j) + comSelected + line.substring(j);
changed = true;
}
}else{
// コメントから復帰
for(var i = 0, len = lines.length; i < len; i++){
var line = lines[i] + "\n";
if(line.match(regTrim)){
if(line.match(regOrg)){
txt += line.replace(comSelected, ""); // 先頭のコメント(空白付き)の削除
}else{
txt += line.replace(comTrim, ""); // 先頭のコメント(空白なし)の削除
}
changed = true;
}else{
txt += line;
}
}
}

// コメントアウト部分を書き換えて，全体を選択
if(doc.GetLine(ed + 1, meGetLineWithNewLines) == "") txt = txt.substring(0, txt.length - 1); // 最後の改行は除去
if(ac == st){
// 下から上への選択状態
sel.SetActivePoint(mePosLogical, 1, st);
sel.SetAnchorPoint(mePosLogical, 1, ed + 1);
if(changed) sel.Text = txt;
sel.SetActivePoint(mePosLogical, 1, st);
sel.SetAnchorPoint(mePosLogical, 1, ed + 1);
}else{
// 上から下への選択状態
sel.SetActivePoint(mePosLogical, 1, ed + 1);
sel.SetAnchorPoint(mePosLogical, 1, st);
if(changed) sel.Text = txt;
sel.SetAnchorPoint(mePosLogical, 1, st);
}
window.ScrollY = scrollY;

//========================================
// 関数
//========================================
// タブ幅を取得
function GetTabSpace()
{
var doc = editor.ActiveDocument;
var sel = doc.Selection;
var saved = doc.Saved;
sel.EndOfDocument();
doc.Write("\n\t");
sel.SetAnchorPoint(mePosLogical, sel.GetActivePointX(mePosLogical) - 1, sel.GetActivePointY(mePosLogical));
sel.Untabify();
var n = sel.Text.length;
doc.Undo(); doc.Undo();
doc.Saved = saved

return n;
}

// コメント文字設定をファイルから読み込み
function LoadDocSetting()
{
var dic = LoadDocSettingDataListWithOpend();
var ret = "";
for(var key in dic){
if(key.toLowerCase() == window.document.FullName.toLowerCase()){
ret = dic[window.document.FullName.toLowerCase()];
}
}
return ret;
}

// コメント文字設定をファイルに書き込み
function SaveDocSetting(comStr)
{
var dic = LoadDocSettingDataListWithOpend();
dic[window.document.FullName.toLowerCase()] = comStr;
SaveDocSettingDataListWithOpend(dic);
}

// 設定ファイルから全ての設定値を取得
function LoadDocSettingDataListWithOpend()
{
var settingPath = GetSettingFilePath();
var dic = {};

var deleted = false;
if(fso.FileExists(settingPath)){
var tso = fso.OpenTextFile(settingPath, 1, false, -1);
while(tso.AtEndOfStream == false){
var setting = tso.ReadLine().split("\t", 2);
var detect = false;
for(var i = 0; i < window.Editors.Count; i++){
for(var j = 0; j < window.Editors.Item(i).Documents.Count; j++){
if(window.Editors.Item(i).Documents.Item(j).FullName.toLowerCase() == setting[0].toLowerCase()){
dic[setting[0].toLowerCase()] = setting[1];
detect = true;
break;
}
}
if(detect) break;
}
if(detect == false) deleted = true;
}
tso.Close();
}
if(deleted) SaveDocSettingDataListWithOpend(dic);
return dic;
}

// 設定ファイルを全て書き換え
function SaveDocSettingDataListWithOpend(dic)
{
var settingPath = GetSettingFilePath();
var tso = fso.OpenTextFile(settingPath, 2, true, -1);
for(var key in dic){
tso.WriteLine(key + "\t" + dic[key]);
}
tso.Close();
}

// コメント文字設定ファイルの場所を取得する
function GetSettingFilePath()
{
var meryDir = fso.GetParentFolderName(editor.FullName);
var settingPath = "";
if(fso.FileExists(fso.BuildPath(meryDir, "Mery.ini"))){
settingPath = fso.BuildPath(meryDir, settingFilename);
}else{
var appDataPath = fso.BuildPath(wshShell.SpecialFolders('Appdata'), 'Mery');
if(fso.FileExists(fso.BuildPath(appDataPath, "Mery.ini"))){
settingPath = fso.BuildPath(appDataPath, settingFilename);
}
}
if(settingPath == ""){
window.Alert("Mery.ini ファイルが見つかりません");
window.Quit();
}
return settingPath;
}
</source>

2019-03-04T08:05:25Z

Pizz: ページの作成:「= 概要 = Eclipse風なコメントアウト <=> コメントの除去を行います。 ksさんの作成された、Eclipse風コメントアウトは、私にと...」

= 概要 =
Eclipse風なコメントアウト <=> コメントの除去を行います。

ksさんの作成された、[[Eclipse風コメントアウト]]は、私にとって欠かせないツールです。
便利に使わせていただく一方、細かい挙動が気になって変更したり、機能を追加しているうちに、すっかり別物になってしまいました。
ksさんに感謝するとともに、せっかく作成したので、ここに公開します。

なお、SHIFTキーの状態を取得したかったのですが、スクリプトからは難しかったので、別途実行ファイルを作成しました。
zipファイルを展開して、Macrosフォルダーに配置してください。
コマンドライン引数で、"shift" "ctrl" "alt" を指定すると、そのキーの押下状態を取得できるので、他のマクロからもご利用いただけます。
[[ファイル:GetKeyState.zip]]

ソースも置いときます(VS2005 C++)
[[ファイル:GetKeyStateSrc.zip]]

= 更新履歴 =
2018/3/1 新規作成

= コード =
<source lang="javascript">
#title = "選択行コメントアウト"

// -----------------------------------------------------------------------------
// Eclipse風なコメントアウト
// 複数行一括コメントアウト，復帰マクロ
// 1) 対象は行全体(行途中の選択も行全体とみなす)
// 2) 空白行はコメントアウトしない
// 3) インデントは選択行の範囲で一番左(タブ幅単位)に合わせる
// 4) 選択範囲全体がコメントアウトされている場合は復帰
//
// Copyright (c) ks. All Rights Reserved.
// www: http://merysmacro.seesaa.net/
// -----------------------------------------------------------------------------
// a) 最終行の先頭までの選択状態では、最終行は処理範囲外にする(行選択対応)
// b) コメント文字の種類を追加(Mery標準で単一行コメント可能な編集モード全て対応)
// c) スペースが含まれるコメント文字に対応
// d) コメント文字が正規表現文字でも正しく動作するようにした
// e) コメント文字不明時、SHIFTキー押下起動時はコメント文字を入力できるようにした
// (Mery.iniと同じ場所に設定ファイルとして一時記憶)
// f) 選択方向を維持するようにした(下から上への選択対応)
// g) 空白行で実行するとUndoされてしまう問題に対処
// h) OutputBarにフォーカスがある場合に処理できない問題に対処
//
// SHIFTキー状態取得のために、"GetKeyState.exe"が必要です
//
// Improved by pizz
// -----------------------------------------------------------------------------

var doc = editor.ActiveDocument;
var COM = ""; // 単一行コメント
var settingFilename = "CommentMacro.ini";

switch(doc.Mode.toLowerCase()){
case "bat":
COM = "rem ";
break;
case "c#":
case "c++":
case "coldfusion":
case "delphi":
case "java":
case "javascript":
case "jsp":
case "php":
case "uwsc":
COM = "// ";
break;
case "hsp":
case "ini":
case "x86 assembler":
COM = "; ";
break;
case "perl":
case "perlscript":
case "powershell":
case "python":
case "rhtml":
case "ruby":
COM = "# ";
break;
case "sql":
COM = "-- ";
break;
case "tex":
COM = "% ";
break;
case "vbscript":
case "visualbasic":
COM = "'";
break;
}

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

// カレントディレクトリをマクロディレクトリに変更
wshShell.CurrentDirectory = editor.FullName.match(/^.*\\/)[0] + 'Macros';

// 設定ファイルからコメント文字を読み込む
var comSelected = LoadDocSetting();
if(comSelected == "") comSelected = COM;

var comTrim = comSelected.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字

// SHIFTキー状態を取得
var shift = wshShell.Run("GetKeyState.exe shift", 0, true);
if(shift == -1) window.Quit();

// コメント文字の入力を受ける
if(comTrim == "" || shift == 1){
var comInput = "// ";
if(comTrim != "") comInput = comSelected;

comInput = prompt("コメント文字を指定してください", comInput);

comTrim = comInput.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字
if(comTrim == "") window.Quit();

if(comInput != comSelected){
SaveDocSetting(comInput);
comSelected = comInput;
}
}

var meGetLineLogical = 0;
var regOrg = new RegExp("^[ \\t]*" + comSelected.replace(/\W/g, "\\$&"));
var regTrim = new RegExp("^[ \\t]*" + comTrim.replace(/\W/g, "\\$&"));
var scrollY = window.ScrollY;
var sel = doc.Selection;
var st = sel.GetTopPointY(mePosLogical);
var ed = sel.GetBottomPointY(mePosLogical);
var ac = sel.GetActivePointY(mePosLogical);
if(st != ed && sel.GetBottomPointX(mePosLogical) == 1){
// 複数行選択、最下行選択位置が行頭の場合は、最終行は除外
ed--;
}
var tab = GetTabSpace();

sel.SetActivePoint(mePosLogical, doc.GetLine(ed, meGetLineLogical).length + 1, ed);
sel.SetAnchorPoint(mePosLogical, 1, st);
var lines = sel.Text.split("\n")
if(sel.Text.length > 0) sel.Untabify();
var linesWithoutTab = sel.Text.split("\n");
if(sel.Text.length > 0) doc.Undo();

// インデント取得
var indent = -1;
var existNotCommentLine = false; // 空白・コメント行でない行が存在するか
for(var i=0, len = linesWithoutTab.length; i < len; i++){
var line = linesWithoutTab[i];
var left = line.search(/[^ ]/);
if(left >= 0 && (indent < 0 || left < indent)){
// インデントはタブ幅単位(左寄せ)
indent = Math.floor(left / tab) * tab;
}
if(left >= 0){
// コメント行判定
if(!existNotCommentLine && line.search(regTrim) == -1){
existNotCommentLine = true;
}
}
}

var txt = "";
var changed = false;
if(existNotCommentLine){
// コメントアウト
for(var i = 0, len = lines.length; i < len; i++){
var line = lines[i] + "\n";
// 空白行はコメントアウトしない
if(line.search(/[^ \t\n]/) == -1){
txt += line;
continue;
}

// 挿入位置をタブと空白を考慮して決定
var index = 0, j;
for(j = 0; index < indent; j++){
// indent の範囲には半角スペースかタブしかない
if(line.charAt(j) == " "){
index += 1;
}else{
index += tab - (index % tab);
}
}
txt += line.substring(0, j) + comSelected + line.substring(j);
changed = true;
}
}else{
// コメントから復帰
for(var i = 0, len = lines.length; i < len; i++){
var line = lines[i] + "\n";
if(line.match(regTrim)){
if(line.match(regOrg)){
txt += line.replace(comSelected, ""); // 先頭のコメント(空白付き)の削除
}else{
txt += line.replace(comTrim, ""); // 先頭のコメント(空白なし)の削除
}
changed = true;
}else{
txt += line;
}
}
}

// コメントアウト部分を書き換えて，全体を選択
if(doc.GetLine(ed + 1, meGetLineWithNewLines) == "") txt = txt.substring(0, txt.length - 1); // 最後の改行は除去
if(ac == st){
// 下から上への選択状態
sel.SetActivePoint(mePosLogical, 1, st);
sel.SetAnchorPoint(mePosLogical, 1, ed + 1);
if(changed) sel.Text = txt;
sel.SetActivePoint(mePosLogical, 1, st);
sel.SetAnchorPoint(mePosLogical, 1, ed + 1);
}else{
// 上から下への選択状態
sel.SetActivePoint(mePosLogical, 1, ed + 1);
sel.SetAnchorPoint(mePosLogical, 1, st);
if(changed) sel.Text = txt;
sel.SetAnchorPoint(mePosLogical, 1, st);
}
window.ScrollY = scrollY;

//========================================
// 関数
//========================================
// タブ幅を取得
function GetTabSpace()
{
var doc = editor.ActiveDocument;
var sel = doc.Selection;
var saved = doc.Saved;
sel.EndOfDocument();
doc.Write("\n\t");
sel.SetAnchorPoint(mePosLogical, sel.GetActivePointX(mePosLogical) - 1, sel.GetActivePointY(mePosLogical));
sel.Untabify();
var n = sel.Text.length;
doc.Undo(); doc.Undo();
doc.Saved = saved

return n;
}

// コメント文字設定をファイルから読み込み
function LoadDocSetting()
{
var dic = LoadDocSettingDataListWithOpend();
var ret = "";
for(var key in dic){
if(key.toLowerCase() == window.document.FullName.toLowerCase()){
ret = dic[window.document.FullName.toLowerCase()];
}
}
return ret;
}

// コメント文字設定をファイルに書き込み
function SaveDocSetting(comStr)
{
var dic = LoadDocSettingDataListWithOpend();
dic[window.document.FullName.toLowerCase()] = comStr;
SaveDocSettingDataListWithOpend(dic);
}

// 設定ファイルから全ての設定値を取得
function LoadDocSettingDataListWithOpend()
{
var settingPath = GetSettingFilePath();
var dic = {};

var deleted = false;
if(fso.FileExists(settingPath)){
var tso = fso.OpenTextFile(settingPath, 1, false, -1);
while(tso.AtEndOfStream == false){
var setting = tso.ReadLine().split("\t", 2);
var detect = false;
for(var i = 0; i < window.Editors.Count; i++){
for(var j = 0; j < window.Editors.Item(i).Documents.Count; j++){
if(window.Editors.Item(i).Documents.Item(j).FullName.toLowerCase() == setting[0].toLowerCase()){
dic[setting[0].toLowerCase()] = setting[1];
detect = true;
break;
}
}
if(detect) break;
}
if(detect == false) deleted = true;
}
tso.Close();
}
if(deleted) SaveDocSettingDataListWithOpend(dic);
return dic;
}

// 設定ファイルを全て書き換え
function SaveDocSettingDataListWithOpend(dic)
{
var settingPath = GetSettingFilePath();
var tso = fso.OpenTextFile(settingPath, 2, true, -1);
for(var key in dic){
tso.WriteLine(key + "\t" + dic[key]);
}
tso.Close();
}

// コメント文字設定ファイルの場所を取得する
function GetSettingFilePath()
{
var meryDir = fso.GetParentFolderName(editor.FullName);
var settingPath = "";
if(fso.FileExists(fso.BuildPath(meryDir, "Mery.ini"))){
settingPath = fso.BuildPath(meryDir, settingFilename);
}else{
var appDataPath = fso.BuildPath(wshShell.SpecialFolders('Appdata'), 'Mery');
if(fso.FileExists(fso.BuildPath(appDataPath, "Mery.ini"))){
settingPath = fso.BuildPath(appDataPath, settingFilename);
}
}
if(settingPath == ""){
window.Alert("Mery.ini ファイルが見つかりません");
window.Quit();
}
return settingPath;
}
</source>

マクロライブラリ

2019-03-04T08:04:58Z

Pizz: /* プログラミング補助 */

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。

マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (Kuro)
*[[Zen Coding]] (Kuro)
*[[CSV のカーソル位置の列を削除]] (Kuro)
*[[対応する括弧に移動]] (Kuro, kurama, masme) update 2017/05/27
*[[選択文字列を強調]] (Kuro)
*[[行頭に移動]] (Kuro, 他) update 2014/03/15
*[[バイト数]] (Kuro, ks, sukemaru) update 2018/11/18 文書全体の文字数・行数表示にも対応
*[[日付と時刻を挿入]] (n, masme, sukemaru) update 2018/12/09
*[[日付と時刻を挿入（カレンダー版）]] (papagoat) update 2016/05/24
*[[選択範囲を上下に移動]] (ks)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (papagoat) update 2013/11/22
*[[非選択状態でも逆インデント]] (papagoat)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]] (アラフォー親父) HTMLタグを、ショートカット・キーに登録して入力するマクロ（文章挟み込み仕様）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石) update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石) update 2013/02/23
*[[青空文庫用整形補助]] (ks, 有志)
*[[部分編集]] (ks)
*[[文字カウント]] (masme) 2014/02/01, update 2018/08/04
*[[字下げ・字上げ]](インデント・逆インデント) (masme, sukemaru) 2014/02/09, update 2018/11/16
:*「[[字下げ・字上げ#インデント|インデント／逆インデント]]」を追加
*[[数値を増減]](インクリメント・デクリメント) (masme) 2014/06/17, update 2016/02/28
*[[少し便利な Undo/Redo]] (ks)
*[[自動ルビ振り]] (急急如律令)
*[[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko, sukemaru) update 2018/11/14
*[[ドイツ語特殊文字]] (鯉)
*[[矩形選択範囲の各行先頭に文字挿入]] (yuko)
*[[文章で使用されている文字をユニーク抽出]] (Kuro)
*[[アウトライン用ノード追加]] (mik) 2018/06/25
*[[アウトラインのノードレベルを上げる]] (mik) 2018/06/25
*[[アウトラインのノードレベルを下げる]] (mik) 2018/06/25
*[[アウトラインのノードの完了/未完了を切り替える]] (mik) 2018/10/18 update
*[[ハルナアウトライン用の完了/未完了フラグをノード名に反映する]] (mik) 2018/10/18 update
*[[Markdown文書で改行時にリスト、引用ブロック開始記号を自動入力する]] (catfist, yuko) 2018/10/15 update
*[[行を複製 (複数行可)]] (sukemaru) 2018/08/24
*[[行の先頭に貼り付け]] (sukemaru) 2018/08/24
*[[カッコで囲う]] (ポップアップメニューあり)　(sukemaru) last modified 2018/11/19
: ・簡易版「カッコで囲う (ポップアップメニューなし)」 ・「引用符を追加／削除」 ・人柱版追加コード「行頭/行末から任意の文字数／文字列を削除」
*[[引用符／コメント]] (※旧「引用の追加」マクロを増補改訂)　(sukemaru) 2018/10/28
*[[TrueとFalse_を切り替える|YES／NO マクロ]] (sukemaru) update 2018/11/27 ※「TrueとFalseを切り替える」
*[[行頭か行末または選択範囲の始点か終点]] (sukemaru) 2018/12/03
*[[定型文を挿入]] (sukemaru) 2018/12/03

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
:*[[選択範囲のURL・パスを開く|ひらけゴマ！]] (sukemaru) update 2018/12/05 ※「選択範囲のURL・パスを開く」
*[[自動バックアップ]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]] (ks)
*[[パスを取得]] (Kuro)
*[[フォルダ内のファイルをすべて開く]] (Kuro)
*[[ファイルを比較]] (Kuro)
*[[ファイル名を引数にしてアプリ起動]] (Kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]] (papagoat) Update 2012/10/23 (説明文変更 2013/11/22)
*[[よく使うフォルダ]] (手石) Update 2014/02/22
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダツリーをポップアップ表示]] (n)
*[[タグジャンプ]] (o)
*[[ウィンドウの位置とサイズを拡張子で指定]] (papagoat) Update 2014/04/17
*[[編集モードの自動選択]] または '''書き換え禁止で開く''' (sukemaru, Bleat) Update 2019/02/15
*[[書き換え禁止モード色反転]] (Bleat)
*[[特定のフォルダで「ファイルを開く」ダイアログ]] (sukemaru) fixed 2018/12/19
*[[ファイルのプロパティ]] (sukemaru) 2018/12/18
*[[すべて閉じる]] (sukemaru) 2018/12/19
*[[文書が変更されていなければ変更マークを消す]] (Noah)
*[[変更なしのタブをすべて閉じる]] (Noah)

== 変換・ソート・整形 ==

*[[可変長を固定長に変換]] (Kuro)
*[[SHA でハッシュ化]] (Kuro)
*[[標準変換]] (Kuro)
*[[昇順で並び替え]] (Kuro)
*[[降順で並び替え]] (Kuro)
*[[連続する重複行を削除]] (Kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
**[[テキスト整形]] (masme) 2013/09/15, update 2018/01/15
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石) update 2013/04/16
*[[行並べ替え]] (masme) 2013/08/25, update 2018/04/15
*[[連番を挿入]] (masme) 2013/08/25
*[[GFMをHTMLに変換]] (noonworks) 2014/03/09
*[[基数変換10_16]] (シリル) 2019/02/10
*[[スネークケース ⇔ キャメルケースの変換]] (Noah)

== 検索・置換 ==

*[[文書から検索]] (Kuro)
*[[単語を抽出]] (Kuro)
*[[このファイルから検索(マッチしない行)]] (Kuro)
*[[このファイルから検索(マッチする行)]] (Kuro)
*[[タグの外側（内側）だけ置換]] (手石)
*[[ポップアップメニューで検索先にジャンプ]] (手石, sukemaru) Last Update 2018/12/20
*[[検索(SJIS以外)]] + 検索強調を解除 (masme) 2014/09/16, update 2017/06/26
*[https://github.com/TakamiChie/mery-scripts/blob/master/SearchWithMode.js 現在開いているファイルの言語名をつけてWeb検索] (高見知英)→[[https://vine.co/v/eeY59rFMail 実際の動作例]]
*[https://github.com/GunseiPaseri/Mery_macro 文字出現量ランキング] (群生系パセリ) 2015/12/28
*[[検索ヒット数表示]] (ks)
*[[任意の検索エンジンで検索]] (Noah)
*[[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)
*[[簡易検索一覧]] (シリル) 2018/12/24
*[[簡易検索一覧などをアウトプット]] (シリル) 2018/12/31
*[[複数置換]] (Noah)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[Eclipse風コメントアウト(改)]] (pizz)
*[[スマートインデント(C 構文)]] (ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[コメントマーク付け外し]] (手石, masme, sukemaru) last update 2018/11/19 ※sukemaru版に「人柱用追加コード」
*[[TeX文書のコンパイル]] (手石)
*[[TeX数式のチェック]] (手石)
*[[簡易数式計算]] (ks)
*[[定義へ移動]] (ks)
*[[タブの桁数]] (手石)
*[[行末の空白を削除]] (n) 2014/12/19
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを実行(掲載時点ではバッチファイル・Javascript・Lua・PHP・Perl・Python・Ruby・UWSCに対応。順次追加予定)] (高見知英)
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを構文チェック(掲載時点ではPHP・Perlに対応。順次追加予定)] (高見知英)
*[[説明を出力]] (s) Create 2015/08/16
*[[拡張子からコンソール実行]] (YOS G-spec) 2016/12/11更新

== おもしろ ==

*[[テキストブラウザ]] (Kuro)
*[[Yahoo!天気情報]] (Kuro)
*[[メール送信]] (ks)

== その他 ==

*[[最新版を確認]] (diaphragm)
*[[キーアサイン集]] (ks, masme, 有志) last update 2018/10/08
*[[マテリアルデザインっぽいアイコンと『小マクロ集』]] (sukemaru) last update 2018/12/04
*[[SAPI 使って単語読み上げ]] (miso)
*[[フォルダ選択ダイアログ]] (手石)
*[[HTA(HTML)の自作ダイアログを表示]] (noonworks)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis) 2013/08/19
*[[階層化マクロメニュー]] (ks)
*[[シェルコマンドを実行]] (sasaki)
*[[ポップアップメニューでチェックボックス]] (手石)
*[[ポップアップメニューでラジオボタン]] (手石)
*[[includeライブラリ]] (ks)
*[[マクロ覚え書き（開発者向け）]](ks)
*[[Editor.OpenFile()のポリフィル]](kazy)
*[[折り返しトグル切り替え]] (Bleat, sukemaru) update 2019/02/19