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

lxh623

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

Batcher

第三行：

sed -s -n "3p" *.txt
复制代码

第二行到第四行：

sed -s -n "2,4p" *.txt
复制代码

happy886rr

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

tl *.txt -nn,m
复制代码

还能当tail用

523066680

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

Getting n-th line of text output

这……

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

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

WHY

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

@if(0)==(0) echo off
dir /b *.txt | cscript //nologo //e:jscript "%~f0" > 1.Log
pause & goto :EOF
@end

var x = 5;      //开始行号
var y = 15;     //结束行号
var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){
    var strFile = WSH.StdIn.ReadLine();
    var objFile = fso.OpenTextFile(strFile, 1);
    for(var i=1; i<=y; i++){
        if(objFile.AtEndOfStream) break;
        i<x ? objFile.skipLine() : WSH.Echo(objFile.ReadLine());
    }
}
复制代码

WHY

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

@echo off & setlocal enabledelayedexpansion
set /a x=5, y=15
(for %%i in (*.txt) do (
    (for /L %%j in (1 1 !y!) do (
        set "s=" & set /p "s="
        if %%j GEQ !x! echo;!s!
    )) < "%%i"
)) > Result.Log
pause
复制代码

523066680

回复 6# yhcfsr


    滑稽脸表示开玩笑

yhcfsr

回复 2# 523066680


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

523066680

回复 4# zuodx

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

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

xczxczxcz

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

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

523066680

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

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