编程开发论坛 - Powered by Discuz! Board

标题: [求助]String和Byte数组相互转换问题 [打印本页]

作者: 再战边缘 时间: 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)

作者: 再战边缘 时间: 2005-9-22 17:03

多谢

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)