VB用循环语句截取字符串

VB用循环语句截取字符串

想用VB的循环语句，例如FOR TO之类的截取一段字符串
输入一段字符串，字符串由 （空格）隔开，长度未知，然后全部一部分一部分截取下来
如123 gi 4759278 kfdjghwi ywrei74983之类吧 条码检测专家

 - 二级

最佳答案

Private Sub Command1_Click()
Dim i As Integer, S As String
S = "123 gi 4759278 kfdjghwi ywrei74983"
i = InStr(S, " ")
Do While i > 0
Print Left(S, i - 1)
S = Mid(S, i + 1)
i = InStr(S, " ")
Loop
End Sub