q4911

回复 14# CrLf


    为什么处理结果文本会出现   ECHO 处于关闭状态。

    插入的数据没有循环。

xxpinqz

因为缺少了原代码中的一个判断：if !j! equ !i! set j=0
要能循环插入，貌似还是需要设置变量表。

CrLf

回复 17# xxpinqz


确实如此，没多想就顺手删了
如果用变量表保存文本，基本没有可优化的空间
所以派生出两种办法：
1、为 %src% 中的每行生成包含 %count% 个此行的小文件，引用时直接 type，这办法简单易行，不过文件多得让你崩溃
2、仍用 set /p str= <%src% 的办法，但为了处理 %file% 多于 %src% 的情况，需要事先倍增 %src% 到临时文件，已修改

@echo off&setlocal enabledelayedexpansion
set/p file=拖入需要修改的文件并回车：
set/p src=拖入需要增加的文件并回车：
set/p count=输入每隔多少行插入：
set/p blank=输入插入多少行：

set "n=%count%"

for /f %%a in ('find /c /v ""^<%file%') do set file.count=%%a
for /f %%a in ('find /c /v ""^<%src%') do set src.count=%%a

findstr /v $ %src%&&echo;>>%src%
copy /y %src% src.temp
set /a loop.count = file.count / count / src.count
for /l %%a in (1 1 %loop.count%) do copy /b src.temp+%src%

(for /f "usebackq delims=" %%a in ("%file:"=%") do (
  echo,%%a
  set/a n-=1

  if !n! leq 0 (
    set "str="
    set /p "str="
    for /l %%b in (1 1 %blank%)do echo !str!
    set "n=%count%"
  )
))>new.txt <src.temp

start new.txt
复制代码

CrLf

用大量临时文件的办法（不推荐），只对顶楼方案进行小改造，减少耗时的操作：

@echo off&setlocal enabledelayedexpansion
set/p file=拖入需要修改的文件并回车：
set/p src=拖入需要增加的文件并回车：
set/p count=输入每隔多少行插入：
set/p blank=输入插入多少行：

md 临时文件夹

for /f "delims=" %%i in ('type %src%')do (
  set/ai+=1
  (for /l %%b in (1 1 %blank%)do echo,%%i)>临时文件夹\!i!.txt
)

(for /f "usebackq delims=" %%a in (%file%) do (
  echo,%%a
  set/a n+=1,m=n%%count
  if !m! equ 0 (
    set/aj+=1,j=j%%i+1
    type 临时文件夹\!j!.txt
  )
))>new.txt

rd /s /q 临时文件夹

start new.txt
复制代码

q4911

回复 19# CrLf


    谢谢 可以了

pcl_test

/*&cls
@echo off
set /p file=拖入需要插入数据的文件并按回车：
set /p src=拖入数据文件并按回车：
set /p count=输入每隔多少行插入数据并按回车：
set /p blank=输入每行数据插入多少次并按回车：
cscript -nologo -e:jscript "%~f0" "%file%" "%src%" "%count%" "%blank%"
pause&exit
*/

if(!WSH.Arguments(0)||!WSH.Arguments(1)||!WSH.Arguments(2)||!WSH.Arguments(3)||!/[1-9][0-9]*/.test(WSH.Arguments(2))||!/[1-9][0-9]*/.test(WSH.Arguments(3)))WSH.echo('输入有误');
var fso = new ActiveXObject('Scripting.FileSystemObject');
var a = fso.OpenTextFile(WSH.Arguments(0), 1);
var b = fso.OpenTextFile(WSH.Arguments(1), 1);
var c = fso.CreateTextFile('结果.txt', 2);
var btext = b.ReadAll().split(/\r?\n/);
var n=m=0;
while(!a.AtEndOfStream){
    var line = a.ReadLine();
    n++;
    if(n%WSH.Arguments(2)==0){
        var s='';
        for(var i=0; i<WSH.Arguments(3); i++){
            s+=btext[m]+'\r\n';
        }
        if(m==btext.length-1){m=0}else m++;
        c.Write(line+'\r\n'+s);
    }else c.Writeline(line);
}
复制代码

pcl_test

第三方http://www.bathome.net/s/tool/index.html?key=gawk

#* 2>nul 3>nul&cls&@echo off
#*&set /p file=拖入需要插入数据的文件并按回车：
#*&set /p src=拖入数据文件并按回车：
#*&set /p count=输入每隔多少行插入数据并按回车：
#*&set /p blank=输入每行数据插入多少次并按回车：
#*&gawk -f "%~f0" "%file%" "%src%" "%count%" "%blank%"&pause&exit
BEGIN{
    result="结果.txt";
    while(getline<ARGV[2]>0){
        i++;b[i]=$0;
    }
    m=1;
    while(getline<ARGV[1]>0){
        n++;
        if(n%ARGV[3]==0){
            s="";
            for(i=0; i<ARGV[4]; i++){
                s=s""b[m]"\n";
            }
            if(m==length(b)){m=1}else m++;
            printf $0"\n"s>result;
        }else print $0>result;
    }
}
复制代码