[文本处理] 批处理如何获取网页源码中的 <a>标签中的内容？

msdlya

求助获 如何取网页源码。中的 <a>标签中的内容。。
这样的 TXT 获取       代码都在一行里面！
求 正则表达式 查找。。。。

标签头
http://g6612843.blog.163.com/blog/static/45846717201151194911983

<span class="line">-</span><a href="http://g6612843.blog.163.com/blog/static/45846717201151194911983" >标签头</a></div><div class="sp"><span class="preview" id="pws_0_1"><span class="iPre"><span class="iPreBox" style="height:74px;"><em class="iPreArr"></em></span><span class="line">-</span><a href="http://g6612843.blog.163.com/blog/static/45846717201151194911983" >标签头</a></div><div class="sp"><span class="preview" id="pws_0_1"><span class="iPre"><span class="iPreBox" style="height:74px;"><em class="iPreArr"></em></span><span class="line">-</span><a href="http://g6612843.blog.163.com/blog/static/45846717201151194911983" >标签头</a></div><div class="sp"><span class="preview" id="pws_0_1"><span class="iPre"><span class="iPreBox" style="height:74px;"><em class="iPreArr"></em></span>

terse

VBS 一个  这样可以吗

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
Set FSO=CreateObject("Scripting.FilesystemObject")
file = "c:\a.html"
ie.NaviGate file
for i = 0 to ie.document.links.length-1
	str = str & ie.document.links(i).outerText & vbCrLf & ie.document.links(i).href & vbCrLf
next
ie.quit
Set ie = Nothing
FSO.OpenTextFile("html.txt",2,True).WriteLine str
复制代码