| |
>「バイナリエディター」というような本格的なものでなく、単にダ
>ンプするだけ（漢字コードの配慮などをしないだけ）でもいいので
>すがね....
を「卓駆★」のバイナリーでみると、
00000000 : 3E 81 75 83 6F 83 43 83 69 83 8A 83 47 83 66 83 : >「バイナリエディ
00000010 : 42 83 5E 81 5B 81 76 82 C6 82 A2 82 A4 82 E6 82 : Bター」というよう
00000020 : A4 82 C8 96 7B 8A 69 93 49 82 C8 82 E0 82 CC 82 : .な本格的なもので
00000030 : C5 82 C8 82 AD 81 41 92 50 82 C9 83 5F 0D 0A 3E : .なく、単にダ..>
00000040 : 83 93 83 76 82 B7 82 E9 82 BE 82 AF 81 69 8A BF : ンプするだけ（漢
00000050 : 8E 9A 83 52 81 5B 83 68 82 CC 94 7A 97 B6 82 C8 : 字コードの配慮な
00000060 : 82 C7 82 F0 82 B5 82 C8 82 A2 82 BE 82 AF 81 6A : どをしないだけ）
00000070 : 82 C5 82 E0 82 A2 82 A2 82 CC 82 C5 0D 0A 3E 82 : でもいいので..>す
00000080 : B7 82 AA 82 CB 2E 2E 2E 2E 0D 0A : .がね......
と加工できます。
後は、マクロを書くのもあんです。
// TEST1.MAC
call pk_conv_bin_hex1 ' ';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 'A';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 'a';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '0';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '１';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 'ｚ';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 'ぁ';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 'ヶ';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '①';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '亜';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '腕';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '弌';
message "charset\n\nhex. - " + $$return;
call pk_conv_bin_hex1 '熙';
message "charset\n\nhex. - " + $$return;
endmacro;
//*6MICROpk_conv_bin_hex1
//*6_Desc.convert binary to hex. text stringVer. 02.01
//*6call pk_conv_bin_hex1 arg_n1;
//*6arg_n1 : binary//##1
//*6$$return : hex. text string, minus - FFxxxxxx (8)
//*6global area : N/A
endmacroall;
pk_conv_bin_hex1:
$$tbl_hex = "0123456789ABCDEF";
$$wk1 = "";##k = ##1;##m = ##1;
if( ##k == 00 ){return "00";}//zero
if( ##k < 00 ){##k = 256*256*256*256 + ##k;}//minus
while( ##k != 0 ){
##i = ##k%256;##k = ##k/256;##j = ##i%16;##i = ##i/16;
$$wk1 = midstr($$tbl_hex,##i,1) + midstr($$tbl_hex,##j,1) + $$wk1;
}
//if( ##m < 00 && leftstr($$wk1,2) != "FF" && strlen($$wk1) < 8 ){
//$$wk1 = "FF" + $$wk1;//minus FFxx
//}
if( ##m < 00 ){
$$wk1 = rightstr("FFFFFF"+$$wk1,8);//minus FFxx (8)
}
return $$wk1;
//*6MICRO_END
|
|