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

[文本处理] 继续请教批处理删除txt文件里的多行内容

继续请教高手!我想删除txt文件里的第8、10、11、13、14、16行如何可以实现?

  1. gawk "NR!~/^(8|1[01346])$/" 1.txt > 2.txt
复制代码
1

评分人数

TOP

再精简一步...
:: 本脚本删除测试文件中若干行,其行序号被如下变量 nList 定义。注》测试文件是简中编码且单行数据不超过8K。
set "nList=8,10,11,13,14,16"
set/p inF="从资源管理器拖入一个测试文本文件:"
set "outF=%inF%.new"
setlocal EnableDelayedExpansion
set/a k=0
(for /f "usebackq delims=" %%s in (%inF%) do (
    set/a k+=1, cn=0
    for %%n in (%nList%) do (if !k! equ %%n (set cn=1))
    if !cn! equ 0 (echo,%%s)
))>%outF%
endlocal&exit

TOP

给另一个纯P版本...
@echo off
:: 本脚本删除测试文件中若干行,其行序号被如下变量 nList 定义。注》测试文件是简中编码且单行数据不超过8K。
set "nList=8,10,11,13,14,16"
set/p inF="从资源管理器拖入一个测试文本文件:"
set "outF=%inF%.new"
setlocal EnableDelayedExpansion
set/a k=0
(for /f "usebackq delims=" %%s in (%inF%) do (
    set/a k+=1, cn=0
    for %%n in (%nList%) do (set/a dn=!k!-%%n &if !dn! equ 0 (set cn=1))
    if !cn! equ 0 (echo,%%s)
))>%outF%
endlocal&exit

TOP

本帖最后由 msdmck 于 2021-11-11 17:59 编辑

大佬解得簡單直接,好厲害
迷你倉 (mini storage)又稱自助儲物空間(self storage),一般會租倉的對象有個人和中小企,而迷你倉價錢一般比儲存成本還要低,因而頗受歡迎。

TOP

谢谢斑竹。以前很少去使用,又重新学习了more命令,虽然有一些局限性,在有些场合还是很有用处的。

TOP

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 8# qixiaobin0715


    23行那个more命令的用法有这个限制
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# Batcher
这里为什么要限制“6万多行”呢?

TOP

回复 1# 开心畅享
  1. @echo off
  2. (for /f "tokens=1* delims=:" %%i in ('findstr /n ".*" 1.txt^|findstr /vr "^8: ^1[01346]:"') do echo,%%j)>2.txt
  3. pause
复制代码
1

评分人数

TOP

回复 4# Batcher


    更简单啊, 牛X

能用这个外挂解决这个难题吗?
http://www.bathome.net/thread-60529-1-1.html

TOP

回复 1# 开心畅享


假设文件不超过6万多行
  1. @echo off
  2. cd /d "%~dp0"
  3. (for /f "tokens=1* delims=:" %%i in ('type "1.txt" ^| findstr /n .*') do (
  4.     if %%i equ 17 (
  5.         echo,%%j
  6.         goto :next
  7.     ) else if %%i neq 8 (
  8.         if %%i neq 10 (
  9.             if %%i neq 11 (
  10.                 if %%i neq 13 (
  11.                     if %%i neq 14 (
  12.                         if %%i neq 16 (
  13.                             echo,%%j
  14.                         )
  15.                     )
  16.                 )
  17.             )
  18.         )
  19.     )
  20. ))>2.txt
  21. :next
  22. more +17 1.txt >>2.txt
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 1# 开心畅享


http://bcn.bathome.net/s/tool/index.html?key=sed
  1. sed "8d;10,11d;13,14d;16d" 1.txt > 2.txt
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

非常好,谢谢您!真厉害

TOP

powershell "$a=type 1.txt;$a[0..6+8+11+14+16..$a.length]|Out-File -Encoding default 2.txt"

TOP

返回列表