可以这样:
svstr=""
for i=1 to 8
svstr=svstr & chr(sbyte(i))
next i
如果想把svstr转换为byte,可以这样:
for i=1 to 8
sbyte(i)=asc(right(left(svstr,i),1))
next i
svstr=""
for i=1 to 8
svstr=svstr & chr(sbyte(i))
next i
如果想把svstr转换为byte,可以这样:
for i=1 to 8
sbyte(i)=asc(right(left(svstr,i),1))
next i
Dim svstr As String, i As Integer sbyte(1) = 50
sbyte(2) = 129
sbyte(3) = 77
sbyte(4) = 233
sbyte(5) = 200
sbyte(6) = 79
sbyte(7) = 100
sbyte(8) = 10
'svstr = sbyte
'svstr = StrConv(StrConv(sbyte, vbUnicode), vbFromUnicode)
svstr = ""
For i = 1 To 8
svstr = svstr & Chr(sbyte(i))
Next i
MsgBox svstr & "H"
MsgBox Len(svstr)
MsgBox CStr(Asc(Right(Left(svstr, 5), 1)))
To zm:
不行,比如上面代码中最后一个msgbox 显示的并不是200。to taolei:
如何计算svstr的长度。
dim svstr as stringredim sbyte(1 to 8)sbyte(1)=45
sbyte(2)=129
sbyte(3)=77
sbyte(4)=233
sbyte(5)=200
sbyte(6)=79
sbyte(7)=100
sbyte(8)=10'赋值:
svstr = sbyte
'取回:
erase sbyte
sbyte = svstr