
CODE: [Copy to clipboard][ Last edited by huzixuan on 2007-4-21 at 08:03 AM ]with createobject("scripting.filesystemobject")
set rfile = .opentextfile("love.txt",1,true)
set rfile1 = .opentextfile("old.txt",1,true)
set wfile = .opentextfile("str.txt",2,true)
end with
do
rfile1s=left(rfile1.readline,10)
str=rfile1s&rfile.readline
if str = vblf then
msgbox str
wscript.quit
end if
loop
附件 1:love.txt (2007-4-21 07:29, 1.88 K,下载次数: 7)
附件 2:old.txt (2007-4-21 07:29, 1.95 K,下载次数: 6)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |