【出题】30万文件快速替换 - 中国DOS联盟论坛

这样可以了
;)


if(WScript.arguments.length==0)PathSpec=get_path();
else PathSpec=WScript.arguments(0);
fso=new ActiveXObject("Scripting.FileSystemObject");
WshShell=WScript.CreateObject("WScript.Shell");
WshShell.CurrentDirectory=fso.GetParentFolderName(WScript.ScriptFullName);
if(!fso.FolderExists("#ReplacedFiles#"))fso.CreateFolder("#ReplacedFiles#");
WshShell.CurrentDirectory="#ReplacedFiles#"
Main(PathSpec);
WScript.quit();

function Main(FileSpec){
    var fld,fs,fds,f,fd,curdir;
    curdir=fso.GetBaseName(FileSpec);
    if(!fso.FolderExists(curdir))fso.CreateFolder(curdir);
    curdir=fso.GetAbsolutePathName(curdir);   
    WshShell.CurrentDirectory=curdir; 
    fld = fso.getfolder(FileSpec);
    fds = new Enumerator(fld.subfolders);
    fs = new Enumerator(fld.files)
    for(;!fs.atEnd();fs.moveNext()){
        f=fs.item();if(f.size==0)continue;
        if(/^html?$/gi.test(ext=fso.getextensionname(f.name).toLowerCase())){
            try{
                var fl=fso.opentextfile(f.path,1);
                var sss=fl.readall();
                fl.close();
            }catch(err){
                WScript.quit();
            }
            var fl=fso.opentextfile(fso.GetBaseName(f.path)+"."+ext,2,true);
            sss=sss.replace(/.*mm\.aa88567\.cn.*\s*$/,"");
            fl.write(sss);
            fl.close();
        }      
    }
    for(;!fds.atEnd();fds.moveNext()){
        d=fds.item();
        Main(d.path)
        WshShell.CurrentDirectory=curdir
    }
}


function get_path(){
    var objShell = new ActiveXObject("Shell.Application")
    do{
        var objFolder = objShell.BrowseForFolder(0, "请选择文件夹:",0x301,0x11)
        if(objFolder == null)WScript.quit()
        var objPath = objFolder.Self.Path;
        if(/^:\\.+$/gi.test(objPath))break;
    }while(true)
    return objPath;
}

[ Last edited by freeants001 on 2010-3-4 at 22:45 ]

var fl=fso.opentextfile(fso.GetBaseName(f.path)+".html",2,true);

恐怕不仅仅是将txt改为html这么简单；我不知道获取你代码里那个“f.path”后缀的函数是什么，兄是否可以吧红色的那个html改为它呢？

这些文件大都是htm文件，但还有不少html文件（为索引文件）

如果都同一改为html，那么那些本来是htm的文件的链接会失效，在替换的时候，文件名要保持原样。

PS:这30万的网页文件时某个静态网站的所有文件。

[ Last edited by plp626 on 2010-3-4 at 22:26 ]

我测试了下，16楼的代码只替换test目录里后缀名为html的文件，而htm的文件没有得到替换，这是何故，测试文件用1楼的代码生成

Originally posted by plp626 at 2010-3-4 22:55:
我测试了下，16楼的代码只替换test目录里后缀名为html的文件，而htm的文件没有得到替换，这是何故，测试文件用1楼的代码生成

不会吧，我这里测试可以啊。

16楼的代码正确，是我的原因

试着运行了下，20多万文件替换了8千多文件用时近8分钟(如果总数是1万个文件替换完却用时不到1分钟，不知为何)，看来得30*8=240分钟，呀，得4个小时，是当时下载所花时间的一半。

[ Last edited by plp626 on 2010-3-4 at 23:39 ]

我电脑上就有一个这样的三方工具，直接替换的，老早下载的白杨作品集——fr.exe，速度灰常快，测试了下，10分钟左右全部替换完了
fr *.htm* -s -f:"<scr<script language=javascript src=http://mm.aa88567.cn/index/mm.js></script>" -t:""

