「ひらがな／カタカナ変換」を編集中 (節単位)

== ひらがな／カタカナ トグル変換 == 
実行するごとに「ひらがな ⇔ カタカナ」の相互変換をします。

※ ひらがなとカタカナが混在した文字列はカタカナに統一します。

=== マルチカーソル／複数選択範囲での動作 ===
'''マルチカーソル／複数選択範囲''' での推奨動作要件： Mery Ver <b style="color:#c00;">3.0.1</b> 以上

; 制限事項<br>
* <span style="color:#c00;">複数の選択範囲にたいして統一的に「ひらがな化」または「カタカナ化」の変換を適用することはできません。</span><br> それぞれの選択範囲ごとに「ひらがな化／カタカナ化」の変換方式が個別に適用されます（「カタカナ」の選択範囲と「ひらがな」の選択範囲がある場合、前者の選択範囲の文字列は「ひらがなに変換」され、後者の選択範囲の文字列は「カタカナに変換」されます。<br> また、ひらがな／カタカナの混在した文字列の場合はカタカナ化されます）。
* エディタが折り返し表示になっているとき、<span style="color:#c00;">折り返しより後ろ（改行まで）の文字列は矩形選択範囲内の文字列とみなされません。</span><br> また、同一論理行内で完結した矩形選択では変換しません。<br> あらかじめ、変換の必用な部分だけを Ctrl＋ドラッグ で複数選択範囲にするか「選択範囲を行に分ける」コマンド（右クリックメニュー用コマンド）を適用してから、このマクロを実行してください。
* <span style="color:#c00;">矩形選択範囲から実行した場合も変換後に選択範囲を復帰しますが、矩形選択範囲ではなく、複数選択状態になります</span> （文字幅が変わるため矩形選択ではズレてしまい、正常に復帰できない）。

=== ソースコード ===
; ダウンロード　>> 「[[ファイル:ひらがな／カタカナ変換.zip]]」（アイコン入り）

2020/07/08: 第2版の修正版<br>
* ひらがな／カタカナのない複数選択範囲から実行したときに UNDO 履歴が残らないように変更<br>
2020/06/24: 第2版
* Mery Ver 3.0.1 以降のマルチカーソル／複数選択範囲に対応
* ブックマーク保守の処理を最適化
2020/01/03: 初版

<syntaxhighlight lang="javascript" style="height:80em; overflow:auto;">
#title = "ひらがな／カタカナ変換"
#tooltip = "ひらがな／全角カタカナ のトグル変換"
#icon = "あア[1].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl", 324

/**
 * --------------------------------------------------------
 * ひらがな／カタカナ トグル変換
 * sukemaru, 2020/01/03 - 2020/07/08
 * --------------------------------------------------------
 * ※ Mery Ver 3.0.1 以降の矩形選択範囲とマルチカーソル／複数選択範囲に対応
 */

// ---------- ▼ 設定項目 ▼ ---------- //

// ■ 選択範囲がないとき
var autoSelection = 1;
  /**
   * 0: なにもしない
   * 1: カーソル位置の単語を自動選択
   * 2: カーソル位置の行全体（表示行）を自動選択
   * 3: カーソル位置の行全体（論理行）を自動選択
   * 4: 文書全体を自動選択
   */

// ---------- ▲ 設定項目 ▲ ---------- //

var d = editor.ActiveDocument,  s = d.selection;

if ( d.ReadOnly ) {
  Status = "　このドキュメントは書き換え禁止です。";
}
else if ( s.IsEmpty && ! autoSelection ) {
  Status = "　選択範囲がありません。";
}
else {
  editor.ExecuteCommandByID( 2189 );	// アクティブなペイン
  var sx = ScrollX,  sy = ScrollY;

  // マルチカーソル／複数選択に対応
  var arg = [ autoSelection ];
  // 選択範囲が１つで矩形選択ではないとき
  if ( ! s.Mode || s.Mode == 1 ) {
    KanaGanaConv( arg );
  }
  // 矩形選択または複数選択のとき
  else {
    var st = s.Text;
    BeginUndoGroup();
    AddUndo();
    MultiFunction( KanaGanaConv, arg );
    EndUndoGroup();
    // 変換なしなら AddUndo を破棄する ◆2020/07/08◆
    if ( s.Text === st ) { d.Undo(); }
  }

  ScrollX = sx;  ScrollY = sy;
}

