7,789
社区成员
发帖
与我相关
我的任务
分享如何将Byte数组的一部分赋值给一个字符串？急！！
比如
Dim b(1 to 20) As Byte
如何将Byte数组b(5)到b(10) 赋值给字符串s?
Dim b(1 to 20) As Byte
如何将Byte数组b(5)到b(10) 赋值给字符串s?
...全文
请发表友善的回复…
发表回复
jxc1999 2003-12-18
- 打赏
- 举报
请问 SoHo_Andy(冰)
longki 2003-12-17
- 打赏
- 举报
一个for和连接运算符"&"不就OK了!
SoHo_Andy 2003-12-17
- 打赏
- 举报
测试通过
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
'读出二进制数据到数组
Open "d:\draw.ico" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
'读取二进制数组数据到字符串
Dim fileCon As String
Dim i As Long
For i = 10 To 150
fileCon = fileCon & CStr(arrBytes(i))
Next
MsgBox fileCon
End Sub
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
'读出二进制数据到数组
Open "d:\draw.ico" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
'读取二进制数组数据到字符串
Dim fileCon As String
Dim i As Long
For i = 10 To 150
fileCon = fileCon & CStr(arrBytes(i))
Next
MsgBox fileCon
End Sub
flyingscv 2003-12-17
- 打赏
- 举报
Dim a(20) As Byte
dim s as string
s=a '这儿也许根据需要用strconv
s=mid(a,x,y)
dim s as string
s=a '这儿也许根据需要用strconv
s=mid(a,x,y)
landongfang 2003-12-17
- 打赏
- 举报
Dim a(1 To 20) As Byte
Dim j
For j = 1 To 20
a(j) = Asc(j)
Next
Dim c As String
c = ""
For j = 5 To 10
c = c & Chr$(a(j))
Next
Dim j
For j = 1 To 20
a(j) = Asc(j)
Next
Dim c As String
c = ""
For j = 5 To 10
c = c & Chr$(a(j))
Next
landongfang 2003-12-17
- 打赏
- 举报
Dim a() As Byte
Dim c As String
c = "12345678997"
a() = c
c = ""
c = a
c = Mid(c, 5, 10-5)
Dim c As String
c = "12345678997"
a() = c
c = ""
c = a
c = Mid(c, 5, 10-5)
