批处理怎样删除TXT的最后一行到倒数的第n行, 并替換原文件？

xinghua_wei

删除文件夹下所有TXT的最后一行到倒数的第n行, 并替換原文件.
已知, 正数删除从第1行至n行的代码如下:

那么, 如果要倒数删除最后一行至倒数第N行, 那么应当如何编写?

如果不从第一行计, 而从第S行起, 至第P行呢? 包括正数及倒数. 谢谢.

1. @ECHO OFF
   
2. SET TxtDir="%~dp0"
   
3. echo.&set /p N=Please type in the end row No. (from 1 to this row, will be deleted!):
   
4. 
   
5. CD /D %TxtDir%
   
6. FOR /F "tokens=1 delims=" %%I IN ('DIR /A /B *.txt') DO ((MORE +%N% "%%I">"%%I_")&(DEL /A /F /Q "%%I")&(REN "%%I_" "%%I"))
   
7. PAUSE

复制代码

Five66

先获取总行数
再计算删除后需要输出的行数
最后输出所需的行数

77七

1. @echo off
   
2. cd /d "%~dp0"
   
3. set /a b=-2,d=-2
   
4. for %%i in (*.txt) do (
   
5.         setlocal
   
6.         call :1 "%%i"
   
7.         endlocal
   
8. )
   
9. pause & exit
   
10. 
    
11.         :1
    
12.         for /f "delims=" %%a in ('find /c /v "" ^<"%~1"') do (
    
13.                 echo %%a
    
14.                 set n=%%a
    
15.         )
    
16.         if %b% gtr 0 (
    
17.                 if %d% gtr 0 (
    
18.                         set /a s=b,e=b+d-1
    
19.                 ) else (
    
20.                         set /a s=b+d+1,e=b
    
21.                 )
    
22.         ) else (
    
23.                 if %d% gtr 0 (
    
24.                         set /a s=n+b+1,e=s+d-1
    
25.                 ) else (
    
26.                         set /a s=n+b+d+2,e=n+b+1
    
27.                 )
    
28.         )
    
29.         echo 删除第 %s% - %e% 行
    
30.         (for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%~1"') do (
    
31.                 if %%a lss %s% (
    
32.                         echo=%%b
    
33.                 ) else if %%a gtr %e% (
    
34.                         echo=%%b
    
35.                 )
    
36.         ))>$
    
37.         move $ "%~1"
    
38.         exit /b
    
39. 
    

复制代码

b 为开始行，d 为删除行数，都可以为正、负数

hfxiang

回复 1# xinghua_wei

可用第3方工具sed（ http://bcn.bathome.net/tool/4.9/sed.exe ）删除当前目录下所有txt文件的最后10（可自行修改）行后写回原文件的脚本如下：

1. 
   
2. sed -i -n -e :a -e "1,10!{P;N;D;};N;ba" *.txt
   

复制代码

hfxiang

回复 1# xinghua_wei
删除当前目录下所有txt文件的第3～10（可自行修改）行后写回原文件的脚本如下：

1. 
   
2. sed -i "3,10d" *.txt
   

复制代码

aloha20200628

截取文件中第n1至n2行的纯P老话题，似乎并无完解。
开启变量延迟+for/f skip参数，虽然效率不错，但会拦截文件中的!字符相关字段；
关闭变量延迟而借助find/findstr加注文本行序号的方法也会丢失文件中的[]字符或:字符。
还是给一个用纯P包装jscript代码的批处理脚本更便于使用，没有纯P的诸端限制，而且因采用字符集437后竟可通吃多种常见编码文件，使输出文件自动保持与输入文件编码一致...
以下代码存为test.bat运行
命令行调用参数》test.bat "源文件路径文件名" 起始行号 终止行号
生成结果文件 = "源文件路径文件名.new"

1. 
   
2. @set @v=1 //&if "%~3" neq "" cscript /e:jscript "%~f0" "%~1" %2 %3 &exit/b
   
3. v = WSH.arguments, as = WSH.createobject('adodb.stream');
   
4. as.mode=3, as.type=2, as.charset='437', as.open, as.loadfromfile(v(0));
   
5. alllines = as.readtext().split('\r\n'), as.close;
   
6. nb = (v(1)<1)? 1: v(1), ne = (v(2)>=alllines.length)? alllines.length: v(2);
   
7. if (nb>ne) WSH.quit();
   
8. alllines = alllines.slice(nb-1,ne);
   
9. as.open, as.writetext(alllines.join('\r\n')), as.savetofile(v(0)+'.new',2), as.close;
   
10. WSH.quit();
    

复制代码

wanghan519

sed不方便倒数，但更原始的ed脚本可以方便的倒数
一直以为ed是过时的，后来发现git、diff都在用ed脚本，相比sed确实有一些好处

ed -s a.txt <<'EOF'
2,3d
$-2,$d
w
EOF
# 删除2到3，倒数第3到最后一行

77七

回复 3# 77七


   修改30-36行代码，解决行首出现”[“ ”]“丢失问题

1. (for /f "delims=" %%a in ('find /n /v "" ^<"%~1"') do (
   
2.         set str=%%a
   
3.         setlocal enabledelayedexpansion
   
4.         if %%a lss %s% (
   
5.                 echo=!str:*]=!
   
6.         ) else if %%a gtr %e% (
   
7.                 echo=!str:*]=!
   
8.         )
   
9.         endlocal
   
10. ))>$

复制代码

aloha20200628

6楼代码用于 '截取' n1-n2区间行，是掐头去尾取中段，test.bat应更名为 "取中段.bat"
再给一段代码用于 '删除' n1-n2区间行，是留头留尾去中段，test.bat可取名为 "去中段.bat" ，命令行用法如同6楼命令行参数
jscript代码中弃用splice()方法是因其低效，还不如用slice()+concat()
再复课一遍》因采用437字符集编码，可不必在批处理脚本中特别打理与源文件编码对应的chcp...码页切换，用一个“437”即可通吃ansi/utf-8/utf-8+BOM/gbk/gb2312/...

1. 
   
2. @set @v=1 //&if "%~3" neq "" cscript /e:jscript "%~f0" "%~1" %2 %3 &exit/b
   
3. v = WSH.arguments, as = WSH.createobject('adodb.stream');
   
4. as.mode=3, as.type=2, as.charset='437', as.open, as.loadfromfile(v(0));
   
5. alllines = as.readtext().split('\r\n'), as.close;
   
6. nb = (v(1)<1)? 1: v(1), ne = (v(2)>=alllines.length)? alllines.length: v(2);
   
7. if (nb>ne) WSH.quit();
   
8. for (; alllines.slice(-1)==''; alllines.pop());
   
9. ab = alllines.slice(0, nb-1), ae = alllines.slice(ne), alllines = ab.concat(ae);
   
10. as.open, as.writetext(alllines.join('\r\n'));
    
11. as.savetofile(v(0)+'.new',2), as.close; WSH.quit();
    

复制代码

aloha20200628

补缺》采用437字符集编码的优势有一个前提，是限于处理文件中的单字节ascii字符，其有效用法例如删除utf-8+BOM编码文件头标，删除文件尾部空行...
虽然adodb.stream可以二进制方式直接处理字节数据，但要比处理字符串麻烦，尤其是启用正则匹配...