爱盲论坛

标题: 给喜欢玩批处理的朋友 [打印本页]

作者: 明天的海 时间: 2019-11-16 16:20
标题: 给喜欢玩批处理的朋友
这是一个文本去空行的工具，当然是绿色版。只需要打开记事本，把下面的代码粘贴上去将扩展名改成.cmd即可，今天在硬盘上无意中找回来的，已经好久没接触这些东西了，本来想删除，后来想想还是发上来看看是否有人需要，这个工具还不完美，甚至可能会丢失一些字符，但本人现在没办法解决，若有懂的人你们可以自己修改代码
@ echo off
setlocal enabledelayedexpansion
title 文本批量去空行
@ echo 欢迎使用本工具
@ echo 请把要处理的文本放置当前目录
@ echo %CD%
@ echo 处理后的文本在 %CD%\明天的海文件夹中
@ echo q 退出
@ echo 回车键确定
set /p q=文本批量去空行，请按回车键开始。
if /i "%q%"=="q" exit
for /f %%E in ('dir /b "*.txt"') do set TextExist=%%E
if "%TextExist%"=="" goto TNE
if not exist "%CD%\明天的海\Temp\" MD "%CD%\明天的海\Temp"
if exist "%CD%\明天的海\*.txt" (title 待处理文本的文件夹中已有文件&cls) else (goto PText)
echo 待处理文本的文件夹中已有如下文件
for /f %%R in ('dir /b "明天的海\*.txt"') do echo %%R
@ echo 回车键退出
@ echo Y 继续
set /p Etxt=待处理文本的文件夹中已有文件，如果继续，可能会递增原文件。是否继续：
if "%Etxt%"=="" exit
if /i "%Etxt%"=="y" goto PText
exit

Text
cls
title 正在处理
echo 请稍后
for /f %%t in ('dir /b "*.txt"') do (for /f "tokens=*" %%b in ('type "%%t"') do (set Text=%%b&for /f "tokens=*" %%r in ("!Text!") do echo %%r>>"明天的海\Temp\%%t"))
for /f "tokens=*" %%f in ('dir /b "明天的海\Temp\*.txt"') do (for /f "tokens=*" %%s in ('findstr /v "ECHO 处于关闭状态。" "明天的海\Temp\%%f"') do echo %%s>>"明天的海\%%f")
rd /s /q "明天的海\TEmp\"
cls
title 处理完成
@ echo 处理后的文件位于 %CD%\明天的海文件夹中
@ echo 建议您转移好处理过的文件
pause
start 明天的海\
exit
:TNE
cls
title 错误
@ echo 当前目录 %CD%
@ echo 找不到TXT格式的文本文件
@ echo 请重试
pause
exit

作者: 风中漫步 时间: 2020-2-4 16:13

本帖来自安卓秘书

欢迎光临爱盲论坛 (http://amhl.vip/)