マルチカーソル選択範囲の並べ替え
ナビゲーションに移動
検索に移動
Mery ver 3.0.1 以降の マルチカーソル／複数選択範囲 を「昇順／降順」または「逆順」で並べ替えます。
- 単語のみの選択範囲でも、複数行の選択範囲でも「ひとつの選択範囲」として扱います。
- ⇒ 2020/07/04：「各選択範囲の末尾調整」(末尾改行を除外する) 用の設定項目
reverseModeを追加（初期値：false）
※ 「各選択範囲の末尾調整」を有効にした場合、並べ替え後の各選択範囲からも末尾改行が除外されたままになります。
- 矩形選択範囲は行に分けてから並べ替えをおこないます（実行後は矩形選択状態を復帰しません）。
- ※ 同一論理行内で完結している矩形選択範囲では並べ替えをおこないません（折り返し位置より後ろの文字列は矩形選択範囲内の文字列と見做しません。また、折り返しよりも後ろの文字列から下方向に矩形選択して実行することを考慮していません）。
- 【使用例】
- 選択範囲が２つなら「選択範囲を入れ替え」（トグル）
- "HOGE" , "FUGA" , "PIYO" ⇒ "FUGA" , "PIYO" , "HOGE" ⇒ "HOGE" , "FUGA" , "PIYO"
- 選択範囲が３つ以上なら「昇順／降順で並べ替え」（トグル）
- ※ 設定項目
var reverseMode = false（初期値:false） - "HOGE" , "FUGA" , "PIYO" ⇒ "FUGA" , "HOGE" , "PIYO" ⇒ "PIYO" , "HOGE" , "FUGA"
- ※ もともとの並び順が昇順または降順でないときは、連続実行（昇順／降順トグル）しても元の並び順にはなりません。 ⇒ 元の並び順に戻すばあいは UNDO (Ctrl＋Z) 連打で。
- 「逆順で並べ替え」（トグル）も可
- ※ 設定項目
var reverseMode = true（初期値:false） - "HOGE" , "FUGA" , "PIYO" ⇒ "PIYO" , "FUGA" , "HOGE" ⇒ "HOGE" , "FUGA" , "PIYO"
ダウンロード
「ファイル:選択範囲の並べ替え.zip」（最終更新：2020/07/04）
※ 「上／下」「左／右」の矢印アイコンを７つ入れてあります。
お好みで選んでご利用ください。
- 2020/07/04
- 「昇順／降順トグル」と「逆順並べ替え」で使い分けられるよう、設定項目
reverseModeを追加しました。
- または、ソースコード内 130 行目付近のコメントアウト部分をアンコメントすると「GetKeyState.exe」を利用した Ctrl キーの押し下げ判定による動的なモード切り替えも利用できます。
ソースコード
#title = "選択範囲の並べ替え"
#tooltip = "マルチカーソル選択範囲の並べ替え または 入れ替え"
#icon = "arrows_swap_horaizontal[7].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",332
// #title = "選択範囲の並べ替え（昇順／降順トグル）"
// #title = "選択範囲の並べ替え（反転）"
/**
* ---------------------------------------------------------
* 「選択範囲の並べ替え」マクロ
* sukemaru, 2020/06/29 - 2020/07/04
* ---------------------------------------------------------
* ・マルチカーソル選択範囲を「昇順／降順」または「逆順」で並べ替え
* ・選択範囲が２つなら入れ替え
* ・連続実行でトグル変換
*
* 2020/07/04: 「並び順を反転 (逆順で並べ替え)」モードを追加
* 「各選択範囲の末尾調整」を追加
*
* 【仕様上の制限】
* ・動作要件：Mery ver 3.0.1 以降
* ・元々の並び順が昇順または降順でなかった場合
* 連続実行で「昇順／降順トグル」しても元の並び順にはなりません。
* ⇒ 元々の並び順に戻す場合は「元に戻す (Ctrl＋Z)」を連打
* ・矩形選択範囲は行に分けてから並べ替えます。 ⇒ 実行後は複数選択状態
* （※ 元の矩形選択のかたちが歪だった場合に、矩形で復帰できないため）
* ・選択範囲復帰後の各キャレット位置は、各選択範囲の先頭になります。
* （※ 行単位で並べ替えたときに、キャレットが末尾だと分かりづらいため）
* ・ブックマークを考慮しません。
* ・並べ替え処理中に選択範囲（ゼロ幅も含めて）の数が変わってしまったり
* 文書全体の文字数が変わってしまう場合は、並べ替え処理ををキャンセルします。
* （※ 選択範囲が結合されてしまう場合もキャンセル
* ※ 失敗した試行の結果は「やり直し (Ctrl＋Y)」×２回すると確認できます）
*/
// ---------- ▼ 設定項目 ▼ ---------- //
// ■ 半角数字を数値で評価して「昇順／降順」で並べ替える
// （各選択範囲内の最初の半角数字部分を数値として扱う ...たぶん小数も可）
var sortByNum = false;
/**
* true： 数値順
* 1 < 002 < 3 < 10 < 020
* -2.5 < -2 < -1 < 0 < 1 < 1.2 < 1.2.30 < 1.2.4
*
* false： 文字順 @ unicode
* 002 < 020 < 1 < 10 < 3
* -1 < -2 < -2.5 < 0 < 1 < 1.2 < 1.2.30 < 1.2.4
*
* ※ true の場合でも「1.2.30」や「1.2.4」などは
* 「1.2」までを数値（小数）として評価し
* それ以降の「.30」や「.4」は文字列として評価するので
* ビルド番号や IP アドレスなどは数値順にならない
* また「ほげ 1 ふが 2 ぴよ 3」のように２ヵ所以上数字が出現する場合
* ２つめ以降の数字はすべて文字列として評価する
*/
// ■「昇順／降順」ではなく「並び順を反転 (逆順で並べ替え)」する
var reverseMode = false;
/**
* true: 並び順を反転 (逆順で並べ替え)
* false: 昇順／降順 で並べ替え
*/
// ■ 各選択範囲の末尾調整をする
var chompEnable = false;
/**
* true: 各選択範囲の末尾が改行のとき、末尾改行を選択範囲から除外する
* false: 選択範囲の末尾調整をしない
*
* ※ true の場合、並べ替え後も末尾改行は除外したまま
*/
// ---------- ▲ 設定項目 ▲ ---------- //
// 実行
SortByBlock( sortByNum, reverseMode, chompEnable );
/**
* 関数 SortByBlock()
* マルチカーソル複数選択範囲の入れ替え
* ※ マルチカーソル選択範囲を「昇順／降順」で並べ替え、または「反転 (逆転)」
*/
function SortByBlock( sortByNum, reverseMode, chompEnable ) {
var d = editor.ActiveDocument;
var s = d.selection;
var ty = s.GetTopPointY( mePosLogical );
var by = s.GetBottomPointY( mePosLogical );
var sMode = s.Mode || 1;
if ( d.ReadOnly ) {
Status = " このドキュメントは書き換え禁止です。";
return;
}
if ( s.IsEmpty
|| sMode == meModeStream
|| ( sMode == meModeBox && ty === by ) ) {
Status = " 並べ替えられる選択範囲がありません。";
return;
}
var sx = ScrollX, sy = ScrollY;
BeginUndoGroup(); AddUndo();
// 矩形選択を「行に分ける」（論理行）
s.Mode = meModeMulti;
// 末尾改行の調整
if ( sMode == meModeMulti && chompEnable ) {
MultiFunction( PseudoChomp );
}
// 各選択範囲の先頭／末尾の座標と文字列を取得
var dt = d.Text;
var sCount = s.Count;
var Sel = [], Str = [];
var act, anc, tp, bp;
for ( var i = 0; i < sCount; i ++ ) {
act = s.GetActivePos( i );
anc = s.GetAnchorPos( i );
tp = Math.min( act, anc );
bp = Math.max( act, anc );
Sel[i] = { tp: tp, bp: bp };
Str[i] = dt.slice( tp, bp );
}
var tmp = Str.toString();
// /* 「選択範囲の並べ替え」マクロ用 */
// // GetKeyState.exe で「昇順／降順」と「並び順を反転」モードを切り替え
// var gksPath = "";
// var gks = gksPath
// || editor.FullName.replace( /[^\\]+$/, "Macros\\GetKeyState.exe" );
// // ● Ctrl キーあり
// if ( sCount > 2 && // 選択範囲が３つ以上のとき
// new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks )
// && new ActiveXObject( "WScript.Shell" ).Run( '"' + gks + '" c', 0, true ) === 1 ) {
// reverseMode = ! reverseMode;
// }
// 逆順で並べ替え
if ( sCount === 2 || reverseMode ) {
$status = " 逆順で並べ替え";
Str.reverse();
}
else {
// 昇順で並べ替え
$status = " 昇順で並べ替え";
Str.sort( Sort );
// すでに昇順だった場合は降順で並べ替え（反転）
if ( Str.toString() === tmp ) {
$status = " 降順で並べ替え";
Str.reverse();
}
}
// 変更なしなら UNDO 履歴を残さない
if ( Str.toString() === tmp ) {
EndUndoGroup(); d.Undo();
Status = " 並べ替えなし";
return;
}
// 各選択範囲を処理
for ( var i = 0, diff = 0, dl = d.TextLength;
i < sCount; i ++ ) {
// dl = d.TextLength;
s.SetActivePos( Sel[i].bp + diff );
s.SetAnchorPos( Sel[i].tp + diff );
// 並べ替えを適用
s.Text = Str[i];
// 復帰用選択範囲の先頭／末尾
Sel[i].bp = s.GetActivePos();
Sel[i].tp = Sel[i].bp - Str[i].length;
// 文字数の増減量（累積）
// diff += d.TextLength - dl;
diff += ( - dl ) + ( dl = d.TextLength );
}
// マルチカーソル／複数選択範囲を復帰
s.SetActivePos( Sel[ sCount - 1 ].tp, true );
for ( var i = 0; i < sCount; i ++ ) {
// キャレットは各選択範囲の先頭
s.AddPos( Sel[i].bp, Sel[i].tp );
}
EndUndoGroup();
// 選択範囲の数が変わってしまう場合（マージ）や
// 文書全体の文字数が変わってしまう場合は失敗
if ( sMode == meModeMulti
&& s.Count !== sCount || diff ) {
AddUndo(); d.Undo(); d.Undo();
Status = " 並べ替え失敗";
}
else {
Status = ( sCount === 2 ) ? " 選択範囲を入れ替え"
: $status;
}
ScrollX = sx; ScrollY = sy;
}
/**
* 関数 Sort( a, b )
* 昇順で並べ替え
* 半角数字部分は「数値」または「文字列」で評価
* ※ sortByNum はグローバルスコープの設定変数
*/
function Sort( a, b ) {
var reg = /^(.*?)(-?\d+(?:\.\d+)?)/;
var aa = reg.exec( a ), a1 = aa ? aa[1] : "";
var bb = reg.exec( b ), b1 = bb ? bb[1] : "";
var a2 = a, b2 = b;
if ( sortByNum && aa && bb && a1 === b1 ) {
a2 = Number( aa[2] );
b2 = Number( bb[2] );
}
return ( a2 !== a && a2 !== b2 ) ? a2 - b2
: ( a < b ) ? -1
: ( a > b ) ? 1
:/* else */ 0;
}
/**
* 関数 PseudoChomp()
* 選択範囲から末尾改行を除去する
* ※ 選択範囲の先頭位置は変更しない
*/
function PseudoChomp() {
var d = editor.ActiveDocument;
var s = d.selection;
if ( s.Text.slice( -1 ) === "\n" ) {
var ty = s.GetTopPointY( mePosLogical );
var tx = s.GetTopPointX( mePosLogical );
var by = s.GetBottomPointY( mePosLogical );
by --;
s.SetActivePoint( mePosLogical, tx, ty );
s.SetAnchorPoint( mePosLogical, d.GetLine( by, 0 ).length + 1, by );
}
}
/**
* 関数 MultiFunction( Fn, arg )
* マルチカーソル（複数選択範囲）に対応させる
* マルチカーソル（複数選択範囲）に対応させる
* 第１引数: Function; 選択範囲ごとに適用する処理の関数
* 第２引数: Function に渡す引数をまとめた配列
*
* ※ 並べ替えマクロ用カスタマイズ:
* ⇒ PseudoChomp() 関数にしか使わないので、文字数の増減量をチェックしない
*/
function MultiFunction( Fn, arg ) {
var d = editor.ActiveDocument;
var s = d.selection;
// // 矩形選択範囲は行に分ける
// s.Mode = meModeMulti;
// 選択範囲の座標を取得
var sCount = s.Count;
var Sel = [];
for ( var i = 0; i < sCount; i ++ ) {
Sel[i] = {
act: s.GetActivePos( i ),
anc: s.GetAnchorPos( i )
};
}
// 各選択範囲を処理
for ( var i = 0, diff = 0, dl; i < sCount; i ++ ) {
// dl = d.TextLength;
s.SetAnchorPos( Sel[i].anc + diff );
s.SetActivePos( Sel[i].act, true + diff );
Fn( arg ); // PseudoChomp() 関数
// Fn() の残した選択範囲（またはキャレット位置）を回収
Sel[i].act = s.GetActivePos();
Sel[i].anc = s.GetAnchorPos();
// 文字数の増減量（累積）
// diff += d.TextLength - dl;
}
// マルチカーソル（複数選択範囲）を復帰
for ( var i = 0; i < sCount; i ++ ) {
s.AddPos( Sel[i].anc, Sel[i].act );
}
}
メモ
2020/06/30 (sukemaru)
- 書き替え禁止のタブで実行したときに選択範囲のハイライト位置だけが移動してしまう不具合を修正
- 同一論理行内の折り返しによる「見かけ上の矩形選択範囲」でのエラー回避処理を追加
- ※ 折り返し位置よりも後ろの文字列を矩形選択して並べ替える必要がある場合は、「折り返しなし」表示にしてから実行するか、複数選択範囲状態から実行しなければならない
- 並べ替え後のマルチカーソル選択範囲の各キャレット位置を、各選択範囲の先頭に変更
- 小数と負の数値の処理を変更
- ゼロ幅選択範囲をふくむ並べ替えの不具合を修正（ゼロ幅選択範囲があるときは並べ替えなし）
- ※ 現状のコードでは、ゼロ幅選択範囲があると実行後に選択範囲を正常に復帰に復帰できないことや、元の選択範囲周辺の文字列が消えてしまうことがあるため
2020/07/04 (sukemaru)
- 「並び順を反転 (逆順で並べ替え)」モードを追加 し、マクロの #title から「昇順／降順トグル」の語句をはずした
- 「各選択範囲の末尾調整」の設定項目を追加
- ゼロ幅選択範囲をふくむ並べ替えを許容
- ※ ただし、処理中に選択範囲が結合されてしまったり文字数の増減が発生する場合は、処理をキャンセルして実行前の状態にもどす
スポンサーリンク