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

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
16楼 跳转到 »
发表于 2018-9-25 20:25 | 只看该作者
回复 13# flashercs


    先试试15楼的代码吧。如果是公司的服务器，强烈建议升级到2012以上的版本。
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

heimahack

Rank: 1

帖子
19 
积分
36 
技术
0  
捐助
0  
注册时间
2012-9-11 
17楼
发表于 2018-9-25 21:54 | 只看该作者
Js能直接双击运行？

TOP

heimahack

Rank: 1

帖子
19 
积分
36 
技术
0  
捐助
0  
注册时间
2012-9-11 
18楼
发表于 2018-9-27 17:02 | 只看该作者
回复 15# flashercs


    嗯，非常有效果，谢谢你

TOP

heimahack

Rank: 1

帖子
19 
积分
36 
技术
0  
捐助
0  
注册时间
2012-9-11 
19楼
发表于 2018-9-27 17:44 | 只看该作者
回复 15# flashercs

(function(e){function t(e,t){WScript.Echo("[object Error]"===Object.prototype.toString.call(e)?[e.name,"source: "+(void 0===t?"":t),"number: "+(e.number>>>0).toString(16),"equipment: "+(e.number>>16&8191),"code: "+(65535&e.number),"Information: "+e.message].join("\n"):e)}var i,r,n,c=new ActiveXObject("Scripting.FileSystemObject"),o=/[^\r\n]*(\r\n|\n|\r)/g,l=0;new ActiveXObject("WScript.Shell").CurrentDirectory=c.GetParentFolderName(WScript.ScriptFullName),file=""+e.file;try{i=c.OpenTextFile(file,1,!1)}catch(e){return void t(e,"Opening file "+file)}r=i.ReadAll(),i.Close();try{i=c.OpenTextFile(file,2,!1)}catch(e){return void t(e,"Writing to file "+file)}for(;n=o.exec(r);)i.Write(void 0===e[++l]?n[0]:e[l]+n[1]);i.Close()})
({file:"D:\\3.txt",1043:"CHECKGAMEGOLD > 4"});


呵呵，还是不行，会把最后面一行给删掉。算拉。不整它了。还是很感谢大家的

TOP

12
返回列表