中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

中国DOS联盟论坛
现在时间是 2026-08-11 23:52

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

第1楼　wang6542975	发表于 2010-09-07 19:17
初级用户　发帖 62　积分 123
FOR的问题 echo %date% %time% ping www.baidu.com -t>D:\1.txt 麻烦帮我把这个批处理给搞起来。实现在1.txt里每行都可以看到几点几分ping的结果. for命令不会用。

第2楼　coldface	发表于 2010-09-07 20:57
初级用户　发帖 70　积分 71
Set shell = WScript.CreateObject("WScript.Shell") Set re=New RegExp re.Pattern = "^Reply\|^Request" Set myping=shell.Exec("ping www.baidu.com -t") while Not myping.StdOut.AtEndOfStream strLine = myping.StdOut.ReadLine() r=re.Test(strLine) If r Then WScript.Echo date & " "& time & chr(9) & strLine End if Wend 保存成p.vbs