Macro/投稿/91

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F91


Top > Macro > 投稿 > 91

非7bit-ASCII文字置換

  • ページ: Macro/投稿
  • 作者: miau?
  • カテゴリー: pls
  • 投稿日: 2006-07-20 (木) 09:24:11

メッセージ

選択文字列中で 7-bit ASCII 以外の部分を \x80 に置換するマクロです。 その文字列が「バイト単位の parse しかしてくれないプログラムからどう見えるか」を調べるのに便利かもしれません。

  • 置換前
    C:\某プロジェクト\システム構成
  • 置換後
    C:\・^・v・・・W・F・N・g\・V・X・e・・・\・・

※実際は \x80 に置き換えるんですが、IE だと ? とか表示されて見にくいのでここでは中点にしています。


  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
use strict;
use warnings;
use Win32::Clipboard;
 
# 選択状態を取得
my $is_text_selected = IsTextSelected();
exit 0 unless $is_text_selected;        # 未選択時は終了
 
# 選択文字列の取得
my $seltext = GetSelectedString();
 
# 7-bit ASCII 以外の文字を \x80 に置換
$seltext =~ tr/\x81-\xff/\x80/;
 
# 置換後文字列の出力
if ($is_text_selected == 2) {
        # 矩形選択時→矩形貼り付け
        Win32::Clipboard::Set($seltext);
        PasteBox();
}
else {
        # 通常選択時→挿入
        InsText($seltext);
}
 
#...............................................................................


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-30 (日) 01:08:39 (4405d)