紧急，小弟求一正则表达式的写法。在线等

Question

现在小弟有一字符串a="1,2,3,4,5,6,7,8,  ... 43,435,568,9,00,32"
如何用正则表达式把字符传中的数字取出来放在一个数组。（省略号表示中间还有若干数字）

Answer 1

Private Sub Form_Load()
Dim str() As String
Dim lestr As String
Dim i  As Integer
Dim j As Integer
j = 0
lestr = "1,2,3,4,5,6,7,8,32,35,65,101,124"
Do While (i < Len(lestr))
i = InStr(1, lestr, ",", vbTextCompare)
ReDim str(j)
str(j) = Mid(lestr, 1, Len(lestr) - (Len(lestr) - i) - 1)
lestr = Mid(lestr, i + 1, Len(lestr) - i)
Debug.Print str(j)
Debug.Print lestr
j = j + 1
i = i + 1
LoopEnd Sub

Answer 2

dim s() as string
dim i as longa="1,2,3,4,5,6,7,8,  ... 43,435,568,9,00,32"
s=split(a,",")
for i=lbound(s) to ubound(s)
    debug.print s(i)
next

Answer 3

MISTAKE:Private Sub Form_Load()
Dim str() As String
Dim lestr As String
Dim i  As Integer
Dim j As Integer
j = 0
i = 1
lestr = "1,2,3,4,5,6,7,8,32,35,65,101,124,9,00,12"
Do While (i <> 0)
i = InStr(1, lestr, ",", vbTextCompare)
ReDim str(j)
If i = 0 Then
   str(j) = Mid(lestr, 1, Len(lestr))
Else
   str(j) = Mid(lestr, 1, Len(lestr) - (Len(lestr) - i) - 1)
End Iflestr = Mid(lestr, i + 1, Len(lestr) - i)
Debug.Print str(j)
Debug.Print lestr
j = j + 1
LoopEnd Sub

Answer 4

这跟正则表达式好像没关系吧
用split。。