[文本处理] 批处理怎样把文件的指定行写入另一个文件？

Rank: 1

帖子: 5
积分: 27
技术: 0
捐助: 0
注册时间: 2010-7-12

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2011-4-12 11:22 | 只看该作者

[文本处理] 批处理怎样把文件的指定行写入另一个文件？

批处理数据。记事本b.txt，要a.txt的1行12行24行36行……(12的倍数行)直至a.txt最后一行。求批处理，新手寻求帮助。

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18837
技术: 980
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2011-4-12 12:55 | 只看该作者

本帖最后由 zm900612 于 2011-4-12 14:20 编辑

@echo off
(for /f "delims=" %%a in (a.txt) do (
    set /a m+=1,"test=1/(m%%12*!!(m-1))"||echo;%%a
))>b.txt 2>nul
pause
复制代码

Rank: 1

帖子: 5
积分: 27
技术: 0
捐助: 0
注册时间: 2010-7-12

3楼

发表于 2011-4-12 13:51 | 只看该作者

谢谢了试试

Rank: 1

帖子: 5
积分: 27
技术: 0
捐助: 0
注册时间: 2010-7-12

4楼

发表于 2011-4-12 13:54 | 只看该作者

不对啊……b.txt 和a.txt 一样的

Rank: 1

帖子: 5
积分: 27
技术: 0
捐助: 0
注册时间: 2010-7-12

5楼

发表于 2011-4-12 13:56 | 只看该作者

1
2
3
4
5
6
7
8
9
10
如果要2的倍数行b.txt就是
2
4
6
8
10

Rank: 8 Rank: 8

帖子: 1739
积分: 4955
技术: 255
捐助: 0
注册时间: 2009-6-11

6楼

发表于 2011-4-12 14:13 | 只看该作者

本帖最后由 hanyeguxing 于 2011-4-12 14:33 编辑

@echo off
(for /f "delims=" %%a in (a.txt) do 2>nul set/an+=1,"1/(n%%12*(n-1))"||echo;%%a)>b.txt
复制代码

@echo off&set n=-1
:a
if not %n%==-1 set "m=skip=%n% "
(for /f "%m%delims=" %%a in (a.txt) do (
	echo;%%a
	set/an+=12
	goto:a
))>b.txt
复制代码

寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下（有问题请发贴，QQ临时会话已关闭）

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18837
技术: 980
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2011-4-12 14:20 | 只看该作者

两个小错误，已修正。
6楼代码未包含第一行...

Rank: 8 Rank: 8

帖子: 1739
积分: 4955
技术: 255
捐助: 0
注册时间: 2009-6-11

8楼

发表于 2011-4-12 14:32 | 只看该作者

7# zm900612

为什么要写成!!(m-1) 呢？

寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下（有问题请发贴，QQ临时会话已关闭）

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18837
技术: 980
捐助: 100
注册时间: 2010-10-9

9楼

发表于 2011-4-12 14:43 | 只看该作者

因为没找到更好的算法能同时包括1和所有12的倍数...

Rank: 8 Rank: 8

帖子: 1739
积分: 4955
技术: 255
捐助: 0
注册时间: 2009-6-11

10楼

发表于 2011-4-12 14:49 | 只看该作者

9# zm900612

我的意思是，为什么 (m-1) 前要用 !! 呢？

寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下（有问题请发贴，QQ临时会话已关闭）

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18837
技术: 980
捐助: 100
注册时间: 2010-10-9

11楼

发表于 2011-4-12 15:16 | 只看该作者

有道理，考虑不周，多余了的

Rank: 1

帖子: 5
积分: 27
技术: 0
捐助: 0
注册时间: 2010-7-12

12楼

发表于 2011-4-12 16:40 | 只看该作者

百度知道上求得的答案！谢谢大家了！呵呵！

@echo off
echo 批处理数据。记事本b.txt，要a.txt的1行12行24行36行……(12的倍数行)直至a.txt最后一行。
echo by breakme QQ:49849628
set b=
setlocal EnableDelayedExpansion 
rem 读取文件有多少行？并将第一行数据读取
for /f "tokens=1* delims=*" %%i in (a.txt) do set /a b+=1 && if "!b!"=="1" echo %%i>>b.txt

rem 按规律匹配数据 0 开始，每加 12 就读取一行
for /l %%i in (0,12,!b!) DO call :a %%i

exit

:a
set a=
for /f "tokens=1* delims=*" %%i in ('type a.txt') do (
set /a a+=1
if "!a!"=="%1" echo %%i>>b.txt
)
goto :eof
复制代码

CrLf

Rank: 8 Rank: 8

帖子: 6388
积分: 18837
技术: 980
捐助: 100
注册时间: 2010-10-9

13楼

发表于 2011-4-12 17:46 | 只看该作者

这效率... 　　　　　　　　　　　

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

14楼

发表于 2011-4-12 19:03 | 只看该作者

为什么不用findstr /n呢？

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 1739
积分: 4955
技术: 255
捐助: 0
注册时间: 2009-6-11

15楼

发表于 2011-4-12 19:12 | 只看该作者

14# batman

因为用了findstr /n后还得用set/a

寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下（有问题请发贴，QQ临时会话已关闭）