| |
> でもこれだと、毎回ここまでたどり着かないといけない。
> 常時表示するのを探していたのですが・・・
常に表示は出来ません、と思いますが ...
「文字コード表示」の機能を好きなキーに割り当てます。「キーの割り当て」です。
これは「ヘルプ」に在るでしょう。
マクロでは、一行で showcode; です。これだけで作成する、いみはないかも ...
> おこれません。(^^ゞ
何処の地域の言葉ですか ???
それとも、あちきが年をとり過ぎたのかも ...
//*3 KZHM_114.mac
//*3_Desc.: 【文字のコード表示】 - このマクロは全角の空白を含んでいます。
// "abc-xyz", "ABC-XYZ", "0123-9",
// "０ - ９", "Ａ - Ｚ", "ａ - ｚ",
// "あ - ん", "ア - ン",
$wk1 = "文字をダブルクリックして下さい !";
$wk1 = $wk1 + "\n [Esc] で終了します。";
$wk1 = $wk1 + "\n\n結果は、このウィンドウのタイトルバーに表示します。";
message $wk1;
while( ! iskeydown( 0x1B ) ){ // [Esc] が押されるまでループする !
// showcode;
call pp_dec_hex1;
$wk1 = $wk2 + " - ";
if( code == ' ' ){
$wk1 = $wk1 + str(code) + " - ' ' - 半角のスペース文字です。";
} else if( code == 0x8140 ){
$wk1 = $wk1 + str(code) + " - '\x81\x40' - 全角のスペース文字です。";
} else if( code == ' ' ){
$wk1 = $wk1 + str(code) + " - ' ' - 全角のスペース文字です。";
} else if( code == 0x09 ){
$wk1 = $wk1 + str(code) + " - tab - タブ (制御コード) です。";
} else if( code == 0x0D ){
$wk1 = $wk1 + str(code) + " - CR - 改行 (制御コード) です。";
} else if( code == -1 ){
$wk1 = $wk1 + str(code) + " - eof - [EOF] (制御コード) です。";
} else if( code <= 0x20 ){
$wk1 = $wk1 + str(code) + " - その他の制御コードです。";
} else if( code <= 0xFF ){
$wk1 = $wk1 + str(code) + " - '" + char(code) + "' - その他の半角文
字です。";
} else {
$wk1 = $wk1 + str(code) + " - '" + char(code) + "' - その他の全角文
字です。";
}
inputpos "文字をダブルクリックして下さい ! [Esc] で終了します。 : " + $wk1;
}
gofiletop; // ファイルの先頭にカーソルを移動します。
endmacro;
pp_dec_hex1:
$tbl_hex = "0123456789ABCDEF";
#k = code; $wk2 = "";
while( #k != 0 ){
#i = #k%256; #k = #k/256; #j = #i%16; #i = #i/16;
$wk2 = midstr($tbl_hex,#i,1) + midstr($tbl_hex,#j,1) + $wk2;
}
$wk2 = "0x" + $wk2;
return;
|
|