vbs提取两关键词之间的内容。

比如文本内容：

000000001728S18203S0549P 21:10
000000001728S18203S0547P 21:14
000000001728S18203S0539P 21:15
000000001728S18203S0535P 21:17

2018年2月5日 星期一

001、103002013400S17A19S0020P 02:47
002、103002013400S17A19S0020P 02:47
003、103002013400S17A19S0020P 02:47

提取后为：
103002013400S17A19S0020P
103002013400S17A19S0020P
103002013400S17A19S0020P

用mid函数。

这个是模拟的提取

如果不行就q我 787700200

f1="22.htm" f2="url.txt"

set reg = new regexp set fso = createobject("scripting.filesystemobject") str = fso.opentextfile(f1,1,1).readall reg.pattern="<a href=""([^<>""]{1,99})""\stitle" reg.global=1 if reg.test(str) then  set matches = reg.execute(str)  s=""  for each match in matches   s=s+match.submatches(0) + vbcrlf  next end if fso.opentextfile(f2,2,1).writeline s msgbox "完成！"