| |
こんなマクロでは用は足しませんか ...
//*1 KZHM_114.mac 1998/07/01
//*1_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;
|
|