[已解决]利用正则式把符合条件的内容存入数组中

markang

各位老师,同学,
请问如何编写正确的程序把利用正则式判断出来的结果放在数组中?
如表格中,a1:a3,其实都符合"\d"规则,怎么放入一维数组中,请指教 利用正则式把符合条件的内容存入数组中.zip (9.49 KB, 下载次数: 10)

2015-8-6 23:17 上传

点击文件名下载附件
Sub tt()
Dim reg As New RegExp
Dim arr(1 To 1000)
For Z = 1 To 3
sr = Range("a" & Z)
With reg
.Global = True
.Pattern = "\d+"
Set x = .Execute(sr)
For Each y In x
u = u + 1
arr(u) = y
Next y
Next Z

End With


End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-6 23:38

Sub tt()
    Dim reg As New RegExp
    Dim arr(1 To 1000)

    For Z = 1 To 3
        sr = Range("a" & Z)

        With reg
            .Global = True
            .Pattern = "\d+"
            Set x = .Execute(sr)
            For Each y In x
                u = u + 1
                arr(u) = y
            Next y
        End With
    Next Z
End Sub


只是移动了end with的位置，不是已经存入到arr里了吗？

跳转到最佳答案楼层

爱疯

Sub tt()
    Dim reg As New RegExp
    Dim arr(1 To 1000)

    For Z = 1 To 3
        sr = Range("a" & Z)

        With reg
            .Global = True
            .Pattern = "\d+"
            Set x = .Execute(sr)
            For Each y In x
                u = u + 1
                arr(u) = y
            Next y
        End With
    Next Z
End Sub


只是移动了end with的位置，不是已经存入到arr里了吗？

markang

谢谢，确实我忽略了with语句。。。。。。