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

[文本处理] 【已解决】BAT:如何删除大于等于8位数的文本行

本帖最后由 思想之翼 于 2015-2-23 16:50 编辑

D:/数据/内有若干txt文本,每个文本内数据格式为:
126459
1264589
126459
126458
12645370
126458
...
欲批量删除各文本内大于等于8位数的文本行(处理后的数据覆盖原数据),如何用批处理解决?

  1. @echo off&setlocal enabledelayedexpansion
  2. for %%i in (d:\数据\*.txt) do (
  3.     (for /f "usebackq delims=" %%a in ("%%i") do (
  4.         set "str=%%a"&call :split
  5.         if !n! geq 8 echo,%%a
  6.         set/a n=0
  7.     )) >%temp%\$
  8.     move /y "%temp%\$" "%%i" >nul
  9. )
  10. pause
  11. :split
  12. if not "!str!"=="" (
  13.     set "str=!str:~1!"&set/a n+=1&goto split
  14. ) else (
  15.     goto :eof
  16. )
复制代码
1

评分人数

踏实一些点.不要着急.你想要的时间都会给你.2

TOP

回复 1# 思想之翼
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "D:\数据\"
  4. for /f "delims=" %%a in ('dir /b *.txt') do (
  5. for /f "delims=" %%b in ('type "%%a"') do (
  6. set "str=%%b"
  7. if "!str:~7,1!" == "" >>$ echo,!str!
  8. )
  9. move $ "%%a"
  10. )
  11. pause
复制代码
2

评分人数

TOP

这样比较省事
  1. @findstr /v "[1-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" a.txt >b.txt
复制代码
1

评分人数

TOP

  1. @echo off&color f0&setlocal enabledelayedexpansion
  2. cd /d d:\数据\
  3. for /f "delims=" %%a in ('dir /b *.txt') do (
  4. (for /f "delims=" %%i in (%%a) do (
  5. set n=%%i
  6. for /l %%j in (0,1,20) do (
  7. if "!n:~%%j,1!" neq "" set /a m+=1
  8. )
  9. if !m! lss 8 echo %%i
  10. set m=0
  11. )
  12. )>$
  13. del /q /f %%a
  14. ren $ %%a
  15. )
复制代码
回复 1# 思想之翼
1

评分人数

TOP

返回列表