再问：如何在文本框中提取一个字节（<255）的数据？

[justgod]

在文本框中如果输入“1 20 31 45 57 6”等数字（以空格隔开）；如何把这些数字以字节形式赋值给
数组Arr()，
不是以下代码：（以下代码是字符对字符）
Dim Arr() As String
Arr = Split(Text1.Text, "")

我要的是把
Dim Arr() As Byte
然后把文本框中的“1 20 31 45 57 6”如下实现：
Arr(0)＝1 '
Arr(1)＝20
……
……

各位可以想想办法吗？ 谢谢！！
旧贴
http://community.csdn.net/Expert/topic/4175/4175646.xml?temp=.5703546

[shuaishen12]

Dim s As String
s = "1 20 31 45 57 6"
Dim arr() As Byte
Dim ss() As String
ss = Split(s, " ")
ReDim arr(UBound(ss))
Dim i As Integer
For i = 0 To UBound(ss)
arr(i) = ss(i)
Next i

[jxgzay]

上次的不是解决了吗？

在TEXT1中输入16进制数，如“1 20 31 45 57 6”

Private Sub Command1_Click()
ARR = Split(Text1.Text, " ")
n = UBound(ARR)
For i = 0 To n
Print ARR(i)
Next
End Sub

[YOU2005]

在下系初学者~~下面的代码有很多漏洞不过勉强可以应负以上的问题





Dim a(15) As Integer '数组 a(0 to 15)
Dim l As Integer '控制数组下标
Dim i As Integer '控制字符下标
temp = "1313 33 3 3331 11" '要求数与数之间一定要隔一个空格
l = 0 '初始化
For i = 1 To Len(temp) 'Len(字符串)返回 数值
k = Mid(temp, i, 1) 'mid(字符串,目标位置,截取字数) 返回 字符
If k = " " Then
a(l) = Int(j) '字符串转整型数值
l = l + 1
j = ""
End If
j = j & k
i = i + 1
Next i
End Sub