
CODE: [Copy to clipboard]htmlFile = WScript.Arguments(0)
textString = ""
With GetObject(htmlFile )
do until .readyState = "complete"
WScript.sleep 200
loop
For Each a In .GetElementsByTagName("a")
textString = textString & a.innerText & vbCrLf & a.href & vbCrLf & vbCrLf
Next
End With
CreateObject("Scripting.FileSystemObject").CreateTextFile(htmlFile & ".txt", True).Write textString
MsgBox "提取到文本文件 " & htmlFile & ".txt", 4160, "完成"
附件 1:下标越界.GIF (2010-1-31 13:45, 12.46 K)
![]()
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |