VB StrConv方法使用注意事项

最新推荐文章于 2021-05-31 05:34:10 发布

xddouble

最新推荐文章于 2021-05-31 05:34:10 发布

阅读量4.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： vb function integer string

本文链接：https://blog.youkuaiyun.com/xddouble/article/details/1804723

VB 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种简体与繁体中文之间的文本转换方法，利用VB内置函数StrConv实现GB码与BIG5码的互换。该方法适用于需要进行简繁体转换的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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