dim arr as variant
dim str() as string
dim i as integer
redim arr(5000)
for i = 1 to 5000
arr(i) = i
next
str = filter(arr, "100")
for i = 0 to ubound(str)
debug.print str(i)
next
匹配100的结果:
100
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1100
2100
3100
4100