联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
dir |cscript //nologo savelog.vbs log.txtSet fso = CreateObject("scripting.filesystemobject")
Set stream = fso.opentextfile(wscript.arguments(0),2,true)
While Not wscript.stdin.atendofstream
line = wscript.stdin.readline
wscript.stdout.writeline(line)
Call stream.writeline(line)
Wend
Call stream.close| 评分人 | 分数 | 时间 |
|---|---|---|
| wxcute | +4 | 2008-11-29 17:11 |
@echo off
dir>log.txt
type log.txt
pause
' 调用'hhc.exe'生成chm并保存输出到log文件
Sub GenChm()
Dim stream
Set stream = fso.opentextfile(logfile,2,true)
Dim oexec
Set oexec = shell.Exec(cmdline)
Do While Not oExec.StdOut.AtEndOfStream
Dim line
line = oexec.stdout.readline()
Call wscript.stdout.writeline(line)
Call stream.writeline(line)
Loop
Call stream.close
End Sub| 评分人 | 分数 | 时间 |
|---|---|---|
| HAT | +2 | 2008-11-30 11:32 |
Originally posted by HAT at 2008-11-29 05:10 PM:
@echo off
dir>log.txt
type log.txt
pause