标题: 怎样可以自动保存网页为txt，然后再处理txt文件内容。 [打印本页]
作者: qwertl 时间: 2009-12-14 08:09 标题: 怎样可以自动保存网页为txt，然后再处理txt文件内容。
批处理程序后输入一个url,程序能自动把该url指向的网页内容保存在硬盘上,保存为txt文件. (然后批处理要调用txt内容.)可行吗？
作者: mountvol 时间: 2009-12-14 16:39
用vbs貌似要方便一些.这里有个用vbs读baidu的例子,可以根据需要修改outerText:
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
.Width = 400
.Height = 300
.Navigate "http://www.baidu.com"
.Left = 300
.Top = 300
'.Visible = 1
Do
WScript.Sleep 100
Loop Until .readyState = 4
End With
With oIE.Document
Set oText = .getElementById("kw")
oText.Value = "VBS"
Set oButton = .getElementById("sb")
oButton.click
End With
Do
WScript.Sleep 100
Loop Until oIE.readyState = 4
WScript.Echo oIE.Document.body.outerText
With oIE
.Width = 400
.Height = 300
.Navigate "http://www.baidu.com"
.Left = 300
.Top = 300
'.Visible = 1
Do
WScript.Sleep 100
Loop Until .readyState = 4
End With
With oIE.Document
Set oText = .getElementById("kw")
oText.Value = "VBS"
Set oButton = .getElementById("sb")
oButton.click
End With
Do
WScript.Sleep 100
Loop Until oIE.readyState = 4
WScript.Echo oIE.Document.body.outerText
作者: qwertl 时间: 2009-12-15 20:00
行18
字符：9
错误： 缺少对象'oText'
代码：800A01A8
作者: HAT 时间: 2009-12-15 20:12
参考：
http://www.bathome.cn/viewthread.php?tid=3530#pid22359