批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]批处理怎样把文本每行增加上3行下3行内容？ [打印本页]

作者: daohe 时间: 2010-4-15 20:11 标题: [已解决]批处理怎样把文本每行增加上3行下3行内容？

这个问题还真是不好描述，开始每行先重复5次，然后逗号，后面出现原先前三行和后三行的内容
例如：a.txt内容
1
2
3
4
5
6
7
8
9
按要求处理后
1,7
1,8
1,9
1,2
1,3
1,4
2,8
2,9
2,1
2,3
2,4
2,5
3,9
3,1
3,2
3,4
3,5
3,6
4,1
4,2
4,3
4,5
4,6
4,7
5,2
5,3
5,4
5,6
5,7
5,8
6,3
6,4
6,5
6,7
6,8
6,9
7,4
7,5
7,6
7,8
7,9
7,1
8,5
8,6
8,7
8,9
8,1
8,2
9,6
9,7
9,8
9,1
9,2
9,3
即循环起来，第一行他的前三行就是文章末尾的3行，后三行即他下面内容的三行，如图的一个循环效果

作者: hanyeguxing 时间: 2010-4-16 04:59

推荐在运行批处理前，先备份a.txt，因为批处理读取原文本a.txt，并把结果写回文本a.txt：

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do set/a i+=1&set "j!i!=%%i"
title 寒夜孤星制作 2>a.txt
for /l %%I in (1,1,%i%) do for %%l in (l-3,l-2,l-1,l+1,l+2,l+3) do (
set l=%%I&set/a l=%%l
if !l! lss 1 set/a l=l+i
if !l! gtr %i% set/a l=l-i
call echo.!j%%I!,%%j!l!%%)>>a.txt
复制代码

这哪是文本处理啊，整个就一数学题啊&$~#%-%$#@￥！……

[ 本帖最后由 hanyeguxing 于 2010-4-16 07:37 编辑 ]

作者: hanyeguxing 时间: 2010-4-16 06:37

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do set i=%%i&set "j%%i=%%j"
title 寒夜孤星制作 2>a.txt
for /l %%I in (1,1,%i%) do for %%l in (l-3,l-2,l-1,l+1,l+2,l+3) do (
set l=%%I&set/a l=%%l
if !l! lss 1 set/a l=l+i
if !l! gtr %i% set/a l=l-i
call echo.!j%%I!,%%j!l!%%)>>a.txt
复制代码

这样可以提高运行速度。。。

[ 本帖最后由 hanyeguxing 于 2010-4-20 20:23 编辑 ]

作者: daohe 时间: 2010-4-16 09:12

谢谢，2 3楼测试正确

欢迎光临批处理之家 (http://www.bathome.net/)