VBA ÕýÔò±í´ïʽ

1.ÕýÔò±í´ïʽ

dim zengze

set zengze=CreatObject("vbscript.regexp")

zengze.Pattern =""

zengze.Global=True

Do while True

set jieguo=zengze.Execute(str)

if jieguo.Count>0 then

i=jieguo(0).submatches(0)

j=jieguo(0).submatches(1)

endif

Loop

set zengze = Nothing

set jieguo= Nothing