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