◀マクロトップへ
  • 418 選択範囲をバイナリ→%02X変換

  • [418] 選択範囲をバイナリ→%02X変換 じゅうじ 2008年03月28日 23:19

    # (3) 「サクラエディタ」→「8354834E8389834783668342835E」
    # 選択範囲に対してSJIS変換を行う PerlScript マクロ
    # 参考>>data:5452 by miau
    $seltext = $Editor->GetSelectedString();
    $seltext =~ s/(.)/sprintf('%02X', unpack("U", $1))/eg;
    $Editor->CancelMode();
    $Editor->InsText($seltext);
    # 以降のコメントは、PerlScript のバグに
    # 対応するためのものです。

    SJIS2HEX.pls
    コードによっては中点・8145になります。

    # (4)「8354834E8389834783668342835E」→「サクラエディタ」
    # 選択範囲に対してSJIS変換を行う PerlScript マクロ
    # 参考>>data:5452 by miau
    $seltext = $Editor->GetSelectedString();
    $seltext =~ s/([a-fA-F0-9]{2})/pack("c", hex($1))/eg;
    $Editor->CancelMode();
    $Editor->InsText($seltext);
    # 以降のコメントは、PerlScript のバグに
    # 対応するためのものです。

    HEX2SJIS.pls
    コードによっては中点・8145になります。