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

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2010-5-21 15:27 | 只看该作者

[文本处理] [已解决]批处理怎样批量删除TXT文件最后的一个断落？

有一批TXT格式的文章，但多数最后一段都存在垃圾内容，不知用批处理能否实现下面的功能：

1、遍历当前文件夹下所有TXT文件，首先判断每个TXT最后一行是否存在回车或空格，如果存在的话先将回车或空格删除。

2、将每个TXT文件最后一个断落删除，并直接在原来的位置上替换该文件。

上面的功能怎样写批处理呢？谢谢了

[ 本帖最后由 zxzl 于 2010-5-22 11:54 编辑 ]
1

评分人数

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

hanyeguxing

Rank: 8Rank: 8

帖子
1739 
积分
4955 
技术
255  
捐助
0  
注册时间
2009-6-11 
2楼
发表于 2010-5-21 16:37 | 只看该作者
段落的标志什么？
1，当行首为“　　”时为一个新的段落？
2，一行即为一段？
3，空行分隔？
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
3楼
发表于 2010-5-21 16:59 | 只看该作者
原帖由 hanyeguxing 于 2010-5-21 16:37 发表
段落的标志什么？
1，当行首为“　　”时为一个新的段落？
2，一行即为一段？
3，空行分隔？


就是把每个每篇文章最后一个自然段删除，应该也可以说是把最后一行给删除吧？比如下面这个TXT文件：

Drs Secret A Trusted Range To Repair And Renew Your Skin

If you are bothered by any of the common skin problems like acne, fine lines, wrinkles, or pigmentation, Drs Secret skin care range is a safe and effective way of banishing your woes. This revolutionary skin care program is rich in natural vitamins and minerals that will help to repair, rejuvenate and renew your skin from within its deepest layers.

Skin ageing is a result of the daily dose you receive of sun, pollutants, free radicals and other such factors that damage it. As you grow older, your metabolism slows down. The collagen in the skin takes longer to be replaced. Hormonal and other changes taking place within your body also affect your skin. All this shows up as fine lines, pigmentation, blemishes, open pores and other skin problems. Your complexion may look dull and unhealthy due to decreased cell renewal, dead cell build up, exposure and oxidation.

There is a bewildering array of creams that claim to work in the market. But Drs secret has shown proven results for thousands of women to help to repair and renew their skin. You will be delighted to find a cream that finally does what it claims to do!

Laura Lin is a skincare consultant for DR's Secret and care to share her experience to bring forth beautiful life and hope for those who aspires. Want to have beautiful skin, flawless complexion? Visit Laura's DR's Secret Review Site for the best skincare product you need to make you look beautiful and young. DR's Secret - Simply The Best. Seeing is Believing. Click Here


这里我是想把下面这部分内容删除，不过我不知道说最后一行和最后一段有没有区别：）
Laura Lin is a skincare consultant for DR's Secret and care to share her experience to bring forth beautiful life and hope for those who aspires. Want to have beautiful skin, flawless complexion? Visit Laura's DR's Secret Review Site for the best skincare product you need to make you look beautiful and young. DR's Secret - Simply The Best. Seeing is Believing. Click Here


批处理该怎么写呢？

[ 本帖最后由 zxzl 于 2010-5-21 17:00 编辑 ]

TOP

hanyeguxing

Rank: 8Rank: 8

帖子
1739 
积分
4955 
技术
255  
捐助
0  
注册时间
2009-6-11 
4楼
发表于 2010-5-21 20:14 | 只看该作者
说明：只对当前目录内的txt处理，不包括系统或隐藏属性文件，保留空行
1，如果行首没有:这个符号，则可以：
  1. @echo off&setlocal enabledelayedexpansion

  2. for %%a in (*.txt) do (

  3. for /f "delims=" %%b in ('find /c /v "" ^<"%%a"') do set b=%%b

  4. (for /f "tokens=1* delims=:" %%b in ('findstr /n .* "%%a"') do if %%b lss !b! echo.%%c)>$

  5. move $ "%%a")
复制代码
2，如果行首没有[]这些符号，则可以：
  1. @echo off&setlocal enabledelayedexpansion

  2. for %%a in (*.txt) do (

  3. for /f "delims=" %%b in ('find /c /v "" ^<"%%a"') do set b=%%b

  4. (for /f "skip=2 tokens=1* delims=[]" %%b in ('find /n /v "" "%%a"') do if %%b lss !b! echo.%%c)>$

  5. move $ "%%a")
复制代码

[ 本帖最后由 hanyeguxing 于 2010-5-21 20:23 编辑 ]
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
5楼
发表于 2010-5-21 20:27 | 只看该作者
感谢回复，不过试了一下，上面的代码都会把所有文件内容删除，并且弹出CMD窗口，关掉CMD窗口后会生成一个名为$的空文件，麻烦再看一下是怎么回事呢

