VB 赋值问题急···

我问一下，怎么把
 文本文件里的东西  文本里是 0 0 0 0 0 / 0 0 0 0  0  这中格式
赋值到
SendCOM CByte(B(1)), CByte(B(2)), CByte(B(3)), CByte(B(4)), CByte(B(5))

追问：有扣扣吗？详聊，，貌似接近了，不过那个/ 是代表换行的意思
就是我文本里面都是五个数字那种格式，并不是都是0。。
我想把那些赋值给 SendCOM CByte(B(1)), CByte(B(2)), CByte(B(3)), CByte(B(4)), CByte(B(5))
然后用另外一个数组调用他们。然后输出另外一个数组。
每当第一次赋值就输出一次，直到我文本写入完毕以后停止。
这样该怎么实现？？？
留个QQ吧···有扣扣吗？详聊，，貌似接近了，不过那个/ 是代表换行的意思
就是我文本里面都是五个数字那种格式，并不是都是0。。
我想把那些赋值给 SendCOM CByte(B(1)), CByte(B(2)), CByte(B(3)), CByte(B(4)), CByte(B(5))
然后用另外一个数组调用他们。然后输出另外一个数组。
每当第一次赋值就输出一次，直到我文本写入完毕以后停止。
这样该怎么实现？？？
留个QQ吧···

答案：写了一个函数,试下吧!
Function ReturnBytes(Str As String) As Byte()
Dim s1() As String, s2() As String
Dim ret() As Byte, j As Integer, t As Integer
ReDim ret(0)
  If InStr(Str, "/") Then
     s1 = Split(Str, "/")
  End If
  For i = 0 To UBound(s1)
     If Len(Trim(s1(i))) = 9 Then
       s2 = Split(Trim(s1(i)), " ")
       If UBound(s2) = 4 Then'个数为5个 0 to 4
          t = UBound(ret)
          ReDim Preserve ret(t + 5)
          For j = t To t + 4
             ret(j) = CByte(s2(j - t))
          Next
       End If
     End If
  Next
  ReDim Preserve ret(t + 4) '去掉最后一个
  ReturnBytes = ret
End Function
'/////////////////////////试验
Private Sub Form_Load()
Me.Show
Dim b() As Byte
b = ReturnBytes("0 0 0 1 0 / 0 0 0 0 0")
For i = 0 To UBound(b)
  Me.Print (b(i))
Next
End Sub

其他：强制转化吧 Private Sub Command1_Click()
Dim a As String, c() As String
Dim b(1 To 5) As Byte
a = "0 0 0 0 0 / 0 0 0 0  0"
c = Split(a, " ")
For i = 1 To 5
b(i) = CByte(c(i - 1))
Print b(i)
Next
End Sub

上一个：vb编程，1000以内所有素数和，急用
下一个：VB中生成的exe和工程中运行时界面不一样

更多图片编程知识:

VB 赋值 问题急···

VB 赋值问题急···