判断字符是否是GB2312-80的汉字。

判断字符是否是GB2312-80的汉字。

　　首先，先介绍GB2312-80编码。参看文章“GB2312编码”。以下内容来自那篇文章。

　　GB2312或GB2312-80是一个简体中文字符集的中国国家标准，全称为《信息交换用汉字编码字符集--基本集》，由中国国家标准总局发布，1981年5月1日实施。GB2312编码通行于大陆；新加坡等地也采用此编码。几乎所有的中文系统和国际化的软件都支持GB2312。

　　GB2312标准共收录6763个汉字，其中一级汉字3755个，二级汉字3008个；同时，GB2312收录了包括拉丁字母、希腊字母、日文平假名及片假名字母、俄罗斯语西里尔字母在内的682个全形字符。

　　GB2312的出现，基本满足了汉字的计算机处理需要，它所收录的汉字已经覆盖99.75%的使用频率。

　　对于人名、古汉语等方面出现的罕用字，GB2312不能处理，这导致了后来GBK及GB18030汉字字符集的出现。

分区表示
　　GB2312中对所收汉字进行了“分区”处理，每区含有94个汉字/符号。这种表示方式也称为区位码。

　　　　01-09区为特殊符号。
　　　　16-55区为一级汉字，按拼音排序。
　　　　56-87区为二级汉字，按部首/笔画排序。
　　　　10-15区及88-94区则未有编码。

　　　　举例来说，“啊”字是GB2312之中的第一个汉字，它的区位码就是1601。

　　字节结构
　　在使用GB2312的程序中，通常采用EUC储存方法，以便兼容于ASCII。

　　每个汉字及符号以两个字节来表示。第一个字节称为“高位字节”，第二个字节称为“低位字节”。“高位字节”使用了0xA1-0xF7(把01-87区的区号加上0xA0)，“低位字节”使用了0xA1-0xFE(把01-94加上0xA0)。例如“啊”字在大多数程序中，会以0xB0A1储存。（与区位码对比：0xB0=0xA0+16,0xA1=0xA0+1）。

　　在实际的运用中，有时会要求判断一个中文字符是否是GB2312中的中文字符。

　　在VB2005中，tB = System.Text.Encoding.GetEncoding("gb18030").GetBytes(S)，表示将字符S的内码放到tB这个字节数组里。其中gb18030是向下兼容gb2312。

　　于是，编写了一个函数，用来判断字符是否是gb2312的中文字符。用的是VB2005

　　

     
     

      
      
      
       
      
      Public
      
       
      
      Function
      
       IsGB2312(
      
      ByVal
      
       S 
      
      As
      
       
      
      String
      
      ) 
      
      As
      
       
      
      Boolean
      
      
        
      
      If
      
       S 
      
      Is
      
       
      
      Nothing
      
       
      
      Then
      
       
      
      Return
      
       
      
      False
      
      
        
      
      If
      
       S 
      
      =
      
       
      
      ""
      
       
      
      Then
      
       
      
      Return
      
       
      
      False
      
      
        
      
      If
      
       S.Length 
      
      >
      
       
      
      1
      
       
      
      Then
      
       S 
      
      =
      
       S.Substring(
      
      0
      
      , 
      
      1
      
      )
        
      
      Dim
      
       tB() 
      
      As
      
       
      
      Byte
      
      
        
      
      Try
      
      
            tB 
      
      =
      
       System.Text.Encoding.GetEncoding(
      
      "
      
      gb18030
      
      "
      
      ).GetBytes(S)
            
      
      If
      
       tB.Length 
      
      =
      
       
      
      2
      
       
      
      Then
      
      
                
      
      If
      
       tB(
      
      0
      
      ) 
      
      >=
      
       
      
      176
      
       
      
      AndAlso
      
       tB(
      
      0
      
      ) 
      
      <=
      
       
      
      247
      
       
      
      AndAlso
      
       tB(
      
      1
      
      ) 
      
      >=
      
       
      
      161 _
     
     
     
     

      
      　　　　　　　　　　　　　　 
      
      AndAlso
      
       tB(
      
      1
      
      ) 
      
      <=
      
       
      
      254
      
       
      
      Then
      
      
                    
      
      If
      
       tB(
      
      0
      
      ) 
      
      =
      
       
      
      215
      
       
      
      AndAlso
      
       tB(
      
      1
      
      ) 
      
      >
      
       
      
      249
      
       
      
      Then
      
      
                        
      
      Return
      
       
      
      False
      
      
                    
      
      Else
      
      
                        
      
      Return
      
       
      
      True
      
      
                    
      
      End
      
       
      
      If
      
      
                
      
      Else
      
      
                    
      
      Return
      
       
      
      False
      
      
                
      
      End
      
       
      
      If
      
      
            
      
      Else
      
      
                
      
      Return
      
       
      
      False
      
      
            
      
      End
      
       
      
      If
      
      
        
      
      Catch
      
      
            
      
      Return
      
       
      
      False
      
      
        
      
      End
      
       
      
      Try
      
      
    
      
      End Function
     
     

 　　注：在VB2005中，ASC函数也能返回字符的内码，不过返回值是Integer型的。而且由于和早期的VB版本兼容，返回值还进行了一定的处理。早期的VB中Integer用的是2个字节，那么，汉字的内码也是两个字节，这两个字节组成一个Integer型的变量，由于第一个字节的最高位一定是1，所以，早期的VB的汉字的内码是一个小于0的整数。而VB2005的Integer型的变量是4个字节。汉字的内码是两个字节，转到Integer型，填充到后面两个字节，前面两个字节用0填充，这样一来，VB2005的汉字内码应该是一个正数，但为了和早期的兼容，VB2005做了一定的处理，用了一个公式256X+Y-65536来计算汉字的内码，其中X是内码的第一个字节，Y是内码的第二个字节。