找数字串

来源：百度知道 编辑：UC知道 时间：2024/06/21 06:48:55
输入一串字符串，内有数字和非数字字符，如a123x57 17?48 s84 sutnd9,将其中连续的数字作为一个整数，依次存放到一个数组中，统计共有多少个整数。谢谢！

Private Sub Command1_Click()
Dim a As String, s As String
Dim i As Integer, k As Integer
Dim x()
a = "a123x57 17?48 s84 sutnd9"
k = 0
s = ""
For i = 1 To Len(a) + 1
If IsNumeric(Mid(a, i, 1)) Then
s = s & Mid(a, i, 1)
Else
If s <> "" Then
ReDim Preserve x(k)
x(k) = s
Print x(k)
k = k + 1
s = ""
End If
End If
Next
Print "共" & k & 项
End Sub