字符串数组存储成文件

[atm008]

有一个字符串数组 s
s(0) = "0x23"
s(1) = "0x00"
s(2) = "0x1d"
s(3) = "0xf0"
s(4) = "0x23"
....

怎么把这个数组以字节流的形式存储成文件？不是直接以字符串形式存储，而是转化成字节流后存储成二进制文件。

[北京不不]

首先数组字符化~
然后再转成二进制~
'字符串转换成二进制
function StrToBin(str)
dim curChr, curAsc, low, high
dim i
for i=1 To Len(str)
curChr = Mid(str, i, 1)
curAsc = Asc(curChr)
'asc对中文字符求出来的值可能为负数，
'加上65536就可求出它的无符号数值
'-1在机器内是用补码表示的0xffff,
'其无符号值为65535,65535=-1+65536
'其他负数依次类推。
if curAsc < 0 then
curAsc = curAsc + 65535
end if
'对中文的处理：把双字节低位和高位分开
if curAsc > 255 then
low = Left(Hex(Asc(curChr)), 2)
high = Right(Hex(Asc(curChr)), 2)
StrToBin = StrToBin & ChrB("&H" & low) & ChrB("&H" & high)
else
StrToBin = StrToBin & ChrB(AscB(CurChr))
end If
next
end function

[atm008]

这个方法似乎不能加入0x00，因为是用字符串连接的方式。
如果用ADODB.Stream的话是不是可以一个字节一个字节的Write呢？

[Dogfish]

引用 2 楼 atm008 的回复:

这个方法似乎不能加入0x00，因为是用字符串连接的方式。
如果用ADODB.Stream的话是不是可以一个字节一个字节的Write呢？

是。

[atm008]

引用 3 楼 dogfish 的回复:

引用 2 楼 atm008 的回复:
这个方法似乎不能加入0x00，因为是用字符串连接的方式。
如果用ADODB.Stream的话是不是可以一个字节一个字节的Write呢？
是。

应该怎么写？

[mocom]

Dim strm
Set strm = CreateObject("ADODB.Stream")
strm.type = 2
strm.charset = "unicode"
strm.open
strm.writeText ChrB(&H23)
strm.writeText ChrB(&H00)
strm.writeText ChrB(&H1d)
strm.writeText ChrB(&Hf0)
strm.writeText ChrB(&H23)
strm.position = 0
strm.type = 1
strm.position = 2

Dim tmp
Set tmp = CreateObject("ADODB.Stream")
tmp.type = 1
tmp.open
strm.copyTo tmp
tmp.saveToFile "test.txt", 2
tmp.close
Set tmp = Nothing

strm.close
Set strm = Nothing