MeryWiki

「対応する括弧に移動」の版間の差分

← 古い編集
Sukemaru (トーク | 投稿記録)
1,199 回編集
編集の要約なし
MSY-07 (トーク | 投稿記録)
2,334 回編集
SyntaxHighlightにcopyの追加
 
(4人の利用者による、間の29版が非表示)
1行目: 1行目:
<div>__TOC__</div>
このマクロは[https://www.haijin-boys.com/software/mery/mery-3-6-0#17 Mery Ver 3.6.1]で追加されたコマンド「対応する括弧へ移動」と同機能です。


= Kuro, kurama 版 (2009/08) =
== Kuro, kurama 版 ==
* 「shift」変数を「true」に書き換えると、選択しながら移動します。
対応する括弧に移動します。「shift」変数を「true」に設定した場合は選択しながら移動します。


<source lang="javascript">
<syntaxhighlight lang="javascript" copy>
// -----------------------------------------------------------------------------
// -----------------------------------------------------------------------------
// 対応する括弧に移動
// 対応する括弧に移動
//
//
// Copyright (c) Kuro. All Rights Reserved.
// Copyright (c) Kuro. All Rights Reserved.
// www:    http://www.haijin-boys.com/
// www:    https://www.haijin-boys.com/
// Special Thanks for Kurama さん, Take さん
// Special Thanks for Kurama さん, Take さん
// -----------------------------------------------------------------------------
// -----------------------------------------------------------------------------
22行目: 22行目:
// ステータスバーを消去
// ステータスバーを消去
Status = "";
Status = "";
with (document.selection) {
// Selection オブジェクトを取得
  // カーソル位置を保存
var sel = document.selection;
  var ax = GetActivePointX(mePosLogical);
// カーソル位置を保存
  var ay = GetActivePointY(mePosLogical);
var ax = sel.GetActivePointX(mePosLogical);
  // スクロール位置を保存
var ay = sel.GetActivePointY(mePosLogical);
  var sx = ScrollX;
// スクロール位置を保存
  var sy = ScrollY;
var sx = ScrollX;
  // カーソル位置を復元
var sy = ScrollY;
  SetActivePoint(mePosLogical, ax, ay, false);
// カーソル位置を復元
  // 単語を選択
sel.SetActivePoint(mePosLogical, ax, ay, false);
  SelectWord();
// 単語を選択
  // 現在位置の括弧を取得
sel.SelectWord();
  var c1 = Text;
// 現在位置の括弧を取得
  // 選択範囲を解除
var c1 = sel.Text;
  Collapse();
// 選択範囲を解除
  var l = lp.indexOf(c1);
sel.Collapse();
  var r = rp.indexOf(c1);
var l = lp.indexOf(c1);
  var st = 0;
var r = rp.indexOf(c1);
  if (l > -1) {
var st = 0;
    // 対応する括弧の種類を取得
if (l > -1) {
    var c2 = rp.charAt(l);
// 対応する括弧の種類を取得
    EndOfDocument(true);
var c2 = rp.charAt(l);
    var s = Text;
sel.EndOfDocument(true);
    // カーソル位置を復元
var s = sel.Text;
    SetActivePoint(mePosLogical, ax, ay, false);
// カーソル位置を復元
    // スクロール位置を復元
sel.SetActivePoint(mePosLogical, ax, ay, false);
    ScrollX = sx;
// スクロール位置を復元
    ScrollY = sy;
ScrollX = sx;
    var x = ax;
ScrollY = sy;
    var y = ay;
var x = ax;
    for (var i = 0; i < s.length; i++) {
var y = ay;
      x++;
for (var i = 0; i < s.length; i++) {
      if (s.charAt(i) == c1)
x++;
        st++;
if (s.charAt(i) == c1) {
      if (s.charAt(i) == c2)
st++;
        st--;
}
      if (st == 0) {
if (s.charAt(i) == c2) {
        y = GetActivePointY(mePosLogical);
st--;
        // カーソル位置を復元
}
        SetActivePoint(mePosLogical, ax, ay, false);
if (st == 0) {
        SetActivePoint(mePosLogical, x, y, shift);
y = sel.GetActivePointY(mePosLogical);
        // 左に戻る
// カーソル位置を復元
        CharLeft(shift, 1);
sel.SetActivePoint(mePosLogical, ax, ay, false);
        break;
sel.SetActivePoint(mePosLogical, x, y, shift);
      }
// 左に戻る
      if (s.charAt(i) == "\n") {
sel.CharLeft(shift, 1);
        x = 1;
break;
        y = GetActivePointY(mePosLogical) + 1;
}
        SetActivePoint(mePosLogical, x, y, false);
if (s.charAt(i) == "\n") {
        StartOfLine(false, mePosLogical);
x = 1;
        x = GetActivePointX(mePosLogical);
y = sel.GetActivePointY(mePosLogical) + 1;
      }
sel.SetActivePoint(mePosLogical, x, y, false);
    }
sel.StartOfLine(false, mePosLogical);
  } else if (r > -1) {
x = sel.GetActivePointX(mePosLogical);
    // 対応する括弧の種類を取得
}
    var c2 = lp.charAt(r);
}
    CharRight(false, 1);
} else if (r > -1) {
    StartOfDocument(true);
// 対応する括弧の種類を取得
    var s = Text;
var c2 = lp.charAt(r);
    // カーソル位置を復元
sel.CharRight(false, 1);
    SetActivePoint(mePosLogical, ax, ay, false);
sel.StartOfDocument(true);
    // スクロール位置を復元
var s = sel.Text;
    ScrollX = sx;
// カーソル位置を復元
    ScrollY = sy;
sel.SetActivePoint(mePosLogical, ax, ay, false);
    var x = ax;
// スクロール位置を復元
    for (var i = s.length - 1; i >= 0; i--) {
ScrollX = sx;
      x--;
ScrollY = sy;
      if (s.charAt(i) == c1)
var x = ax;
        st++;
for (var i = s.length - 1; i >= 0; i--) {
      if (s.charAt(i) == c2)
x--;
        st--;
if (s.charAt(i) == c1) {
      if (st == 0) {
st++;
        y = GetActivePointY(mePosLogical);
}
        // カーソル位置を復元
if (s.charAt(i) == c2) {
        SetActivePoint(mePosLogical, ax, ay, false);
st--;
        SetActivePoint(mePosLogical, x, y, shift);
}
        // 右に進む
if (st == 0) {
        CharRight(shift, 1);
y = sel.GetActivePointY(mePosLogical);
        break;
// カーソル位置を復元
      }
sel.SetActivePoint(mePosLogical, ax, ay, false);
      if (s.charAt(i) == "\n") {
sel.SetActivePoint(mePosLogical, x, y, shift);
        x = 1;
// 右に進む
        y = GetActivePointY(mePosLogical) - 1;
sel.CharRight(shift, 1);
        SetActivePoint(mePosLogical, x, y, false);
break;
        EndOfLine(false, mePosLogical);
}
        x = GetActivePointX(mePosLogical);
if (s.charAt(i) == "\n") {
      }
x = 1;
    }
y = sel.GetActivePointY(mePosLogical) - 1;
  } else {
sel.SetActivePoint(mePosLogical, x, y, false);
    // 括弧が無い場合は元の位置に戻す
sel.EndOfLine(false, mePosLogical);
    SetActivePoint(mePosLogical, ax, ay, false);
x = sel.GetActivePointX(mePosLogical);
    Status = "カーソル位置に括弧が見つかりませんでした";
}
  }
}
  if (st != 0) {
} else {
    SetActivePoint(mePosLogical, ax, ay, false);
// 括弧が無い場合は元の位置に戻す
    Status = "対応する括弧が見つかりませんでした";
sel.SetActivePoint(mePosLogical, ax, ay, false);
  }
Status = "カーソル位置に括弧が見つかりませんでした";
}
if (st != 0) {
sel.SetActivePoint(mePosLogical, ax, ay, false);
Status = "対応する括弧が見つかりませんでした";
}
}
// 描画開始
// 描画開始
Redraw = true;
Redraw = true;
</source>
</syntaxhighlight>


= masme 版 =
== masme 版 ==
* ステータスバーに括弧間の文字数を表示するようにしました。
* ステータスバーに括弧間の文字数を表示するようにしました。
* Kuro, kurama 版の不安定な挙動を調整しました。
* Kuro, kurama 版の不安定な挙動を調整しました。
130行目: 134行目:
** 開き括弧の直前ではなく、直後に移動する場合<sup>※</sup>があるのを修正。直前に移動するよう統一した。<br>※カーソル右側が改行か[EOF]の場合。改行をまたぐ移動になる場合。対応する括弧が行頭にある場合。
** 開き括弧の直前ではなく、直後に移動する場合<sup>※</sup>があるのを修正。直前に移動するよう統一した。<br>※カーソル右側が改行か[EOF]の場合。改行をまたぐ移動になる場合。対応する括弧が行頭にある場合。


== 更新履歴 ==
=== 変更履歴 ===
* 2019/04/12
* 1.0.2 (2019-04-12)
** Quit() → break ラベル文に変更。
** Quit() → break ラベル文に変更
* 2017/05/27
* 1.0.1 (2017-05-27)
** 処理方法を正規表現検索 → 文字列検索に変更し、高速化。
** 処理方法を正規表現検索 → 文字列検索に変更し、高速化
** 対応する括弧が見つからなかった場合、選択解除する → しない仕様に変更。
** 対応する括弧が見つからなかった場合、選択解除する → しない仕様に変更
* 2014/02/05
* 1.0.0 (2014-02-05)
** 初版公開。
** 初版公開


== ソースコード ==
=== ソースコード ===
<source lang="javascript">
<syntaxhighlight lang="javascript" copy>
//■対応する括弧に移動
//■対応する括弧に移動
//　2014/02/05-2019/04/12
//　2014-02-05 - 2019-04-12


//■括弧の定義(0+2n:開き/1+2n:閉じ)
//■括弧の定義(0+2n:開き/1+2n:閉じ)
158行目: 162行目:
var nest = 1, s, e;
var nest = 1, s, e;
if (iBrc % 2) { //◆閉じ括弧の場合、先頭方向へ探す
if (iBrc % 2) { //◆閉じ括弧の場合、先頭方向へ探す
  var eBrc = BRACKET.charAt(iBrc-1); //対応する開き括弧を取得
var eBrc = BRACKET.charAt(iBrc-1); //対応する開き括弧を取得
  while (nest) {
while (nest) {
    s = txt.lastIndexOf(sBrc,ePos-1);
s = txt.lastIndexOf(sBrc,ePos-1);
    e = txt.lastIndexOf(eBrc,ePos-1);
e = txt.lastIndexOf(eBrc,ePos-1);
    if (e===-1 || ePos<=0) break;
if (e===-1 || ePos<=0) break;
    if (e<s) {nest++; ePos=s;} else {nest--; ePos=e;}
if (e<s) {nest++; ePos=s;} else {nest--; ePos=e;}
  }
}
} else { //◆開き括弧の場合、末尾方向へ探す
} else { //◆開き括弧の場合、末尾方向へ探す
  var eBrc = BRACKET.charAt(iBrc+1); //対応する閉じ括弧を取得
var eBrc = BRACKET.charAt(iBrc+1); //対応する閉じ括弧を取得
  while (nest) {
while (nest) {
    s = txt.indexOf(sBrc,ePos+1);
s = txt.indexOf(sBrc,ePos+1);
    e = txt.indexOf(eBrc,ePos+1);
e = txt.indexOf(eBrc,ePos+1);
    if (e===-1) break;
if (e===-1) break;
    if (s<e && s!==-1) {nest++; ePos=s;} else {nest--; ePos=e;}
if (s<e && s!==-1) {nest++; ePos=s;} else {nest--; ePos=e;}
  }
}
}
}
if (nest!==0) { Status = "対応する括弧が見つかりませんでした"; break quit; }
if (nest!==0) { Status = "対応する括弧が見つかりませんでした"; break quit; }
179行目: 183行目:
Status = "対応する括弧の距離: "+(Math.abs(ePos - sPos)-1)+"文字";
Status = "対応する括弧の距離: "+(Math.abs(ePos - sPos)-1)+"文字";
}
}
</source>
</syntaxhighlight>
 