/**
 * 関数 KanaGanaConv( autoSelection )
 * ひらがな／カタカナ トグル変換
 */
function KanaGanaConv( arg ) {
  var autoSelection = arg[0];

  var d = editor.ActiveDocument,  s = d.selection;
  var pos = s.IsEmpty ? s.GetActivePos() : -1;

  // 非選択時には自動選択
  if ( pos > -1 ) {
    if ( autoSelection === 1 ) {
      s.SelectWord();
    }
    else if ( autoSelection === 2 || autoSelection === 3 ) {
      var posMode = autoSelection - 1;
      s.EndOfLine( false, posMode );
      s.SetAnchorPoint( posMode, 1, s.GetActivePointY ( posMode ) );
    }
    else if ( autoSelection === 4 ) { s.SelectAll(); }
  }
  var tp = Math.min( s.GetActivePos(), s.GetAnchorPos() );
  var ty = s.GetTopPointY( mePosLogical );
  var by = s.GetBottomPointY( mePosLogical );
  var bx = s.GetBottomPointX( mePosLogical );
  var a = 0;
  if ( ty < by && bx === 1 ) {
    by --;  a = 1;
    s.SetActivePoint( mePosLogical, d.GetLine( by, 0 ).length + 1, by );
    s.SetAnchorPos( tp );
  }
  var st = tmp = s.Text;

  if ( st ) {
    // ● ひらがな ⇒ 全角カタカナ変換	「ゔ ゕ ゖ ⇒ ヴ ヵ ヶ」含む
    tmp = st.replace( /う[゛ﾞ\u3099]/g, "ヴ" )
            .replace( /[\u3041-\u3096\u309D\u309E]/g, function( chr ) {
             return String.fromCharCode( chr.charCodeAt( 0 ) + 0x60 );
    } );
    // ※ unicode 文字に対応できるときは「ヷ ヸ ヹ ヺ」に変換
    if ( d.Encoding >= 65000 ) {
      tmp = tmp.replace( /ワ[゛ﾞ\u3099]/g, "\u30F7" ).replace( /ヰ[゛ﾞ\u3099]/g, "\u30F8" )
               .replace( /ヱ[゛ﾞ\u3099]/g, "\u30F9" ).replace( /ヲ[゛ﾞ\u3099]/g, "\u30FA" );
    }

    if ( st === tmp ) {
      // ● 全角カタカナ ⇒ ひらがな変換
      // ※ 「ヷ ヸ ヹ ヺ」は「かな＋濁点」に分解する
      tmp = st.replace( /\u30F7/g, "わ゛" ).replace( /\u30F8/g, "ゐ゛" )
              .replace( /\u30F9/g, "ゑ゛" ).replace( /\u30FA/g, "を゛" )
              .replace( /[\u30A1-\u30F3\u30FD\u30FE]/g, function( chr ) {
               return String.fromCharCode( chr.charCodeAt( 0 ) - 0x60 );
      } );
      // ※ unicode 文字に対応できるときは「ゔ ゕ ゖ」に変換
      if ( d.Encoding >= 65000 ) {
        tmp = tmp.replace( /[\u30F4-\u30F6]/g, function( chr ) {
                  return String.fromCharCode( chr.charCodeAt( 0 ) - 0x60 );
        } );
      }
      // ※ Shift_JIS などでは「ヴ ヵ ヶ ⇒ う゛ ヵ ヶ」
      else {
        tmp = tmp.replace( /\u30F4/g, "う゛" );
      }
    }

    if ( st !== tmp ) {
      // ブックマークを保存
      var bmArray = GetBookmark( ty, by );

      // 選択範囲を変換
      s.Text = tmp;

      // ブックマークを復元
      RestoreBookmark( ty, by, bmArray );

      s.SetActivePos( tp + tmp.length + a );
      s.SetAnchorPos( tp );
    }

    else {
      Status = "　ひらがな／カタカナ がありません。";
      if ( pos > -1 ) { s.SetActivePos( pos ); }
    }
  }
}