TOP

hanyeguxing

Rank: 8Rank: 8

帖子
1739 
积分
4955 
技术
255  
捐助
0  
注册时间
2009-6-11 
6楼
发表于 2010-5-21 20:37 | 只看该作者
原帖由 zxzl 于 2010-5-21 20:27 发表
感谢回复，不过试了一下，上面的代码都会把所有文件内容删除，并且弹出CMD窗口，关掉CMD窗口后会生成一个名为$的空文件，麻烦再看一下是怎么回事呢

你的文本编码是什么？ANSI吗？
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
7楼
发表于 2010-5-21 20:59 | 只看该作者
是的，都是ANSI编码

又试了一下，还是那样，所有TXT文件内容被全部删除，而且运行速度极慢，不应该这样吧？

[ 本帖最后由 zxzl 于 2010-5-21 21:48 编辑 ]

TOP

sgaizxt001

Rank: 7Rank: 7Rank: 7

帖子
563 
积分
4043 
技术
3  
捐助
0  
注册时间
2009-11-25 
8楼
发表于 2010-5-21 23:53 | 只看该作者
不知道可以不，我就测试了两个文本。测试结果正确
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. for %%m in (*.txt) do (

  4.   set /a m+=1

  5.   for /f "delims=" %%a in ('find /c /v "" %%m') do set n=%%a 

  6.   for /f "tokens=1,* delims=:" %%i in ('findstr /n .* %%m') do (

  7.      set n=!n:~-2,1!

  8.      if %%i lss !n! echo.%%j>>tmp_!m!.txt

  9.   )

  10.  del %%m

  11.  ren tmp_!m!.txt %%m

  12. )

  13. endlocal

  14. pause
复制代码
努力学习，努力挣分

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
9楼
发表于 2010-5-22 08:42 | 只看该作者
楼上的兄弟代码有问题，运行后提示找不到文件，且会把当前目录下所有TXT文件删除，麻烦再看一下

TOP

del

Rank: 2

帖子
33 
积分
161 
技术
0  
捐助
0  
注册时间
2010-5-22 
10楼
发表于 2010-5-22 10:31 | 只看该作者 
  1. @echo off

  2. dir /b *.txt | find /v /c "" > .tmp

  3. set /p Total=< .tmp

  4. 

  5. find /v /c "" *.txt > .tmp

  6. 

  7. for /f "delims=: tokens=1,2" %%a in (.tmp) do call :1 "%%a" %%b

  8. del .tmp

  9. exit /b

  10. 

  11. :1

  12. set /a Last2 = %2 - 1, Count += 1

  13. set "File=%~1"

  14. findstr /n .* "%File:~11%" > .tmp

  15. (

  16.     for /f "delims=" %%a in (.tmp) do (

  17.         set Var=%%a

  18.         set /a Line = Var

  19.         SetLocal EnableDelayedExpansion

  20.         if !Line! lss %Last2% (

  21.             echo,!Var:*:=!

  22.         ) else (

  23.             if !Line! equ %Last2% if "!Var:*:=!" neq "" echo,!Var:*:=!

  24.         )

  25.         EndLocal

  26.     )

  27. ) > "%File:~11%"

  28. cls

  29. echo 已处理 %Count% 个文件（共 %Total% 个）
复制代码
1

评分人数

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
11楼
发表于 2010-5-22 11:13 | 只看该作者
感谢del，这个代码运行速度很快，可以完美实现功能：）

如果换种方式，要将当前目录下所有TXT文件中包含“http://”这个字符串的断落删除，这段代码应该怎样修改一下呢？

[ 本帖最后由 zxzl 于 2010-5-22 11:20 编辑 ]

TOP

del

Rank: 2

帖子
33 
积分
161 
技术
0  
捐助
0  
注册时间
2010-5-22 
12楼
发表于 2010-5-22 11:32 | 只看该作者 
  1. @echo off

  2. for /f "delims=" %%a in ('findstr /m "http://" *.txt') do (

  3.     findstr /v "http://" "%%a" > .tmp

  4.     move .tmp "%%a"

  5. )
复制代码
如果不区分"http://"的大小写，把 /m 和 /v 分别改成 /mi 和 /vi

[ 本帖最后由 del 于 2010-5-22 11:35 编辑 ]

TOP

zxzl

Rank: 2

帖子
43 
积分
152 
技术
0  
捐助
0  
注册时间
2010-5-20 
13楼
发表于 2010-5-22 11:33 | 只看该作者
非常感谢del，很强大：）

TOP

返回列表