function getvalue(strng,lstr,rstr) Dim regEx, Match, Matches '建立变量 Set regEx = New RegExp '建立正则表达式 regEx.Pattern ="(?<=("+lstr+"))[.\n\s\S]*?(?=("+rstr+"))" '设置模式 regEx.IgnoreCase = False '设置是否区分字符大小写 regEx.Global = True '设置全局可用性 Set Matches = regEx.Execute(strng) '执行搜索,返回搜索结果集合 For Each Match in Matches '遍历匹配集合
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024