批处理如何在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

1. //&cls&dir /b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. function reStr(file){
   
4.     var f = fso.opentextfile(file, 1);
   
5.     str = f.ReadAll()
   
6.     .replace(/(^[\r\n]*)/g, '行首替换内容\r\n');//行首添加一行内容
   
7.     //如果不需要换行替换内容后面的\r\n去掉
   
8.     f.Close();
   
9.     var f = fso.opentextfile(file, 2);
   
10.     f.Write(str);
    
11. }
    
12. var fso = new ActiveXObject('Scripting.FileSystemObject');
    
13. while(!WScript.StdIn.AtEndOfStream)reStr(WScript.StdIn.ReadLine());

复制代码

1. //&cls&dir /b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. function reStr(file){
   
4.     var f = fso.opentextfile(file, 1);
   
5.     str = f.ReadAll()
   
6.     .replace(/^[\r\n]*|[\r\n]*$/g, '')//删除首尾空行，不需要可删除这行
   
7.     .replace(/[\r\n]*$/g, '\r\n行尾替换内容');//行尾添加一行内容，如果不需要换行，替换内容\r\n去掉
   
8.     f.Close();
   
9.     var f = fso.opentextfile(file, 2);
   
10.     f.Write(str);
    
11. }
    
12. var fso = new ActiveXObject('Scripting.FileSystemObject');
    
13. while(!WScript.StdIn.AtEndOfStream)reStr(WScript.StdIn.ReadLine());

复制代码

无忧

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

无忧

回复 2# useinter


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