【已解决】提取多个txt文本文件的第n行/指定行，合并到同一个新的文件里？

lxh623

批处理怎样提取第n行，合并到一起？
当前目录下的文本文件，提取每一个txt的第n行，合并到result.txt 。
第二个，提取连续的几行，比如从第x行到第y行，合并到result.txt 。
谢谢！！

523066680

Join( Get-All-Text-Map-Each-Of-Line-{n}, "\n" )-Save("result.txt")

来自超级强大的变形 PowerShell 语法。
PowerShell 是坠吼的

xczxczxcz

(gci ".\*.txt" )| %{(gc "$_" -totalcount n)[-1] | ac ".\result1.log"}

第二种
(gci ".\*.txt" )| %{(gc "$_" -totalcount y)[x..y] | ac ".\result2.log"}

zuodx

#perl 代码
use strict;

my  $start = shift;
my        $end   = shift;

for(glob('*.txt')){
        my $fh ;
        open ($fh , $_) or die "Open $_ failed\n";
        my @arr = <$fh>;       
        print for(@arr[$start -1 .. $end -1]);
        close($fh);
}
#结束. 把以上代码拷贝到个文件,p.pl      
#p.pl  1  8  表示取目录下所有txt文件的1---8行
#p.pl   1  8 >result.txt   把结果重定向到result.txt

523066680

回复 4# zuodx

    File::Slurp 很好用，可以让代码更简洁

yhcfsr

回复 2# 523066680


    这个命令要怎么用,WPS无法识别为CMDLET

523066680

回复 6# yhcfsr


    滑稽脸表示开玩笑

WHY

提取每个文本的第 5~15 行
设置 x,y 值相等时，比如 x=y=5 时，提取每个文本中的第 5 行

1. @echo off & setlocal enabledelayedexpansion
   
2. set /a x=5, y=15
   
3. (for %%i in (*.txt) do (
   
4.     (for /L %%j in (1 1 !y!) do (
   
5.         set "s=" & set /p "s="
   
6.         if %%j GEQ !x! echo;!s!
   
7.     )) < "%%i"
   
8. )) > Result.Log
   
9. pause

复制代码

WHY

提取每个文本的第 5~15 行
设置 x,y 值相等时，比如 x=5, y=5 时，提取每个文本中的第 5 行

1. @if(0)==(0) echo off
   
2. dir /b *.txt | cscript //nologo //e:jscript "%~f0" > 1.Log
   
3. pause & goto :EOF
   
4. @end
   
5. 
   
6. var x = 5;      //开始行号
   
7. var y = 15;     //结束行号
   
8. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
9. while(!WSH.StdIn.AtEndOfStream){
   
10.     var strFile = WSH.StdIn.ReadLine();
    
11.     var objFile = fso.OpenTextFile(strFile, 1);
    
12.     for(var i=1; i<=y; i++){
    
13.         if(objFile.AtEndOfStream) break;
    
14.         i<x ? objFile.skipLine() : WSH.Echo(objFile.ReadLine());
    
15.     }
    
16. }

复制代码

523066680

• Strawberry Perl
  $n 是行号
  

use File::Slurp; $n = 3; write_file( "result.log", map { (read_file($_))[$n-1] } glob "*.txt");

• 又想了一下，cmd 配合 perl 命令行：

(for %a in (*.txt) do @(perl -ne "print if $.==3" "%a")) > result.log.log

523066680

在必应搜索了一下`linux shell get nth line of text`

Getting n-th line of text output

这……

sed -s -n '3p' *.txt

happy886rr

tl你值得拥有，下载地址http://bcn.bathome.net/tool/tl.exe
提取第n行到第m行

1. tl *.txt -nn,m

复制代码

还能当tail用

Batcher

第三行：

1. sed -s -n "3p" *.txt

复制代码

第二行到第四行：

1. sed -s -n "2,4p" *.txt

复制代码