如题,不要在文件尾开始写入,要重新开始写怎么做?
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Originally posted by zhoushijay at 2007-5-10 12:49:
set wrt=fso.opentextfile("num.jay",2)
wrt.write num
OpenTextFile的2 还是从文件尾开始写的,不覆盖
num=5
set wrt=CreateObject("Scripting.FileSystemObject").opentextfile("num.jay",2)
wrt.write num
Originally posted by zhoushijay at 2007-5-10 14:07:
现在的问题是num.jay这个文件里的数字并没有像预想中的那样递加
set fso=createobject("scripting.filesystemobject")
Set ie=WScript.CreateObject("InternetExplorer.Application")
set rde=fso.opentextfile("num.jay",1)
num=rde.readall '在这里读取出计数器的初始值
num=int(num)
do until err<>0
num=num+1 '初始值+1后,也就是检测下一章小说地址是否有效
ie.navigate "http://www.readnovel.com/novel/15763/"&num&".html"
wscript.sleep 10000
set wrt=fso.opentextfile("num.jay",2)
wrt.write num '每次有效后将NUM的值存入NUM.JAY文件,以便下次读取
wrt.close'关闭才行
on error resume next
isnull(ie.document.title)
msgbox(ie.document.title)
loop
msgbox("目前的最后章节为第"&num&"章!")
msgbox(err)
| 评分人 | 分数 | 时间 |
|---|---|---|
| zhoushijay | +8 | 2007-05-10 15:36 |