2017年11月
      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
26 27 28 29 30    
無料ブログはココログ

« シフトJISにない文字を判定する。 | トップページ | アプリの入出力パラメタ »

2008年3月17日 (月)

半角か?、全角か?、はたまた、シフトJISにない文字か?

所謂、1バイト文字、半角文字を
ASCII + 半角カタカナ
とすれば、以下で得られます。

If 0 <= AscW(c) And AscW(c) <= 127 Or &Hff61 <= AscW(c) And AscW(c) <= &Hff9f Then '半角文字

シフトJIS = ASCII + 半角カタカナ + JIS漢字
とすれば、所謂、2バイト文字、全角文字は、
JIS漢字 = シフトJIS - ASCII - 半角カタカナ
で得られます。

If Chr(Asc(c))<>c Then 'シフトJISにない文字
ElseIf 0 <= AscW(c) And AscW(c) <= 127 Then 'ASCII
ElseIf &Hff61 <= AscW(c) And AscW(c) <= &Hff9f Then '半角カタカナ
Else
'全角文字
End If

« シフトJISにない文字を判定する。 | トップページ | アプリの入出力パラメタ »