VB 输入一串字符,有数字和非数字.将连续数字作为一个整数,依次放到数组A.

Dim szText
szText = "a123%456 789asdf"
Dim oRegExp
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global=True
oRegExp.IgnoreCase=True
oRegExp.Pattern="([0-9]+)"
Set oMatchs = oRegExp.Execute(szText)
Dim a(),S
S=0
If oMatchs.count>0 Then
S = oMatchs.count
ReDim a(S-1)
For Each oMatch In oMatchs
a(iCount) = oMatch.value
Next
End If

MsgBox S

Dim myStr As String, myTemp As String, myOutput() As String, a() As String, i As Integer, s As Integer
myStr = InputBox("请输入字符串", "数据输入", "a123%456 789asdf ")
For i = 1 To Len(myStr)
myTemp = Mid(myStr, i, 1)
If Asc(myTemp) > 57 Or Asc(myTemp) < 48 Then
myStr = Replace(myStr, myTemp, " ")
End If
Next
myOutput = Split(myStr, " ")
For i = 0 To UBound(myOutput)
If myOutput(i) <>