求助：用批处理写一个批量去除文本文件标题之前的空格和空行。

gpfgpf · 发表于 2024-5-28 20:31:49

以前下载的txt文本文件，准备整理一下，单个文本文件的标题前面有空格和空行，如何一次批量全部去除这些空格和空行，标题后面的空格和空行不用处理，空格有可能是半角和全角空格，谢谢大神帮忙看看能不能实现这个功能。

czjt1234 · 发表于 2024-5-28 20:37:54

文件编码能确定吗
如果要考虑不同的编码就有点啰嗦了

gpfgpf · 发表于 2024-5-28 20:51:55

文件编码能确定ANSI，不用考虑不同的编码。

Five66 · 发表于 2024-5-29 01:32:40

什么是标题
怎么才算是标题

czjt1234 · 发表于 2024-5-29 05:24:06

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b
folder = "." '指定一个文件夹
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
folder = oFSO.GetAbsolutePathName(folder)
oWshShell.CurrentDirectory = folder
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 2
oStream.Mode = 3
oStream.Charset = "GBK"
Set oRegExp = New RegExp
oRegExp.Global = False
oRegExp.Pattern = "^[\s　]*?([^\s　])"
For Each oFile In oFSO.GetFolder(folder).Files
If LCase(Right(oFile.Path, 4)) = ".txt" Then
wsh.Echo oFile.Path
oStream.Open()
oStream.LoadFromFile oFile.Path
s = oStream.ReadText()
s = oRegExp.Replace(s, "$1")
oStream.Close()
oStream.Open()
oStream.WriteText s
oStream.SaveToFile oFile.Path, 2
oStream.Close()
End If
Next
MsgBox "ok"

复制代码

Batcher · 发表于 2024-5-29 08:28:33

回复 1# gpfgpf

请选几个文件作为例子，打包压缩，上传到网盘，我试试。

newswan · 发表于 2024-5-29 08:50:47

试试

sed '/\w/,$!d' filename > newfilename

复制代码

holley · 发表于 2024-5-29 08:51:17

至少要给个标题和文本的示例，你这标题的概念太范了

gpfgpf · 发表于 2024-5-29 20:00:29

文本例子：

链接: https://pan.baidu.com/s/1Uf4QIV5T1WICLpyWyyp7mg?pwd=9309 提取码: 9309 复制这段内容后打开百度网盘手机App，操作更方便哦

77七 · 发表于 2024-5-29 20:57:00

本帖最后由 77七于 2024-5-29 20:58 编辑

回复 9# gpfgpf

@echo off
cd /d "%~dp0"
for %%i in (*.txt) do (
setlocal
(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
for /f "tokens=*" %%x in ("%%b`") do (
if "%%x" neq "`" (
if defined m (
echo=%%b
) else (
for /f "tokens=*" %%y in ("%%b") do (
echo=%%y
)
set m=1
)
) else if defined m (
echo=
)
)
))>$
move $ "%%i"
endlocal
)
pause

复制代码

buyiyang · 发表于 2024-5-29 21:59:48

@echo off
for /f "delims=" %%i in ('dir /a-d /b *.txt') do call :trimBlank "%%i"
pause&exit
:trimBlank
for /f "usebackq tokens=*" %%i in (%1) do (
set "title=%%i"
goto :next
)
:next
set /a n=0
echo,正在处理文件：%~1
(echo,%title%
for /f "delims=[]" %%i in ('find /n "%title%" ^< %1') do @set /a n+=1,1/^(n-1^)2>nul||more +%%i %1
)>"标题去空行空格_%~1"

复制代码

aloha20200628 · 发表于 2024-5-30 01:08:59

本帖最后由 aloha20200628 于 2024-5-30 23:00 编辑

回复 9# gpfgpf

以下代码存为test.bat运行，逐个处理当前目录(包括子目录)中的*.txt源文件，生成与其对应的*.new.txt结果文件
已用9楼提供的两个示例文件（"美酒歌后.txt"，"叶瑷菱.txt"）测试通过...

@set @v=1 /*
@echo off & for /f "delims=" %%F in (' dir /b/s/a-d "*.txt" ') do (
type "%%F"|cscript /b /e:jscript "%~f0">"%%~dpnF.new%%~xF"
)
exit/b */
line=WSH.stdin.readall();
line=line.replace(/(\r\n){3,}/,'').replace(/[ \t　]{2,}/g,'').replace(/\s+$/,'');
WSH.stdout.write(line); WSH.quit();

复制代码

gpfgpf · 发表于 2024-5-30 22:00:50

感谢几位大神的帮助，其中czjt1234和77七两位大神的程序最为完美，aloha20200628大咖的程序会提示有版权，buyiyang大咖的程序新建的文本是空文本，需要改进。

buyiyang · 发表于 2024-5-30 22:20:09

回复 13# gpfgpf

我的代码拿你的样本测试了没有问题，12楼的代码可以在 cscript 后加个 -nologo 参数隐藏WSH版本标识。

aloha20200628 · 发表于 2024-5-30 22:59:51

回复 13# gpfgpf

好吧...订正了12楼代码》关闭了cscript进程报告

		自动登录	找回密码
密码			注册

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

[文本处理] 求助：用批处理写一个批量去除文本文件标题之前的空格和空行。

RE: [已解决]求助：用批处理写一个批量去除文本文件标题之前的空格和空行。