将这个字符串1,0.378,"BV ",0.0054,37.075,106.891,0.755中的数字和字符串提取出来。
直接代码
Private Sub Form_Click()
Dim s() As String
Dim t() As String
a = Text1.Text
Print a
b = Left(a, 7)
c = Mid(a, 9, 6)
d = Right(a, 27)
Print b
Print c
Print d
s = Split(b, ",")
t = Split(d, ",")
For i = 0 To 1
Print s(i)
Next i
For i = 0 To 3
Print t(i)
Next i
End Sub