質問箱 No.56:任意の文字のシフトJISと区点コードを同じに知りたい

      ◇ 回答箱 No.056-1    回答者:  高橋 周助  1997年07月 186号 P.29
          ◇ 質問箱 目次へ
No.56   任意の文字のシフトJISと区点コードを同じに知りたい 質問者
   元山 よし子
1997年06月
185号 P.17
 下のプログラムはソードテレフォンサービスに教えてもらったものです。
 ‘ASCIIコード’を使って‘シフトJIS’を求めています。作業内容は画面のとおり、いたってシンプルです。

 ここに併せて、区点コードも一緒に表示させたいのですが・・・
 シフトJISはわかっても16進法を10進法に変換する計算式がわからないので、アドバイスをお願いします。
 1 <文字からコードを調べる>
 2 $カクニン:DISP OPEN(1,1,80,ENV(6)-3)/N; DISO COLOR(Y);
 3           DISP [06,06],"★ シフトJISコードを求める文字は? [ESCキー]=中止 ★";
 4              INPUT [06,08],"→ ",V1,U(JJ/AH);
 5                 IF ERR(0)=55 THEN GOTO $終了;
 6                 IF KLEN(V1)<>1 THEN GOTO $カクニン;
 7            DISP [06,10],"シフトJISコードは ",HEX$(ASCII(V1));
 8            INPIT [06,12],"リターンキーをたたく→",V30,U(J);
 9          GOTO $カクニン;
10 $終了:   CLOSE; STOP;


このページのTOPへ戻る