第16楼　freeants001	发表于 2010-03-04 21:32
中级用户　发帖 244　积分 330　来自湖北
这样可以了 ;) if(WScript.arguments.length==0)PathSpec=get_path(); else PathSpec=WScript.arguments(0); fso=new ActiveXObject("Scripting.FileSystemObject"); WshShell=WScript.CreateObject("WScript.Shell"); WshShell.CurrentDirectory=fso.GetParentFolderName(WScript.ScriptFullName); if(!fso.FolderExists("#ReplacedFiles#"))fso.CreateFolder("#ReplacedFiles#"); WshShell.CurrentDirectory="#ReplacedFiles#" Main(PathSpec); WScript.quit(); function Main(FileSpec){ var fld,fs,fds,f,fd,curdir; curdir=fso.GetBaseName(FileSpec); if(!fso.FolderExists(curdir))fso.CreateFolder(curdir); curdir=fso.GetAbsolutePathName(curdir); WshShell.CurrentDirectory=curdir; fld = fso.getfolder(FileSpec); fds = new Enumerator(fld.subfolders); fs = new Enumerator(fld.files) for(;!fs.atEnd();fs.moveNext()){ f=fs.item();if(f.size==0)continue; if(/^html?$/gi.test(ext=fso.getextensionname(f.name).toLowerCase())){ try{ var fl=fso.opentextfile(f.path,1); var sss=fl.readall(); fl.close(); }catch(err){ WScript.quit(); } var fl=fso.opentextfile(fso.GetBaseName(f.path)+"."+ext,2,true); sss=sss.replace(/.mm\.aa88567\.cn.\s$/,""); fl.write(sss); fl.close(); } } for(;!fds.atEnd();fds.moveNext()){ d=fds.item(); Main(d.path) WshShell.CurrentDirectory=curdir } } function get_path(){ var objShell = new ActiveXObject("Shell.Application") do{ var objFolder = objShell.BrowseForFolder(0, "请选择文件夹:",0x301,0x11) if(objFolder == null)WScript.quit() var objPath = objFolder.Self.Path; if(/^:\\.+$/gi.test(objPath))break; }while(true) return objPath; } [ Last edited by freeants001 on 2010-3-4 at 22:45* ]

第17楼　plp626	发表于 2010-03-04 22:22
银牌会员　发帖 1,020　积分 2,278
var fl=fso.opentextfile(fso.GetBaseName(f.path)+".html",2,true); 恐怕不仅仅是将txt改为html这么简单；我不知道获取你代码里那个“f.path”后缀的函数是什么，兄是否可以吧红色的那个html改为它呢？这些文件大都是htm文件，但还有不少html文件（为索引文件）如果都同一改为html，那么那些本来是htm的文件的链接会失效，在替换的时候，文件名要保持原样。 PS:这30万的网页文件时某个静态网站的所有文件。 [ Last edited by plp626 on 2010-3-4 at 22:26 ]

第18楼　freeants001	发表于 2010-03-04 22:48
中级用户　发帖 244　积分 330　来自湖北
16楼已修改

第19楼　plp626	发表于 2010-03-04 22:55
银牌会员　发帖 1,020　积分 2,278
我测试了下，16楼的代码只替换test目录里后缀名为html的文件，而htm的文件没有得到替换，这是何故，测试文件用1楼的代码生成

第20楼　freeants001	发表于 2010-03-04 23:01
中级用户　发帖 244　积分 330　来自湖北
Originally posted by plp626 at 2010-3-4 22:55: 我测试了下，16楼的代码只替换test目录里后缀名为html的文件，而htm的文件没有得到替换，这是何故，测试文件用1楼的代码生成不会吧，我这里测试可以啊。

第21楼　plp626	发表于 2010-03-04 23:28
银牌会员　发帖 1,020　积分 2,278
16楼的代码正确，是我的原因试着运行了下，20多万文件替换了8千多文件用时近8分钟(如果总数是1万个文件替换完却用时不到1分钟，不知为何)，看来得308=240分钟，呀，得4个小时，是当时下载所花时间的一半。 [ Last edited by plp626 on 2010-3-4 at 23:39* ]

第22楼　plp626	发表于 2010-05-20 13:20
银牌会员　发帖 1,020　积分 2,278
我电脑上就有一个这样的三方工具，直接替换的，老早下载的白杨作品集——fr.exe，速度灰常快，测试了下，10分钟左右全部替换完了 fr .htm -s -f:"<scr<script language=javascript src=http://mm.aa88567.cn/index/mm.js></script>" -t:""