Board logo

标题: [文本处理] 批处理如何在txt文本开头插入/添加一行指定内容 [打印本页]
作者: qiaodong    时间: 2017-5-28 20:26     标题: 批处理如何在txt文本开头插入/添加一行指定内容

本帖最后由 pcl_test 于 2017-5-28 20:28 编辑

有若干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    时间: 2017-6-3 23:08

支持一下,同样求助,有类似需求,还请大神帮下,我是在文本末尾添加
作者: 3518228042    时间: 2017-6-4 09:23

  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());
复制代码
作者: 无忧    时间: 2017-6-4 14:37

把你需要的指定行写入一个文本，然后用copy命令合并两个文本就行…………没那么麻烦吧…………
作者: 无忧    时间: 2017-6-4 14:38

回复 2# useinter


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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2