关闭

VB StrConv方法使用注意事项

标签: vbfunctionintegerstring
2032人阅读 评论(0) 收藏 举报
分类:

  '******   简繁体互换   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)   )方法取得转换后的字符传长度.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:122506次
    • 积分:1720
    • 等级:
    • 排名:千里之外
    • 原创:38篇
    • 转载:25篇
    • 译文:2篇
    • 评论:24条
    文章分类
    最新评论