VB中的Unicode和Ansi格式

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  VisualBasic32-bit版本的字串处理采用Unicode,也就是说字串在VB内部是以Unicode的格式来存放。何谓Unicode?简单的说,就是每一个字符都是以2-byte的形式表示,而每个「实体字符」就是一个「字符」。因此,
Len("大家好")
Len("abc")
所返回的值都是3,因为「大」和「a」都是一个字符。

  但是这对一些中文字串处理,例如纯文字的数据文件,却是一个大灾难,因为你必须以byte来定位每个字符,可是Unicode却把一切的处理全搞砸了。例如:
Len("GoodMorning")返回12,而
Len("今天天气很好")返回6

  对初学者而言,好不容易能使用VB来写程序已经是件了不起的事了,却马上在中文处理上挨了一记闷棍,所受到的打击实在不小。但是不要怕,事实上只要再多了解一些指令,就可以把中文处理的问题解决了。

是什么指令呢?最重要的莫过于StrConv了。StrConv函数的语法为:StrConv(待转换字串,转换格式)
其中转换格式在这里用到的是:
vbUnicode将Ansi字串转换为Unicode
vbFromUnicode将Unicode字串转换为Ansi
将字串转成Ansi之后,所有的字串处理指令都要加个B,例如:LeftB,RightB,
MidB,ChrB,InstrB,LenB,InputB等。例用这些指令来处理就行了。

  当你处理完毕之后,你可以再将它再转回Unicode,这样就可以使用一般的字串处理指令了。这样讲看得懂吗?如果还是不了解,看看下面的实例说明:
  简易使用范例
  看看下面的基本范例您应该就会对VB的字串处理方式有些概念。

PrivateSubCommand1_Click()
DimsUnicodeAsString
DimsAnsiAsString
'Unicode运算
sUnicode="王小明,A123456789,651023,上海市中山路100号,(02)2345678"
Debug.PrintLen(sUnicode)'返回44
Debug.PrintMid$(sUnicode,5,10)'返回A123456789
Debug.PrintInstr(sUnicode,"上海市")'返回23
'将Unicode字串转成Ansi
sAnsi=StrConv(sUnicode,vbFromUnicode)
'Ansi运算
Debug.PrintLenB(sAnsi)'返回54
Debug.PrintMidB$(sAnsi,8,10)'返回?????,因为忘了转回Unicode
Debug.PrintStrConv(MidB$(sAnsi,8,10),vbUnicode)'返回A123456789,请注意转回Unicode的动作一定要做

Debug.PrintInStrB(sAnsi,StrConv("上海市",vbFromUnicode))'返回23,不要忘了要把"上海市"也转成Ansi,否则会找不到
EndSub
读入文本文件
在VB的小技巧中,有一个是快速读文件法:
PrivateSubCommand1_Click()
DimsFileAsString
Open"C:/filename.txt"ForInputAs#1
sFile=Input$(LOF(1),#1)
Close#1
EndSub

上一页12下一页

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答