ansi 软件测试,VB中的Unicode和Ansi格式
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 格式之间自由自在地变来变
去,相信当您看完这篇文章之后,对处理中文应该不再烦恼了吧!
ansi 软件测试,VB中的Unicode和Ansi格式相关推荐
- vb中findwindow的疑惑
目的是学习使用findwindow的方法 |问题是程序运行得不到正确答案 步骤是 : 'Module Module1 //模块中声明findwindow Declare Function FindW ...
- VB中的format格式化函数
VB Format函数 Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 - - - - - - - - - - - - - - - ...
- VB中字符串匹配的多种方式
这段时间在移植项目的过程中,起初我想判断一个字符串中是否存在某字符(串),直接的使用方法是用instr(start,string1,string2,VB compare),但经过分析在VB中可以只用一 ...
- UNICODE与ANSI的区别
帮同学写个播放音乐的代码,用的是vs2005,本来调用下API中的mciSendSrring()就很容易解决,后发现老是有warning: incompatible types - from 'cha ...
- vb中line的用法[转]
绘制方框 可使用 Line 方法绘制并填充方框.下列示例画出一个方框,其左上角为 (500, 500),每边长为 1,000 : Line (500, 500)–Step(1000, 0) Line ...
- [转] Vb中FSO 对象的介绍
在 VB 编程中经常需要和文件系统打交道,比如获取硬盘的剩余空间.判断文件夹或文件是否存在等.在VB 推出文件系统对象(File System Object)以前,完成这些功能需要调用 Windows ...
- VB中KeyCode常数用法
可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 鼠标右键 vbKeyCancel 0x3 CANCEL 键 v ...
- vb中如何在任务管理器里面隐藏应用程序进程
'该模块用于在任务管理器中隐藏进程 Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004 Private Const STATUS_AC ...
- 在vb中实现真正锁定的带自定义菜单的文本控件
在vb中实现真正锁定的带自定义菜单的文本控件 /// ///这个东西的出台,是由于一个网友的帖子,太气人,我才写的,很匆忙,又什么问题,请指出!谢谢 //QQ:9181729/mail:shawfil ...
- VB中Unicode vs Ansi-From alpsong(阿尔卑斯之歌)
Unicode vs Ansi Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串在 VB 内部是以 Unicode 的格式来存放. 何谓 Unicode?简单的 ...
最新文章
- vmd变分模态分解程序matlab论坛_博士兼职辅导员论坛分享会第三期
- python太阳花的编程_python大佬养成计划----HTML DOM
- 【微信小程序企业级开发教程】快递查询实例
- 01.CSS动画--transform
- 关于eclipse项目的x号报错的一些问题
- root用户登录mysql后新建用户提示1045错误
- 大小端 Big-Endian 与 Little-Endian
- 每个前端工程师都应该去了解的前端面试题总结(一)
- java node子节点_使用Java的XPath循环遍历节点并提取特定的子节点值
- Flash Video带宽估测
- 华为s5700-SI交换机常用命令
- iOS之获取设备的UUID
- Django学习--models(模型)
- 【LeetCode】【数组】题号:*697,相同度的最短连续子数组
- SD卡、TF卡读写速率测试
- 记录下macbook中maven环境变量配置遇到的问题
- im2col运算 - 一种卷积优化算法
- NOKIA 手机旺旺 nokia 5230手机旺旺 手机旺旺软件下载
- 【数据挖掘】2022数据挖掘之Matplotlib完整使用(折线图、散点图、柱状图、直方图、饼图)
- Google Dremel 原理 – 如何能 3 秒分析 1PB