ITPub博客

首页 > 应用开发 > IT综合 > VB中的Unicode 和 Ansi 格式 (转)

VB中的Unicode 和 Ansi 格式 (转)

原创 IT综合 作者:worldblog 时间:2007-12-06 08:16:43 0 删除 编辑
VB中的Unicode 和 Ansi 格式 (转)[@more@]

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 格式之间自由自在地变来变
去,相信当您看完这篇文章之后,对处理中文应该不再烦恼了吧!



来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-988816/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410905