[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
16楼 跳转到 »
发表于 2010-10-11 22:22 | 只看该作者
C:\Test>type test.bat
@set @bat=1 // & cscript -nologo -e:jscript "%~f0" & exit /b
f = "C:\\test\\1.txt";
fso = new ActiveXObject('Scripting.FileSystemObject');
s = fso.OpenTextFile(f).ReadAll().replace(/\r\n?/g,'\r\n');
fso.OpenTextFile('02.txt',2,true).Write(s);

C:\Test>test.bat

C:\Test>type 02.txt
A:   0.0 (00.0) of 17.0 (17.0)  1.5%
A:   0.0 (00.0) of 17.0 (17.0)  1.5%
A:   0.0 (00.0) of 17.0 (17.0)  1.5%
A:   0.0 (00.0) of 17.0 (17.0)  1.5%
A:   0.0 (00.0) of 17.0 (17.0)  1.4%
A:   0.0 (00.0) of 17.0 (17.0)  1.4%
A:   0.1 (00.0) of 17.0 (17.0)  1.4%
A:  48.2 (48.1) of 260.0 (04:20.0)  0.6%
A: 153.2 (02:33.2) of 260.0 (04:20.0)  0.5%
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
17楼
发表于 2010-10-17 20:13 | 只看该作者
原帖由 powerbat 于 2010-10-11 19:28 发表
@set @bat=1 // & cscript -nologo -e:jscript "%~f0" & pause & exit /b
f = "C:\\a b\\tuigj.txt";
fso = new ActiveXObject('Scripting.FileSystemObject');
s = fso.OpenTextFile(f).ReadAll().replace(/\r\n ...


>>>>>>>>>>>>>>>>>>>>>>>

                                               马甲 ？？？？？？？？？？？？？？

[ 本帖最后由 plp626 于 2010-10-17 20:15 编辑 ]
技术娱乐 3802

TOP

12
返回列表