[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-3-5 17:05 | 只看该作者

[代码合集] [已解决]批处理如何批量删除指定行和倒数行

本帖最后由 xp3000 于 2014-3-7 07:48 编辑

文件夹内有大量的TXT，如何批量删除指定行和倒数行？
在文件夹里面建立个批处理。
删除指定行要一个，只需要删除特定的行，
删除倒数行也要一个，需要删除多行，比如删除倒数1-5行。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
2楼
发表于 2014-3-5 17:19 | 只看该作者 
  1. @echo off

  2. REM 设置删除第几行

  3. set n=1

  4. sed -i "%n%d" *.txt
复制代码
1

评分人数

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
3楼
发表于 2014-3-6 10:34 | 只看该作者 
  1. @set @n=0;//&dir /b *.txt|cscript -nologo -e:jscript "%~0"&pause&exit/b

  2. a = 1; b = 5; //从倒数第1行到倒数第5行

  3. x = b-a+1; y = a-1; //x=删除行数，y=结尾剩余行数

  4. fso = new ActiveXObject("Scripting.FileSystemObject");

  5. re = new RegExp('^([\\s\\S]*?)(.*\\n){'+x+'}((.*\\n){'+y+'})$','');

  6. while (!WSH.StdIn.AtEndOfStream) {

  7.     f = WSH.StdIn.ReadLine();

  8.     txt = fso.OpenTextFile(f,1).ReadAll();

  9.     if (txt.substr(txt.length-2) != '\r\n') txt += '\r\n'

  10.     txt = txt.replace(re, '$1$3');

  11.     fso.OpenTextFile(f,2).Write(txt);

  12. }
复制代码
1

评分人数

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
4楼
发表于 2014-3-6 15:25 | 只看该作者
可以批量删除指定行的怎么弄？
需要运行后出现窗口，然后自己键盘输入指定行数字，回车后运行

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
5楼
发表于 2014-3-6 21:47 | 只看该作者
回复 4# xp3000


    2楼代码你试过没有？
不想用sed的话，试试纯批：
  1. @echo off

  2. set /p Input=输入指定行：

  3. for /f "delims=" %%a in ('dir /a-d /b *.txt') do (

  4.     set "n="

  5.     (for /f "usebackq delims=" %%b in ("%%a") do (

  6.         set /a "n+=1,1/(n-Input)" 2>nul && echo,%%b

  7.     ))>$

  8.     move $ "%%a"

  9. )

  10. pause
复制代码

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
6楼
发表于 2014-3-7 07:47 | 只看该作者
回复 5# apang


    2楼那个没成功，这个可以

TOP

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
7楼
发表于 2014-3-7 08:42 | 只看该作者
回复 6# xp3000


你没有sed.exe的话，可以在这里下载：
http://code.google.com/p/gnu-on-windows/downloads/list

TOP

xp3000

Rank: 5Rank: 5

帖子
441 
积分
618 
技术
37  
捐助
0  
注册时间
2013-4-25 
8楼
发表于 2014-3-7 16:13 | 只看该作者
回复 7# DAIC


    谢谢，现在知道了

TOP

369888155

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2016-9-23 
9楼
发表于 2017-7-24 10:48 | 只看该作者

求助

本帖最后由 pcl_test 于 2017-7-24 11:35 编辑

回复 3# apang

怎么添加指定文件路径 比如 D:\AXX\11.txt

TOP

PS2.0

Rank: 1

帖子
61 
积分
90 
技术
1  
捐助
0  
注册时间
2017-7-13 
10楼
发表于 2017-7-24 11:09 | 只看该作者
把 *.txt 改成 D:\AXX\11.txt 可以吗？
另外这个代码是要实现什么功能？
环境所限，需要使用 PowerShell 2.0 版本。

TOP

返回列表