[求助]：vb中，TEXT控件输入的问题？

wzg

在TEXT控件中输入：123 4567 89，如何分开它们，分别得到：123和4567和89
（以上三个数的个数不固定，比如123也可能是123333）

tsuihan

'//用Split函数

Sub start()
    Dim seedVal As String
    seedVal = "1235 12 108 23 0815 ~ china" '任意数字串，以<单空格>分开
   
    Dim resVar As Variant
    resVar = Split(seedVal, Chr(32))
   
    Dim info As String, i As Integer
    info = "SeecVal = '" & seedVal & "'" & vbCr & vbCr
    For i = 0 To UBound(resVar)
        '通过resVar(i)来访问各组数
        info = info & "第" & i + 1 & "组字符为：" & resVar(i) & vbCr
    Next
   
    MsgBox info, vbInformation
End Sub


'//更复杂的你还得考虑用户输入间隔符数目有误的情况

wzg

谢谢！初学VB，看不懂，下载仔细学习！