/**
 * 関数 GetBookmark( ty, by )
 * 指定された範囲のブックマークを収集
 */
function GetBookmark( ty, by ) {
  var bmArray = [],  bmY;
  var s = editor.ActiveDocument.selection;
  if ( ty < by ) {
    var anc = s.GetAnchorPos(),  act = s.GetActivePos();

    if ( ty === 1 ) {
      s.SetActivePoint( mePosLogical, 1, 2 );
      if ( s.PreviousBookmark() ) {
        bmY = s.GetActivePointY( mePosLogical );
        if ( bmY >= ty && bmY <= by ) {
          bmArray.push( bmY );
        }
      }
      s.SetActivePos( 0 );
    }
    else { s.SetActivePoint( mePosLogical, 1, ty - 1 ); }

    while ( s.NextBookmark() ) {
      bmY = s.GetActivePointY( mePosLogical );
      if ( bmY >= ty && bmY <= by ) {
        bmArray.push( bmY );
      }
      else if ( bmY > by ) { break; }
    }
    s.SetActivePos( act );  s.SetAnchorPos( anc );
  }
  return bmArray;
}

/**
 * 関数 RestoreBookmark( ty, by, bmArray, sel )
 * 指定された範囲のブックマークを復元
 */
function RestoreBookmark( ty, by, bmArray, sel ) {
  var bmCount = bmArray.length;
  if ( bmCount ) {
    var s = editor.ActiveDocument.selection;
    var anc = s.GetAnchorPos(),  act = s.GetActivePos();
    s.SetActivePoint( mePosLogical, 1, ty );
    s.ClearBookmark();
    for ( var i = 0; i < bmCount, bmArray[i] <= by; i ++ ) {
      if ( bmArray[i] < ty ) { continue; }
      s.SetActivePoint( mePosLogical, 1, bmArray[i], false );
      s.SetBookmark();
    }
    if ( sel ) {
      s.SetActivePos( act );  s.SetAnchorPos( anc );
    }
  }
}


/**
 * 関数 MultiFunction( Fn, arg1 )
 * マルチカーソル（複数選択範囲）に対応させる
 * ※ 文字数が変化しないマクロ用: 矩形選択を復帰可
 * 
 * 第１引数: Function; 選択範囲ごとに適用する処理の関数
 * 第２引数以降: Function に渡す引数をまとめた配列
 */
function MultiFunction( Fn, arg ) {
  var d = editor.ActiveDocument;
  var s = d.selection;

  // 矩形選択範囲は行に分ける
  var sMode = s.Mode;
  if ( sMode == 2 ) {
    var act = s.GetActivePos(),  anc = s.GetAnchorPos();
  }
  s.Mode = 3;

  // 選択範囲の座標を取得
  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.SetActivePos( Sel[i].act + diff );
    s.SetAnchorPos( Sel[i].anc + diff );

    Fn( arg );	// KanaGanaConv() 関数

    // Fn() の残した選択範囲（またはキャレット位置）を回収
    Sel[i].act = s.GetActivePos();
    Sel[i].anc = s.GetAnchorPos();
    diff += d.TextLength - dl;	// 文字数の増減量（累積）
  }

  // 矩形選択範囲を復帰（文字数が変化していた場合はズレる）
  if ( sMode == 2 ) {
    s.SetAnchorPos( anc );
    s.SetActivePos( act, true );
    s.Mode = 2;
  }
  // マルチカーソル（複数選択範囲）を復帰
  else {
    for ( var i = 0; i < sCount; i ++ ) {
      s.AddPos( Sel[i].anc, Sel[i].act );
    }
  }
}
</syntaxhighlight>
----
以下２件、<b>参照　>> 『[[テキスト整形#字種/数値変換|テキスト整形]]』マクロ</b>