标题: [已解决]请教如何将命令的输出既显示又输出到log文件中?
[打印本页]
作者: sonicandy
时间: 2008-11-29 11:57
标题: [已解决]请教如何将命令的输出既显示又输出到log文件中?
比如我想使用hhc.exe生成chm文件.
hhc.exe xxx.hhp
则此编译过程会显示在cmd窗口中.
如果使用
hhc.exe xxx.hhp > log.txt
则不会在屏幕上显示,直接输出到log.txt
请问能不能让输出的信息既显示在cmd窗口中,也输出到log.txt?
(已经搜索过论坛,但是没有找到可以解决这个问题的文章.)
Last edited by sonicandy on 2008-11-29 at 15:01 ]
作者: sonicandy
时间: 2008-11-29 15:00
猛然想起VBS可以实现这功能,已经解决了,呵呵.
调用:
dir |cscript //nologo savelog.vbs log.txt
Set 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
作者: HAT
时间: 2008-11-29 17:10
@echo off
dir>log.txt
type log.txt
pause
作者: lxmxn
时间: 2008-11-29 17:47
有个命令行工具 tee 。
作者: yishanju
时间: 2008-11-29 20:26
好像 MTEE更加强大
更好用
作者: sonicandy
时间: 2008-11-29 23:16
刚才实现了chm的生成代码,这回不用调用命令行了,直接在vbs的内部就可以完成.
vbs的wshshell提供了一个wshscriptexec对象:
http://www.elook.net.cn/handbook/windowsscript/html/wslrfscriptexecobject.htm
这个对象是通过wshell.exec得到的,以下是我实现的部分代码:
' 调用'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
当然,为了让wscript的标准输入输出句柄有效,必须使用cscript宿主来运行:-)
Last edited by sonicandy on 2008-11-29 at 23:21 ]
作者: sonicandy
时间: 2008-11-29 23:26
Originally posted by HAT at 2008-11-29 05:10 PM:
@echo off
dir>log.txt
type log.txt
pause
这个貌似是命令执行完了以后才显示的,这样就没有即时显示的效果了.
当然如果命令运行时间不长的话可以使用这个方式:->
作者: sonicandy
时间: 2008-11-29 23:30
4版主和5楼朋友说的工具我还没有用过..
不知道实现的是不是相同的功能?
如果是的话,还是直接写个脚本方便,呵呵
Last edited by sonicandy on 2008-11-29 at 23:32 ]
作者: lxmxn
时间: 2008-11-30 00:55