急,how to解决byte类型的长度

itcoco 2003-12-10 11:48:21
我只知道我要解决的某些字段是byte型,是3byte,4byte或34byte等等,如果是3byte的话,字节内容如这种形式:0x2F
4byte的话内容如这种形式 0001

这些字段组成一个消息体后, 我要从中进行截取,取出响应字段,问题是我用left(),mid()等等,应该取几个长度?比如3byte的字段(内容如0x7f形式),他的长度用len()测固定会是几呢?
再问个不明白的地方,我用lenB(),测汉字的时候我明白是汉字个数*2,为什么lenB("1")=2也会占两个字节??
...全文
263 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingscv 2003-12-11
呵呵,你用VB看是多少就是多少
VB是不会错的
(至少每次我都发现是我自己的错)
回复
itcoco 2003-12-11
十分感谢:flyingscv(zlj)
我已经基本明白了 ,字符串由unicode转换成vbfromunicode后,相应的一个汉字就占2个字节,用lenb测就是2,一个数字就占1个字节,用lenb测长度就是1
ps:
呵呵,觉得
"Debug.Print InStrB(sAnsi, StrConv("上海市", vbFromUnicode)) ' 返回 23, 不要忘了要把"上海市"也转成 Ansi,否则会找不到 "
一句应该是不是"Debug.Print InStrB(sAnsi, StrConv("上海市", vbFromUnicode)) ' 返回 26吧

回复
rainstormmaster 2003-12-10
要先转化一下:
s=strconv(s,vbformunicode)
转化后再用leftb或lenb等
回复
itcoco 2003-12-10
在简单说一下,就是
一些字段组合成一个消息体后,我只知道字段类型是3byte,每一个字节的内容如0x2F形式的话,我想在消息体里截取他.应该截几个长度?
回复
flyingscv 2003-12-10
给你很详细的
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 格式才行
回复
itcoco 2003-12-10
s=strconv(s,vbformunicode)我转换后,16进制数怎么都变成汉字呀?不对呀!
继续请教

比如
ss = "0x7F0x000x2A"
ss = StrConv(ss, vbFromUnicode)
Debug.Print "conv ss is:" & ss
打印出来ss是 砰?砰?砰?
回复
itcoco 2003-12-10
多谢.我试试看
回复
flyingscv 2003-12-10
再问个不明白的地方,我用lenB(),测汉字的时候我明白是汉字个数*2,为什么lenB("1")=2也会占两个字节??

-----------------------
因为采用的是Unicode编码,英文字母汉字都是2字节了
处理办法见楼上
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告