标题: [已完结]怎么把html地址提取到TXT中？ [打印本页]
作者: liu3157551 时间: 2010-1-30 18:35 标题: [已完结]怎么把html地址提取到TXT中？
例：
爱你千万次01
qvod://290639680|C7B76F8486BB14506B14D2323404227B1B332CC0|爱你千万次01.rmvb|/
第二行
...
因为有些地方要使用到TXT
[ Last edited by liu3157551 on 2010-1-31 at 08:35 ]
作者: qinchun36 时间: 2010-1-31 01:38
呵呵，借鉴 electronixtar 的代码，保存为 filename.vbs，把要提取的html文件拖到他上面去就行了：
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, "完成"
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, "完成"
作者: liu3157551 时间: 2010-1-31 08:35
经测试可用。你好棒，真想学习。可又不会
作者: iamqiuhui 时间: 2010-1-31 13:45 标题: 下标越界
rt
附件 1:下标越界.GIF (2010-1-31 13:45, 12.46 K)
作者: ccwan 时间: 2010-1-31 18:16
| Quote: | |
|
把要提取的html文件拖到他上面去