[文本处理] 批处理如何在txt文本开头插入/添加一行指定内容

qiaodong

有若干TXT文件，我是利用VB程序分列转换成excel文件后，然后再添加表头，然后再转换成TXT文件。由于VB程序的速度太慢了，请大神编一个批处理代码

比如：
-26.188,-4.5744,310
-23.605,-4.5423,92.3
-14.117,-3.506,96.3
变成：
d,o,p
-26.188,-4.5744,310
-23.605,-4.5423,92.3
-14.117,-3.506,96.3

useinter

支持一下,同样求助,有类似需求,还请大神帮下,我是在文本末尾添加

3518228042

//&cls&dir /b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit

function reStr(file){
    var f = fso.opentextfile(file, 1);
    str = f.ReadAll()
    .replace(/(^[\r\n]*)/g, '行首替换内容\r\n');//行首添加一行内容
    //如果不需要换行替换内容后面的\r\n去掉
    f.Close();
    var f = fso.opentextfile(file, 2);
    f.Write(str);
}
var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WScript.StdIn.AtEndOfStream)reStr(WScript.StdIn.ReadLine());
复制代码

//&cls&dir /b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit

function reStr(file){
    var f = fso.opentextfile(file, 1);
    str = f.ReadAll()
    .replace(/^[\r\n]*|[\r\n]*$/g, '')//删除首尾空行，不需要可删除这行
    .replace(/[\r\n]*$/g, '\r\n行尾替换内容');//行尾添加一行内容，如果不需要换行，替换内容\r\n去掉
    f.Close();
    var f = fso.opentextfile(file, 2);
    f.Write(str);
}
var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WScript.StdIn.AtEndOfStream)reStr(WScript.StdIn.ReadLine());
复制代码

无忧

把你需要的指定行写入一个文本，然后用copy命令合并两个文本就行…………没那么麻烦吧…………

无忧

回复 2# useinter


    末尾添加直接用追加的管道符号啊………… >>