再战边缘 2005-9-21 18:00
[求助]String和Byte数组相互转换问题
代码如下:
Dim str As String
Dim byt() As Byte
str = "ABCD"
byt() = str
1、当把str赋值给byt()数组时发现byt()数组长度为8,其中第1、3、5、7项分别为A、B、C、D的Asc码,第2、4、6、8项均为0,这里的2、4、6、8项是如何产生的,为什么会有这东东?
2、如果我想把现在这个byt()数组再转换成一个字符串,除了用Chr()函数对1、3、5、7项转换外还有没其它方法,是否有对偶数项同时操作转换的方法?
VB菜鸟 2005-9-21 20:48
先用Strconv函数把字符串转成vbFromUnicode格式。
例如
byt=strconv(str,vbFromUnicode)
Dim str As String
Dim byt() As Byte
str = "ABCD"
byt = StrConv(str, vbFromUnicode)
再战边缘 2005-9-22 09:39
如果我再将byt()数组转换为字符串,有没比较好的方法?
我是这样做的:
for i = Lbound(byt) to Ubound(byt)
str = str & chr(byt(i))
next
Nothing 2005-9-22 10:25
str2 = StrConv(byt, vbUnicode)