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    
無料ブログはココログ

« ショートカットに書けるバッチワンライナーの作り方 | トップページ | 全角ひらがな、全角カタカナの判別方法 »

2008年10月 8日 (水)

JIS非漢字、第一水準、第二水準の判別方法

JIS非漢字、第一水準、第二水準を判別します。

Function [非漢字](ByVal c)
[非漢字]=c=Chr(Asc(c))
If [非漢字] Then
  c=Asc(c)
  [非漢字]=&H8140<=c And c<=&H889e
End If
End Function

Function [第一水準](ByVal c)
[第一水準]=c=Chr(Asc(c))
If [第一水準] Then
  c=Asc(c)
  [第一水準]=&H889f<=c And c<=&H9872
End If
End Function

Function [第二水準](ByVal c)
[第二水準]=c=Chr(Asc(c))
If [第二水準] Then
  c=Asc(c)
  [第二水準]=&H989f<=c And c<=&Hea9e
End If
End Function

« ショートカットに書けるバッチワンライナーの作り方 | トップページ | 全角ひらがな、全角カタカナの判別方法 »