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
复制代码
|