批处理如何在txt中的每一行从下往上读取？

xczxczxcz

回复 15# WHY

我认为这是正常的。你所有的行的字符数小于 65535。就会以默认的排序。如果有部分行的字符数超过 +n ，不足+n的行会以空字符补足再排序。

yunyan100

回复 2# ivor


powershell好像不错,好像使用比批处理长点时间?你可否改下增加文件或文件夹,我本意就是选择一个文件或文件夹如果有一些字符,不仅删除字还要改文件或文件夹.

yunyan100

回复 14# 523066680
我想也是,我是老江湖了,习惯了批处理,powershell如果在批处理上感觉运行慢慢一点,是不是?

523066680

回复 18# yunyan100

    这都是看你的情况需求。对我们来说，没什么好考虑的，ruby python perl 哪一个处理这种问题都是一两句代码的事。

WHY

回复 16# xczxczxcz


    建议你在 win7 和 win10系统中，分别测试一下 sort /+65535

cfwyy77_bat

bash环境下的cat的反序   tac  了解一下？

1. tac 1.txt

复制代码

坛子里的windows下的第三方也有的下载。

Batcher

test.bat

1. @echo off
   
2. powershell -c "$s=gc 1.txt;[array]::Reverse($s);$s"

复制代码

523066680

same same

1. use File::Slurp;
   
2. write_file("dst.txt", reverse(read_file("src.txt")));
   

复制代码

但是怎么能满足于此，不如假设文件大于10G，练练手吧。

tac.exe 测试超过3GB的文件，没有输出。

实践了，先用Perl试手，实测 3.0GB文件 70s，机械硬盘（蓝色标签）。

1. =info
   
2.     文本按行倒序输出
   
3.     523066680/vicyang
   
4.     2019-01
   
5. =cut
   
6. 
   
7. use strict;
   
8. use Fcntl qw(:seek);
   
9. STDOUT->autoflush(1);
   
10. my $src = "F:/A_Parts.txt";
    
11. my $dst = $src;
    
12. $dst =~s/(\.\w+)$/_REV$1/;
    
13. 
    
14. reverse_write( $src, $dst );
    
15. 
    
16. sub reverse_write
    
17. {
    
18.     my ($srcfile, $dstfile) = @_;
    
19.     open my $SRC, "<:raw", $srcfile or die "$!\n";
    
20.     open my $DST, ">:raw", $dstfile or die "$!\n";
    
21. 
    
22.     # 缓冲区大小
    
23.     my $buffsize = 2**16;
    
24.     my $offset = -s $SRC;
    
25.     my $buff;
    
26.     my @lines;
    
27.     my $left = "";
    
28.     while ( $offset >= $buffsize )
    
29.     {
    
30.         $offset -= $buffsize;
    
31.         seek $SRC, $offset, SEEK_SET;
    
32.         read $SRC, $buff, $buffsize;
    
33.         # 拼接，考虑单行文本小于 $buffsize 的情况
    
34.         $buff = $buff . $left;
    
35.         if ( $buff =~/\r?\n/ ) {
    
36.             @lines = reverse( split /\r?\n/, $buff, -1 );
    
37.             $left = pop @lines;
    
38.             printf $DST "%s\r\n", join("\r\n", @lines);
    
39.         } else {
    
40.             $left = $buff;
    
41.             #printf "%s\n", $left;
    
42.         }
    
43.     }
    
44. 
    
45.     # 如果 offset 未归零，读取剩下(源文件的开头)部分
    
46.     return if ($offset <= 0);
    
47.     seek $SRC, 0, SEEK_SET;
    
48.     read $SRC, $buff, $offset;
    
49.     @lines = reverse(split /\r?\n/, $buff .$left );
    
50.     print $DST join("\r\n", @lines);
    
51.     close $SRC;
    
52.     close $DST;
    
53. }
    

复制代码