如何将Byte数组的一部分赋值给一个字符串?急!!

jxc1999 2003-12-17 03:46:39
比如
Dim b(1 to 20) As Byte

如何将Byte数组b(5)到b(10) 赋值给字符串s?
...全文
83 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
flyingscv 2003-12-17
  • 打赏
  • 举报
回复
Dim a(20) As Byte
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
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)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