VB StrConv方法使用注意事项

原创 2007年09月28日 11:55:00

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

相关文章推荐

VB.NET自定义组件方法及注意事项

Imports System.ComponentModelImports System.IOImports System.Windows.FormsImports YeWuBillPublic Cla...

在VB中调用Windows API的注意事项

Visual Basic (VB)作为一种高效编程环境,它封装了部分Windows API函数,但也牺牲了一些API的功能。调用API时稍有不慎就可能导致API编程错误,出现难于捕获或间歇性错误,甚至...

vb.net 教程 5-12 绘图实例之统计图 4 注意事项

窗体上我们设置了4个按钮,还有一个就是将绘制的统计图保存下来: Private Sub btnSave_Click(sender As Object, e As EventArgs) Hand...

英语面试方法和注意事项

  • 2010年03月14日 22:06
  • 31KB
  • 下载

QThread 的使用方法 注意事项

起源 昨天不小心看到Qt开发人员( Bradley T. Hughes)Blog中的一片文章 you are-doing-it-wrong 。 结果看得头昏脑胀:好歹也自学了近1年的Qt,也一直...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB StrConv方法使用注意事项
举报原因:
原因补充:

(最多只允许输入30个字)