中国DOS联盟

参考：
http://www.cn-dos.net/forum/viewthread.php?tid=25122&fpage=0&highlight=&page=1#pid154652

要将下面网页按顺序从
http://www.123123123.com/read.php?id=12345&fpage=1到
http://www.123123123.com/read.php?id=12345&fpage=16 转换成txt
并且按依次合并为xiaoshuo.txt 怎么弄

[ Last edited by hjkk123 on 2008-5-27 at 07:42 PM ]

HtoX32c.exe 很不错
不过好像非要把网页下载下来，要转换htm的文件，麻烦

都一样
不下下来。。你想怎么转换.
总之最后都要下下来

但是HtoX32c.exe命令后面好像只接htm，你能不能举个例子
HtoX32c.exe http://www.baidu.com/ 好像不行啊，不支持url
难道再用curl，拉倒了，两个三方外部命令，太麻烦

[ Last edited by hjkk123 on 2008-5-27 at 09:13 PM ]

Originally posted by hjkk123 at 2008-5-27 21:08:
但是HtoX32c.exe命令后面好像只接htm，你能不能举个例子
HtoX32c.exe http://www.baidu.com/ 好像不行啊，不支持url
难道再用curl，拉倒了，两个三方外部 ...

那也可以用vbs来下载了

可以举个例子吗

搜索

我搜索过了，搜索不到
在什么地方，用什么关键字搜索呢

还是比较麻烦，那能帮我把代码写出来吗
或者把
set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"
WScript.sleep 200
loop

WScript.Echo oDOM.Body.InnerText
改成能批量处理url的就好了

[ Last edited by hjkk123 on 2008-5-29 at 09:57 PM ]

不知道楼主是想要网页源代码还是网页显示的内容？

For i = 0 To WScript.Arguments.Count - 1
Set oDOM = WScript.GetObject(WScript.Arguments(0))
Do Until oDOM.readyState = "complete"
WScript.sleep 200
Loop
WScript.Echo oDOM.Body.InnerText
Next

Originally posted by slore at 2008-5-30 01:14 PM:
For i = 0 To WScript.Arguments.Count - 1
Set oDOM = WS ...

16个网址不会都写吧，能不能写个支持通配符
或者循环的才好啊

For i = 1 To 16
Set oDOM = WScript.GetObject("http://www.123123123.com/read.php?id=12345&fpage=" & i )
Do Until oDOM.readyState = "complete"
WScript.sleep 200
Loop
WScript.Echo oDOM.Body.InnerText
Next