pcl_test

//&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
var fso = new ActiveXObject('Scripting.Filesystemobject');
var txtfiles = WSH.StdIn.ReadAll().split(/\r\n/);
for(var i = 0; i<txtfiles.length; i++){
    var filename = fso.GetFile(txtfiles[i]).Name.replace(/\.[^\.]+$/, '');
    var f = fso.OpenTextFile(txtfiles[i], 1);
    var txt = f.ReadAll().replace(/(^|\r?\n)(?!(\r?\n|$))/g, '$&'+filename+',');
    f.Close();
    var f = fso.OpenTextFile(txtfiles[i], 2);
    f.Write(txt);
    f.Close();
}
WSH.echo('Done');
复制代码

mydreamspace

回复 15# WHY


    一闪而过，然后好像什么都没发生

mydreamspace

回复 14# jrx401


    可以，不过比原先的没快多少。。

mydreamspace

回复 16# pcl_test


    这速度好恐怖。。拿一百多个txt试了下，刚点开就转换好了。。。

jrx401

回复 12# shootman2


    果然很简洁。
     如下两个没有见过， 可否给解释一下呢？
     >>#
    move # "%%a"

jrx401

回复 16# pcl_test


      看不懂 Code。
     想要看懂，我要参考什么样的资料呢？

WHY

回复 20# jrx401


    >> 是重定向符，#是文件名，move在这里是把#文件重命名
这样可能会好一点：

@echo off 
for %%a in (*.txt) do ( 
   (for /f "usebackq delims=" %%b in ("%%a") do ( 
      echo %%~na %%b
   ))>"%%~na.Log"
) 
复制代码

WHY

@if (0)==(0) echo off
dir /b *.txt | cscript //nologo //e:jscript "%~f0"
pause & exit
@end

var getContent = function(strFile){
    var strName = fso.GetBaseName(strFile);
    var objFile = fso.OpenTextFile(strFile, 1);
    var s = objFile.ReadAll().replace(/[^\r\n]+/g, strName + ' $&');
    objFile.Close();
    fso.OpenTextFile(strName + '.Log', 2, true).Write(s)
}

var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){getContent(WSH.StdIn.ReadLine());}
复制代码

qixiaobin0715

回复 16# pcl_test
若想把文件名放到行尾，并将所有文件合并为一个新文件，如何改动？