VB StrConv方法使用注意事项

  '******   简繁体互换   GB-->Unicode-->BIG5   Or   BIG5-->Unicode-->GB     *****************  
  '参数sStr为需要转换的文本  
  '参数iConver为要转化的类型，为1时表示繁体到简体的转换，为2时表示简体到繁体的转换  
  Function   GBBIG5(sStr   As   String,   iConver   As   Integer)   As   String  
  On   Error   Resume   Next  
          Dim   STR  
          If   iConver   =   1   Then   'BIG5-->GB  
                  STR   =   StrConv(sStr,   vbFromUnicode,   &H804)  
                  GBBIG5   =   StrConv(STR,   vbUnicode,   &H404)  
          ElseIf   iConver   =   2   Then   'GB-->BIG5  
                  STR   =   StrConv(sStr,   vbFromUnicode,   &H404)  
                  GBBIG5   =   StrConv(STR,   vbUnicode,   &H804)  
          End   If  
   
  End   Function    

注:英文,中文等系统中用 LenB(StrConv(sStr, vbFromUnicode)) 取出的长度是不一样的,这和系统的默认字符集有关,所以主要是使用 LenB(StrConv(sStr,   vbFromUnicode,   &H804)   )方法取得转换后的字符传长度.