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

マクロライブラリ

2020-03-15T10:56:23Z

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

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

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

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

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

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (Kuro)
*[[Zen Coding]] (Kuro)
*[[CSV のカーソル位置の列を削除]] (Kuro)
*[[対応する括弧に移動]] (Kuro, kurama, masme 他) update 2019/04/24 （追加コード 2019/12/05）
*[[選択文字列を強調]] (Kuro)
*[[行頭に移動]] (Kuro, 他) update 2014/03/15
*[[行頭か行末または選択範囲の始点か終点|行頭か行末または選択範囲の始点か終点に移動]] (sukemaru) update 2019/03/29
*[[文書の先頭か末尾|文書の先頭か末尾に移動]] (sukemaru) update 2019/03/29
*[[バイト数]] (Kuro, ks)
*[[日付と時刻を挿入]] (n, masme, sukemaru) update 2018/12/09
*[[日付と時刻を挿入（カレンダー版）]] (papagoat) update 2016/05/24
*[[選択範囲を上下に移動]] (ks)
*[[行を上下に移動（Mery 2.7 用）]]　(sukemaru) 2019/05/07　※Mery 2.7 以降用（ブックマークを保持）
*[[行を複製 (複数行可)]] (sukemaru) update 2019/05/07
*[[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 2019/12/21
*[[字下げ・字上げ]](インデント・逆インデント) (masme) 2014/02/09, update 2019/06/01
:[[字下げ・字上げ#sukemaru 版|スペース×２追加・削除]]、[[字下げ・字上げ#インデント|インデント・逆インデント]] (sukemaru) last update 2019/12/01　※Mery 2.8.6 以上でブックマークを保持
*[[数値を増減]](インクリメント・デクリメント) (masme) 2014/06/17, update 2016/02/28
*[[少し便利な Undo/Redo]] (ks)
*[[自動ルビ振り]] (急急如律令)
*[[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko, sukemaru) update 2018/11/14
*[[ドイツ語特殊文字]] (鯉)
*[[矩形選択範囲の各行先頭に文字挿入]] (yuko)
*[[行の先頭に貼り付け]] (sukemaru) 2018/08/24
*[[文章で使用されている文字をユニーク抽出]] (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
*[[Markdown 向け、リスト記号 (*) のトグル]] (yuko) 2019/04/29
*[[引用符／コメント]] ※ポップアップメニュー (行頭の文字列操作. 「引用の追加」マクロの増補改訂版)　(sukemaru) last modified 2019/04/07
*[[カッコで囲う]] (ポップアップメニューあり)　(sukemaru) last modified 2019/04/07
:「[[カッコで囲う#カッコで囲う (ポップアップメニューなし)|カッコで囲う (簡易版ポップアップメニューなし)]]」 「[[カッコで囲う#引用符を追加／削除|引用符を追加／削除]]」（ "二重引用符" の追加／削除トグル）
*[[カッコをはずす]] ＆ [[カッコをはずす#カッコを削除／追加|カッコを削除／追加]] ＆ [[カッコをはずす#カッコを追加／削除|カッコを追加／削除]] (sukemaru) fixed 2019/05/03
*[[定型文を挿入]]マクロ集 (sukemaru) 2018/12/03
*[[何年生で習う漢字？]] (シリル) 2019/03/10
*[[上に行挿入]] (yuko) 2019/05/11
*[[位置情報を保存してから「すべて選択／選択解除」(非スクロール)]] (sukemaru)
: update 2019/11/13：「[[位置情報を保存してから「すべて選択／選択解除」(非スクロール)#【include 版】位置を復帰／保存|位置を復帰／保存]]」を追加
*[[選択範囲を広げる]] (yuko) 2020/02/24

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

*[[ファイルのプロパティ]] (sukemaru) 2018/12/18
*[[文字列中のパス起動]] (ks)
*[[選択範囲のURL・パスを開く|ひらけゴマ！]] ※「選択範囲のURL・パスを開く」 (sukemaru) update 2019/04/07
*[[自動バックアップ]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]] (ks)
*[[パスを取得]] (Kuro)
*[[フォルダ内のファイルをすべて開く]] (Kuro)
*[[ファイルを比較]] (Kuro)
*[[ファイル名を引数にしてアプリ起動]] (Kuro, miso)
*[[ブックマーク一覧ジャンプ]] ※ポップアップメニュー (goat, sukemaru) update 2019/12/05
*[[拡張子の違うファイルを開く]] (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/04/24
*[[書き換え禁止モード色反転]] (Bleat)
*[[特定のフォルダで「ファイルを開く」ダイアログ]] (sukemaru) fixed 2018/12/19
*[[すべて閉じる]]マクロ集 (sukemaru) update 2019/05/03 ｢他（右側／左側）のタブを閉じる｣などを追加
*[[文書が変更されていなければ変更マークを消す]] (Noah)
*[[変更なしのタブをすべて閉じる]] (Noah)
*[[ファイルを読み直す・開きなおす]] ※ポップアップメニュー (sukemaru) last update 2019/11/30 エンコード指定で読み直し・読み取り専用属性の変更・編集モードの変更・プロパティを開く・さいごに閉じたファイルを開く・etc...
*[[さいごに閉じたファイルを開く]] ※ポップアップメニュー (sukemaru) 2019/11/30

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

*[[可変長を固定長に変換]] (Kuro)
*[[SHA でハッシュ化]] (Kuro)
*[[標準変換]] (Kuro)
*[[連続する重複行を削除]] (Kuro)
*[[昇順で並び替え]] (Kuro)
*[[降順で並び替え]] (Kuro)
*[[昇順で並び替え／降順で並び替え]] トグル変換 (sukemaru) 2019/06/03
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
**[[テキスト整形]] (masme) 2013/09/15, update 2019/12/21
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石) update 2013/04/16
*[[行並べ替え]] (masme) 2013/08/25, update 2019/04/12
*[[連番を挿入]] (masme) 2013/08/25, update 2019/12/30
*[[GFMをHTMLに変換]] (noonworks) 2014/03/09
*[[TrueとFalse_を切り替える|YES／NO マクロ]] (sukemaru) update 2018/11/27 ※「TrueとFalseをトグル切り替え」 ＋改造版「ToDoリストモード」 (sukemaru) Added 2019/05/06
*[[基数変換10_16]] (シリル) 2019/02/10
*[[スネークケース ⇔ キャメルケースの変換]] (Noah)
*[[罫線変換]] (シリル) 2019/03/09
*[[全角／半角変換]] (sukemaru) fixed 2019/05/11 ※「ＡＢＣ」→「ABC」／「ABC」→「ＡＢＣ」
*[[全角／半角トグル変換]] (sukemaru) fixed 2019/05/20 ※「ＡＢＣ」⇔「ABC」
*[[大文字／小文字／頭文字トグル変換]] (sukemaru) last update 2019/08/29 ※「Abc」→「ABC」→「abc」
*[[ひらがな／カタカナ変換]] (sukemaru) update 2020/01/03 ※「あいうえお」⇔「アイウエオ」
*[[文字列の順番を逆に書き出す]] (sukemaru) update 2020/01/03 ※「あいうえお」⇔「おえういあ」

== 検索・置換 ==

*[[文書から検索]] (Kuro)
*[[単語を抽出]] (Kuro)
*[[このファイルから検索(マッチしない行)]] (Kuro)
*[[このファイルから検索(マッチする行)]] (Kuro)
*[[タグの外側（内側）だけ置換]] (手石)
*[[ポップアップメニューで検索先にジャンプ]] (手石, sukemaru) Last Update 2019/04/16
*[[検索(SJIS以外)]] + 検索強調を解除 (masme) 2014/09/16, update 2019/06/01
*[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)
*[[検索ヒット数表示（選択文字列）]] ※イベントマクロ　(sukemaru) last update 2019/12/03 「[[検索ヒット数表示（選択文字列）#機能強化バージョン|文字数・行数・バイト数・ヒット件数]]」を追加
*[[任意の検索エンジンで検索]] (Noah)
*[[任意の検索エンジンで検索ー改良版]] (Takeshi) 2019/07/12
*[[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)
*[[簡易検索一覧]] (シリル) 2018/12/24
*[[簡易検索一覧などをアウトプット]] (シリル) 2018/12/31
*[[複数置換]] (Noah)
*[[類義語アウトプット【Python】]] (シリル) 2019/03/24
*[[校正支援アウトプット]] (シリル) 2019/05/01
*[[次／前の文字列を検索・改]] (sukemaru) last update 2019/12/03 ※複数行選択から『次／前の文字列を検索』

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

*[[Eclipse風コメントアウト]] (ks)
*[[Eclipse風コメントアウト(改)]] (pizz) 2020/03/15
*[[コメントマーク付け外し]] (手石, masme, sukemaru) last update 2019/06/01
:([[コメントマーク付け外し#sukemaru 版|sukemaru版]]) last update 2019/12/01 ※ブックマーク対応
*[[スマートインデント(C 構文)]] (ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[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) 2019/6/22更新
*[[JSON整形]](Ovis) Create 2019/03/25

== おもしろ ==

*[[テキストブラウザ]] (Kuro)
*[[Yahoo!天気情報]] (Kuro, sukemaru) update 2020/01/02
*[[メール送信]] (ks)
*[[あつまれ☆みんなのおもしろアイコン]] (有志)

== 実験的マクロ・練習マクロなど ==

*【自家用】[[ファイルのフルパスをコピーして閉じる]] ※イベント (sukemaru) update 2019/04/14
*【自家用】[[行の表示方法を切り替える]] (sukemaru) update 2019/08/25 ※論理行⇔表示行トグル
*【自家用】[[対応する括弧に移動#sukemaru 版|対応するカッコに移動・選択]] (sukemaru) last update 2019/12/05
*【実験】 [[位置情報を保存してから「次の文字列を検索」]]＋復帰　(sukemaru) 2019/05/28

== その他 ==

*[[HSPキーワード検索]] (SSSE) 2019/08/29
*[[最新版を確認]] (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) last update 2019/11/15
*[[Mery本体のバージョンチェック]] ※組み込み用関数 (sukemaru) 2019/04/17 サンプルコード: 「Begin/EndUndoGroup() メソッドを使えるのは ver 2.7.0 以降」
*[[IO.Serialize() の JSON を参照する]] ※組み込み用関数 (sukemaru) 2019/04/17
*[[ポップアップメニューを「n*十件ずつ」のサブメニューに自動分割する]] ※組み込み用関数 (sukemaru) 2019/04/20 サンプルコード: 「すべての論理行をポップアップメニューに表示する」
*[[アクティブなタブのマクロを実行する]] (sukemaru) 2019/08/12
*[[「クリップボード履歴」メニューのマクロ化]]　(sukemaru) last update 2019/11/29 　※ [[プラグイン:スニペットプラグイン|スニペット]] の機能を統合／ ※ver 2.8.1 以降用
*[[コンパクトメニュー]] (sukemaru) last update 2019/11/21
*[[マクロメニュー]] (sukemaru) 2019/11/02

----
*[[キーアサイン集]] (ks, masme, sukemaru, 有志) last update 2019/06/16
*[[マテリアルデザインっぽいアイコンと『小マクロ集』]] ※アイコン収録数'''337'''コ (sukemaru) last update 2020/01/04
*[[includeライブラリ]] (ks)
*[[GetKeyState.exe(キー状態取得実行ファイル)]] (pizz) 2019/03/23
*[[マクロ覚え書き（開発者向け）]](ks, 有志) Last Update 2019/09/08

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

2020-03-15T07:33:13Z

92.202.159.41: /* コード */

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

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

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

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

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

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

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

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

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

2019/4/12 window.Quit() メソッドの使用排除

2020/3/15 Mery 3.0.0以降対応版の追加(document.tagプロパティを使用)

= コード =
このスクリプトはMery Ver.3.0.0以降対応版です
Mery Ver.3.0.0未満の環境では、後半のスクリプトを利用してください
<source lang="javascript">
#icon = "_Comment.ico"
#title = "選択行コメントアウト"

// このスクリプトはMery Ver.3.0.0以降対応版です
// Ver.3.0.0以前の環境では動作しません

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

var doc = editor.ActiveDocument;
var COM = ""; // 単一行コメント
var TAGKEY = "pizzComment"

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");

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

// タグ設定を取得
var comSelected = "";
if(document.tag.exists(TAGKEY)) comSelected = document.tag(TAGKEY);
if(comSelected == "") comSelected = COM;
var comTrim = comSelected.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字

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

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

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

comTrim = comInput.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字
if(comTrim != ""){
comSelected = comInput;
document.tag(TAGKEY) = comSelected;
}
}

if(comTrim != ""){
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;
}

</source>

以下は、Mery Ver.3.0.0未満の環境でも利用できます
(3.0.0以降でも動作しますが、上のバージョンの利用をお勧めします)

<source lang="javascript">
#icon = "_Comment.ico"
#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 != null){
if(comSelected == "") comSelected = COM;

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

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

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

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

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

if(comTrim != ""){
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();
if(dic == null) return null;
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();
if(dic != null){
dic[window.document.FullName.toLowerCase()] = comStr;
SaveDocSettingDataListWithOpend(dic);
}
}

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

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();
if(settingPath != ""){
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 ファイルが見つかりません");
}
return settingPath;
}

</source>

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

2020-03-15T07:15:09Z

92.202.159.41: /* 更新履歴 */

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

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

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

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

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

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

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

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

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

2019/4/12 window.Quit() メソッドの使用排除

2020/3/15 Mery 3.0.0以降対応版の追加(document.tagプロパティを使用)

= コード =
このスクリプトはMery Ver.3.0.0以降対応版です
Mery Ver.3.0.0未満の環境では、後半のスクリプトを利用してください
<source lang="javascript">
#icon = "_Comment.ico"
#title = "選択行コメントアウト"

// このスクリプトはMery Ver.3.0.0以降対応版です
// Ver.3.0.0未満の環境では動作しません

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

var doc = editor.ActiveDocument;
var COM = ""; // 単一行コメント
var TAGKEY = "pizzComment"
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 = "";
if(document.tag.exists(TAGKEY)) comSelected = document.tag(TAGKEY);
if(comSelected == "") comSelected = COM;
var comTrim = comSelected.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字

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

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

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

comTrim = comInput.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字
if(comTrim != ""){
comSelected = comInput;
document.tag(TAGKEY) = comSelected;
}
}

if(comTrim != ""){
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;
}
</source>

以下は、Mery Ver.3.0.0未満の環境でも利用できます
(3.0.0以降でも動作しますが、上のバージョンの利用をお勧めします)

<source lang="javascript">
#icon = "_Comment.ico"
#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 != null){
if(comSelected == "") comSelected = COM;

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

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

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

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

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

if(comTrim != ""){
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();
if(dic == null) return null;
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();
if(dic != null){
dic[window.document.FullName.toLowerCase()] = comStr;
SaveDocSettingDataListWithOpend(dic);
}
}

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

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();
if(settingPath != ""){
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 ファイルが見つかりません");
}
return settingPath;
}

</source>

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

2020-03-15T07:12:54Z

92.202.159.41: /* コード */

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

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

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

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

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

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

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

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

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

2019/4/12 window.Quit() メソッドの使用排除

= コード =
このスクリプトはMery Ver.3.0.0以降対応版です
Mery Ver.3.0.0未満の環境では、後半のスクリプトを利用してください
<source lang="javascript">
#icon = "_Comment.ico"
#title = "選択行コメントアウト"

// このスクリプトはMery Ver.3.0.0以降対応版です
// Ver.3.0.0未満の環境では動作しません

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

var doc = editor.ActiveDocument;
var COM = ""; // 単一行コメント
var TAGKEY = "pizzComment"
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 = "";
if(document.tag.exists(TAGKEY)) comSelected = document.tag(TAGKEY);
if(comSelected == "") comSelected = COM;
var comTrim = comSelected.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字

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

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

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

comTrim = comInput.replace(/(^\s+)|(\s+$)/g, ""); // スペースなしのコメント文字
if(comTrim != ""){
comSelected = comInput;
document.tag(TAGKEY) = comSelected;
}
}

if(comTrim != ""){
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;
}
</source>

以下は、Mery Ver.3.0.0未満の環境でも利用できます
(3.0.0以降でも動作しますが、上のバージョンの利用をお勧めします)

<source lang="javascript">
#icon = "_Comment.ico"
#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 != null){
if(comSelected == "") comSelected = COM;

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

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

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

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

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

if(comTrim != ""){
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();
if(dic == null) return null;
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();
if(dic != null){
dic[window.document.FullName.toLowerCase()] = comStr;
SaveDocSettingDataListWithOpend(dic);
}
}

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

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();
if(settingPath != ""){
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 ファイルが見つかりません");
}
return settingPath;
}

</source>