= 範囲選択の拡張 =
(sukemaru 2019/04/24)<br>
[[GetKeyState.exe(キー状態取得実行ファイル)]] を利用して、'''カッコを含めた全体を範囲選択'''、または'''カッコの内側部分だけを範囲選択'''するための追加コードです。<br>
[[#masme 版|masme 版]] (2019/04/12) のソースコードに追加コードを挿入してください（'''2ヵ所'''）。<br><br>
<span style="color:#c00;">ツールバーアイコンやメニュー（マクロメニューや右クリックメニュー）からマクロを実行するさいに Ctrl または Shift キーを押しながら実行すると、拡張コードが適用されます。 </span><br>
 
* <kbd>Ctrl</kbd> キーを押しながらマクロを実行した場合には、カッコを含めた全体を範囲選択します。
: → <span style="background:#bfdfff;">【 Ctrl ありでの選択範囲 】</span>
* <kbd>Shift</kbd> キーを押しながらマクロを実行した場合には、カッコの内側部分だけを範囲選択します。
: → 【<span style="background:#bfdfff;"> Shift ありでの選択範囲 </span>】
* <kbd>Ctrl</kbd><kbd>Shift</kbd> キー両方が押されている（または両方とも押されていない）場合には、masme 版の設定変数「SHIFT」の true / false で指定された動作をします。
: → <span style="background:#bfdfff;">【 SHIFT=true のばあい </span>】
※「対応する括弧に移動」を連続で実行（トグル移動）できるよう、拡張機能で範囲選択したあともカーソルは開きカッコか閉じカッコいずれかの「カッコの左」にセットされます。
: Ctrl　→　開きカッコの左 （選択範囲の先頭）
: Shift　→　閉じカッコの左 （選択範囲の末尾）
<br>
※ ショートカットキーでマクロを実行する場合、Ctrl キーを含むパターン、Shift キーを含むパターン、Ctrl と Shift 両方を含む（または両方を含まない）パターンのみっつのショートカットキーを登録する必要があります。すでに masme 版「対応する括弧に移動」にショートカットキーを割り当てて使用している場合、この追加コードを使用するにあたり、ショートカットの再割り当てをしてください。<br>
e.g. Ctrl＋F9 / Shift＋F9 / Ctrl＋Shift＋F9（または Alt＋F9 など）
<span style="color:#c00;">※ 外部実行ファイル GetKeyState.exe を2回呼び出すため、拡張コードの処理にはタイムラグが生じます。選択範囲が確定するまで Ctrl または Shift キーを押しっぱなしにしてください。</span><br>
※ GetKeyState.exe のダウンロードや導入方法については、マクロライブラリ内の「[[GetKeyState.exe(キー状態取得実行ファイル)]] 」のページへ
 
 
;追加コード➀<br>
15行目
if (iBrc===-1 || sBrc==="") { Status = "カーソル右側に括弧がありません"; break quit; }
の下に追加する
<source lang="javascript">
// ▼ GetKeyState を利用した機能拡張 ▼
  // Ctrl / Shift キーの状態を取得
  var $ctrl = 0, $shift = 0;
  var getKeyState = editor.FullName.replace(/mery\.exe$/i,"") + "Macros\\GetKeyState.exe";
  var WshShell = new ActiveXObject("WScript.Shell");
  $ctrl = WshShell.Run('"' + getKeyState + '" ctrl',0,true);
  $shift = WshShell.Run('"' + getKeyState + '" shift',0,true);
// ▲ GetKeyState を利用した機能拡張 ▲
</source>
 
;追加コード➁<br>
37行目
Status = "対応する括弧の距離: "+(Math.abs(ePos - sPos)-1)+"文字";
の下に追加する
<source lang="javascript">
// ▼ GetKeyState を利用した機能拡張 ▼
  // ※SHIFT 変数による選択範囲を上書きする（SHIFT = false; でも拡張コードでの範囲選択は有効）
  if ($ctrl || $shift) {
    var tPos = Math.min(sPos,ePos);
    var bPos = Math.max(sPos,ePos);
    // Ctrl キーだけ押し下げ時にはカッコを含めた全体を範囲選択
    if ($ctrl>0 && $shift==0) {
      Sel.SetActivePos(tPos);
      Sel.SetAnchorPos(bPos+1);
    }
    // Shift キーだけ押し下げ時にはカッコの内側だけを範囲選択
    else if ($ctrl==0 && $shift>0) {
      Sel.SetActivePos(bPos);
      Sel.SetAnchorPos(tPos+1);
    }
  }
// ▲ GetKeyState を利用した機能拡張 ▲
</source>
 
* 2019/05/12 変数名間違いを修正　sel → Sel （sukemaru)
「https://www.haijin-boys.com/wiki/対応する括弧に移動」から取得
スポンサーリンク