求助改进循环将一个文本的每一行重复指定次数后按每隔指定行数插入到另一个文本

q4911 · 发表于 2015-4-28 18:46:48

本帖最后由 q4911 于 2015-4-28 19:08 编辑

回复 14# CrLf

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

插入的数据没有循环。

xxpinqz · 发表于 2015-4-28 20:09:20

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

CrLf · 发表于 2015-4-28 21:32:22

回复 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 · 发表于 2015-4-28 21:38:38

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

@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 · 发表于 2015-4-28 22:26:31

回复 19# CrLf

谢谢可以了

pcl_test · 发表于 2016-8-9 19:32:47

/*&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 · 发表于 2016-8-9 20:24:56

第三方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;
}
}

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 求助改进循环将一个文本的每一行重复指定次数后按每隔指定行数插入到另一个文本

评分