说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中的Unicode 和 Ansi 格式

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

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

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

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

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

Private Sub Command1_Click ()
Dim sUnicode As String
Dim sAnsi As String
' Unicode 运算
sUnicode = "王小明,A123456789,651023,上海市中山路100号,(02)2345678"
Debug.Print Len(sUnicode) ' 返回 44
Debug.Print Mid$(sUnicode, 5, 10) ' 返回 A123456789
Debug.Print Instr(sUnicode, "上海市") ' 返回 23
' 将 Unicode 字串转成 Ansi
sAnsi = StrConv(sUnicode, vbFromUnicode)
' Ansi 运算
Debug.Print LenB(sAnsi) ' 返回 54
Debug.Print MidB$(sAnsi, 8, 10) ' 返回 ?????,因为忘了转回 Unicode
Debug.Print StrConv(MidB$(sAnsi, 8, 10), vbUnicode) ' 返回 A123456789,请注意转回 Unicode 的动作一定要做

Debug.Print InStrB(sAnsi, StrConv("上海市", vbFromUnicode)) ' 返回 23, 不要忘了要把"上海市"也转成 Ansi,否则会找不到
End Sub
读入文本文件
在 VB 的小技巧中,有一个是快速读文件法:
Private Sub Command1_Click ()
Dim sFile As String
Open "C:\filename.txt" For Input As #1
sFile = Input$(LOF(1), #1)
Close #1
End Sub

但是很不幸地,如果你读取的文件内含中文字,那上面这段程序会出现 Input pastend of file 的错误。因为 LOF 返回的是文件的 byte 数,而 Input 函数读取的是字符数,由于文件内含中文,因此文件中的字符数将会小于 byte 数,于是就发生错误了。要解决这个问题,我们就要用到 StrConv 和 InputB 这两个函数了:
Private Sub Command1_Click ()
Dim sFile As String
Open "C:\filename.txt" For Input As #1
sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
End Sub
上面修正程序先用 InputB 将文件读进来,不过使用 InputB 所读入的文件是 Ansi格式的,所以要再用 StrConv 转成 Unicode 才行。随机数据文件许多文字数据文件是以固定字节的位置来加以区格,例如下面的数据格式:王小民650110上海市中山路100号 (02)1234567
张大呆660824花莲县大甲镇广东街23号(03)9876543

像这种类型的文件要如何处理呢?这是就必须用到 Type 以及 byte array 了。
Private Type tagRecord
Username(5) As Byte ' 姓名 6 bytes
Birthday(5) As Byte ' 生日 6 bytes
Address(21) As Byte ' 地址 22 bytes
TEL(11) As Byte ' 电话 12 bytes
CrLf(1) As Byte ' 换行字符 2 bytes
End Type

Private Sub Command1_Click()
Dim uRecord As tagRecord
Open "C:\filename.dat" For Random As #1 Len = LenB(uRecord)
Get #1, 2, uRecord ' 取第二笔数据
With uRecord ' With ... End With 应该会用吧
Debug.Print .Username ' 返回 ???
Debug.Print StrConv(.Username, vbUnicode) ' 返回 "张大呆"
End With
Close #1
End Sub

在这个例子中,一定要用到 byte array,因为只有 byte array 才能正确地定位到每个 byte 的位置。以前使用字串来定位的方法已经不适用了,千万要记住!但是使用byte array 所读入的数据是 Ansi 格式,若要处理或是做运算的话,记得还要转成Unicode 格式才行。

[●] 使用 Byte Array
除了上面必须使用 byte 精确定位的例子之外,纯文字的处理基本上是用不到 bytearray 的。byte array 通常是用在处理 binary 数据。这方面的问题我们将另文讨论。看吧!只要熟悉使用 StrConv,你就可以在 Unicode 及 Ansi 格式之间自由自在地变来变去,相信当您看完这篇文章之后,对处理中文应该不再烦恼了吧!


wrap(elem)-JQuery API wrap(html) -JQuery API add(elements) -JQuery API add(html)-JQuery API add(expr) -JQuery API children(expr) -JQuery API contains(str) -JQuery API end() -JQuery API filter(filter) -JQuery API filter(expression) -JQuery API find(expr) -JQuery API is(expr) -JQuery API next(expr)-JQuery API not(elems)-JQuery API not(expr)-JQuery API not(el)-JQuery API parent(expr)-JQuery API parents(expr)-JQuery API prev(expr)-JQuery API siblings(expr)-JQuery API Events事件-JQuery API bind(type,data,fn)-JQuery API blur(fn) -JQuery API blur() -JQuery API change(fn) -JQuery API click(fn)-JQuery API click()-JQuery API dblclick(fn) -JQuery API error(fn) -JQuery API focus(fn)-JQuery API focus() -JQuery API 在dreamweave ultradev下如何把ASP与本地服务器上的数据库连接起来。 请教,来者有份,200分大放送, 初学者关于Package的问题 再贴WebLogic Server 和 Weblogic Integration 有何不同,各是用来做什么的? 我在APPlication中开始处加上如下代码,在PB下运行时没问题,怎么编译后执行exe文件后老提示连不??为什么,请赐教!! 在静态切分窗口中,如何显示标题? 求教大虾:如何给软件加上licence限制 抗议CSDN帖子内容为楷体,同意者举手! 如何在画布上画一个带箭头的直线. *-->为对话框应用上妆!在线等待 [诚征交友]不诚勿扰,请条件适合男士入内 有谁用过Cute ftp上传软件,为什么一进行文件同步时,就出现404 object not find的错误 关于界面对象丢失的问题…… 请大家看看这个问题。 我真的很需要帮助。。。请问谁有360度可以许多张图片旋转的代码 360度全景特效 高分求树型结构源代码 现在出了本Jbuilder5的书。有没有谁有这本电子书啊? 高分求树型结构源代码 SDK问题 这句sql有问题吗? 关于驱动程序开发! 在SQL-SERVER中出现数据死锁的情况一般是什么,若是由多个用户同时向数据库更新数据而导致的死锁,解决此问题的办法有那些? 寻找源代码排版软件? 有没有用VC写过短信接收程序,我在接收中文时出现乱码。 请教大虾:用mideaplayer来播放一首歌,如何用progressbar来表示进度? 我想学习驱动程序的开发,请大家帮我推荐几本这方面的书? 编译出错,不解?请高手指点。 能否用Delphi 实现类似东石公司的虚拟光驱系统。 我想学习驱动程序的开发,请大家帮我推荐几本这方面的书? include头文件的问题 急!!!为什么TBlobField 下载时大小受限制,怎么解决? 关于导出动态连接库中的类的问题,不知道这里有没有高手? 一个让我痛苦了n天的问题 关于Hook的一个问题 联合查询如何修改? 获取密码时出错???? my gf photo 我想问一下,java生成的.class文件能不能通过某种工具生成.exe文件? VC中组合框为什么不能下拉? 请问哪有最新的wise for window .net的版本可以下载 "java原型开发"指得是什么开发? 能否用VC++实现类似东石公司的虚拟光驱系统 请问会话Bean和实体Bean的区别在那?能给出例子吗? word文档如何存入SQL SERVER 2000? 请问如何才能在windows 2000 server 上装MTS? 有女朋友而且上网和别的mm聊天的入内签名! 如何显示不同的颜色... 有关网络开发和com的问题,高分征集关注和提供方案! 探讨一下safearray 的使用问题 关于QQ界面的制作? 在主界面中添加一副图片的问题被遮住的问题 圆锥曲线的焦点弦长公式是什么?在高中数学中,圆锥曲线的焦点弦长公式有没有通式?谁能告诉我 问一下大家在EXCEL中如何计算百分比! 就告诉我吧打心底麻烦大伙 根据元素周期表可知,原子序数为6的碳原子和原子序数为14的硅原子最外层电子数均为4,则常温下硅的化学性质(选项“活泼”、“不活泼”). 双星系统在万有引力的作用下绕连线上的O点作周期相同的匀速圆周运动,两星距离L,质量比为m1:m2=3:2求两星的圆周运动的半径比我这样做:r=3√(GmT^2/4π^2)r1:r2=3√m2:3√m2事实证明是错的,可 某双星由质量不等的星体S1和S2构成,两星在相互作用之间的万有引力作用下绕连线上某一定点C做匀速圆周某双星由质量不等得星体S1和S2构成,两星在相互作用之间得万有引力作用下绕两者连 非金属与金属发生的置换反应 再塑生命的人中莎莉文是怎样一位老师从哪些地方可以看出?你认为海伦是一位怎样的学生,从哪些地方可以看出? 问一下大家在EXCEL中如何计算百分比!麻烦你们了6h 置换反应能金属与非金属反应吗 数学圆锥曲线的一个公式推倒, 对莎莉文老师的评价!急!这是作业,拜托了 请问下大家知道在电子表格中如何计算百分比?谁知道 告诉我吧,不好意思,麻烦各位5b ip的作用我有别人的IP。有什么用啊 二氧化硅中每个环上有几个Si-O 键求详解 和1mol二氧化硅中有几个Si-O键 问大家一下在电子表格中如何计算百分比? 有点急,不好意思, 圆以及圆锥曲线所有公式越全越好 为什么1mol二氧化硅(SiO2)中含有的Si 童年的海伦凯勒问莎莉文老师:爱是什么?如果你是莎莉文老师,你准备怎样回答? 在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力而使它们在运动中距离保持不变,已知...在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力而使它们 问点化学反应离子式1氯化铝与少量氢氧化钠反应 2氯化铝与过量氢氧化钠反应 3氯化铝与过量氨水反应 海伦凯勒还未遇见莎莉文老师之前是怎样的? Excel SUMPRODUCT函数 分母为空&分母为0 公式纠正为展示函数,我在E列把“=”去掉了,F列是对应E列的函数的计算结果对于分母为0或者为空做了如下纠正,好像方法不对,该怎么处理呢, =IF(D2:D13<> 文中莎莉文老师对海伦的教育方式,你特别欣赏哪些,请举例说明.再举一二个你自己的老师,也想莎莉文一样注意教育方式,使你豁然开朗的例子 海伦凯勒是怎么与莎莉文老师对话的? 在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力而使它们在运动中保持不变,已知两...在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力而使它们在 再塑生命从哪三个方面展示了莎莉文老师对海伦的悉心教育?请用简要的语言概括出来0.0 《再塑生命的人》语文练习册中"莎莉文老师的教育艺术高明在何处?" 在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力等于向心力而使它们在运动中距离保持不变,已知两个行星的质量分别为M1、M2,相距为L,求它们的角速度. EXcel 中怎么计算每个年龄段的人数我在A列中输入了各个人的年龄,如1Y3M,3M23D;怎么计算各个年龄段如小于1岁,小于2岁的人数? 海伦·凯勒在莎莉文老师的教导下发生了什么变化? EXCEL根据A和B单元格的数据 分别计算出A、B占总数比例公式.总数=A+B 莎莉文老师走进海伦的生活后,海伦的性格发生了哪些变化? 莎莉文老师用什么方法教我学会水字 在天体运动中,将两颗距离较近的行星成为双星,由于两行星的引力而使它们在运动中在天体运动中,将两颗彼此距离较近的行星称为双星,由于两星间的引力而使它们在运动中距离保持不变,已 excel怎么分单位统计出各年龄段人数比如A1-A10是单位一至单位十,现在要按单位分别统计每个单位各年龄段的人数,请高手赐教,我想用sumproduct,可是怎么用不对呢 光从空气斜射入其他介质中时,折射光线靠近法线,折射角小于入射角.这句话对吗 数学圆锥曲线中的直线与抛物线.告诉两个交点到焦点的比值和焦点坐标,求直线斜律.这解题思路是什么? 再塑生命 莎莉文是怎样一位老师?海伦市怎样一位学生 还是一道化学中原子的电子层上的电子荷数的问题有一个同学给我讲了一道题,就是写原子层的电子荷数的时候(在写第20或20以后的原子的时候他先把前面的写完之后写后面的时候他先不写 抛物线焦点公式 EXcel 中怎么计算年龄段的人数A 列 B列姓名 年龄 谭楚芝 24 潘扬 27 王婷 29 程龙 25 谢远忠 35 毛昌军 34 吴菁 26 张晴阳 25 袁晓柯 44 雷娜 31 赵海新 31 我要计算 依然是一道关于化学中原子的电子层的电子荷数的问题.是不是第3层或第3层后面的电子荷荷数都不能为奇数啊,我觉得是不可能的啊, 圆锥曲线中连结圆锥曲线(包括椭圆,双曲线,抛物线)上一点与对应焦点的线段的长度(焦半径)的公式是什么 原子和离子在化学反应中是可以相互转化举一个离子转化为原子的例子 钠的最外层电子数是1,氩的最外层电子数是6,这2个原子发生化学反应电子层分别会变成怎样比如:钠⑪ 2)8)1)和钾2)8)7)会变成钠⑪ 2)8)和钾⑰2)8)8) 在EXCEL中如何求一组数字中每个数在这组数的总和中所占的百分比例如:A1:1A2:2A3:3这一组数字,它们的和是6,我的问题是怎样一次性分别求出1,2,3在这组数的和“6”中所占的百分比?急盼大 天文观测中发现宇宙中存在着“双星”.所谓双星,是两颗质量相近,分别为M1和M2的恒星,它们的距离为r,而r 氯原子的最外电子层上有几个电子 IP地址和子网掩码做与运算.是怎么回事情?能举个例子吗?就与运算咯/. 在宇宙中约有一半的恒星是双星,我们把较亮的一颗叫主星,暗的一颗叫伴星.在宇宙中约有一半的恒星是双星,我们把较亮的一颗叫主星,暗的一颗叫伴星.天文学家发现太阳朝某个方向加速运动, 金属活动性顺序不能作为置换反应速度吗?漏了问题…… 应该是:为什么金属活动性顺序不能作为置换反应速度的证据?既然不能,那为什么在金属活动性顺序中,排在氢前面的金属位置越 IP地址中子网掩码这些怎么算啊?"与"是什么? 宇宙中 所有的恒星都是双星 为什么太阳是单星 苯可以和溴单质反应 必须要有催化剂么 溴化铁的作用只是改变反应速度么 关于ip和子网掩码的计算十进制IP地址范围为192.9.200.1--192.9.200.62,对应这个子网的子网掩码(或网络地址)为11000000.00001001.11001000.00000000,即192.9.200.0 我不会就是这个:192.9.200.1--192.9.200.62 对应 某双星系统中两颗恒星围绕他们连线上的某点做匀速圆周,周期T,恒星间距离R求两颗双星的总质量 苯和溴水在有催化剂的作用下能否进行反应呢? IP级子网掩码计算你有一个网络地址210.106.14.0 /24.请问其中有多少可用的主机地址和多少可用的子网? 谁知道在电子表格中如何计算百分比? 金属和非金属的置换反应有哪些?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