dim s as string
dim i as integer
dim bArr() as byte
s="hello, world!"
redim bArr(1 to len(s))
for i=1 to len(s)
bArr(i) = CByte(mid(s,i,1))
next i
还有什么好办法吗?好像比较复杂。
...全文
1573打赏收藏
一个挺简单的问题,如何将一个字符串写入一个二进制字节数组
dim s as string dim i as integer dim bArr() as byte s="hello, world!" redim bArr(1 to len(s)) for i=1 to len(s) bArr(i) = CByte(mid(s,i,1)) next i 还有什么好办法吗?好像比较复杂。