哦 好像大概明白了- 'vbscript code
- set http=createobject("msxml2.xmlhttp")
- function gethtml(url)
- http.open "GET",url,false
- http.send
- gethtml=http.responsetext
- end function
- set h=createobject("htmlfile")
- h.write gethtml("http://www.bathome.net/thread-37147-1-1.html")
- t=h.body.innerText
- set re=new regexp
- re.pattern=".*<cpulink>(.*)</cpulink>.*"
- msgbox re.execute(t)(0).submatches(0)
复制代码 一堆标签好办 一个innerText解决 |