[文本处理] [已解决]批处理如何删除行首为五位数的行？

KLL

文本中数十行,固定列,希望将每行首五位数的该行删除

原文
3680,家登,31.00,31.00,30.50,30.50,77,0
36801,家登一,98.70,98.70,98.70,98.70,0,0
2636,台骅,30.80,31.00,30.50,30.50,535,0
54758,德宏八,101.00,101.00,101.00,101.00,0,0
54759,德宏九,104.00,104.00,104.00,104.00,0,0
5478,智冠,65.00,65.60,63.20,64.10,1911,0
5480,统盟,12.45,12.45,12.30,12.35,50,0
53885,中磊五,189.00,189.00,189.00,189.00,0,0
5392,应华,54.90,54.90,54.10,54.30,613,0
45322,瑞智二,98.60,98.60,98.60,98.60,2,0

处理后
3680,家登,31.00,31.00,30.50,30.50,77,0
2636,台骅,30.80,31.00,30.50,30.50,535,0
5478,智冠,65.00,65.60,63.20,64.10,1911,0
5480,统盟,12.45,12.45,12.30,12.35,50,0
5392,应华,54.90,54.90,54.10,54.30,613,0

感谢

B魔方大人

@echo off&setlocal enabledelayedexpansion
for /f "delims=*" %%a in (原文.txt) do (
set s=%%a
set s=!s:~5!
echo !s!>>处理后.txt
)
pause
复制代码

KLL

您好 感谢回应  
此源码 并没删除该行
希望把5位数红色该行删除
谢谢

依山居

太简单了都懒得写。楼主帐号五年了都学不会一个findstr的用法吗。

KLL

该多学习的

盼指导一下,谢谢您

依山居

@echo off
findstr /v "^[0-9][0-9][0-9][0-9][0-9]," a.txt>b.txt
pause
复制代码

依山居

@echo off
::依山居 5:51 2015/11/8

::fr将每行首五位数的该行删除 
::http://www.bathome.net/thread-38036-1-1.html

::fr是一个完整支持正则表达式查找替换的命令行工具，
::作者网站：http://baiy.cn/utils/fr/index.htm

::去掉-stdout参数则直接修改原文件


fr -r:"^\d{5},.*\r?\n?" -t -stdout -trc a.txt

pause
复制代码

KLL

您好
@echo off
findstr /v "^[0-9][0-9][0-9][0-9][0-9]," a.txt>b.txt
pause

一测试就是我的需求, 多谢源码指导

依山居

回复 8# KLL


    也感谢你的反馈。

KLL

谢  依山居  【已解决，谢谢】RE: 如何将每行首五位数的该行删除

DAIC

grep -vP "\d{5}," 1.txt > 2.txt
复制代码

pcl_test

sed -i "/^[0-9]\{5\},/d" a.txt
复制代码