[求助]批处理排列很规则的文本，按条件去除部分内容

灯塔彭于晏 · 发表于 2021-2-3 09:54:51

祝您新年快乐，牛年大吉。想请您帮忙解决2个小需求。

现有文本tt.txt，内容如下：（排列很规则，每一组文字中间空2行。但每组文字的行数不一，3 4 5个都有！）

复制代码

最终需求是： 每组文字中，不管有几行，都只保留一行。
保留的这一行，不能是存在特殊符号的那一行。比如tt.txt中，有的文字组中，存在符号 · 和 / 。存在符号的话，就不能保留这一行的文字。英文逗号除外，毕竟是结尾的分隔符号，要保留。

效果：

复制代码

qixiaobin0715 · 发表于 2021-2-3 10:10:36

回复 1# 灯塔彭于晏
你认为何为特殊符号，要列出来。

灯塔彭于晏 · 发表于 2021-2-3 10:17:53

回复 2# qixiaobin0715

目测来看，是除了英文逗号以外都是特殊符号了。

flashercs · 发表于 2021-2-3 12:02:29

本帖最后由 flashercs 于 2021-2-3 12:32 编辑

保存为保留指定行.bat

<#*,:&cls
@echo off
pushd "%~dp0"
powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath "%~0" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
$srcfile = "tt.txt"
$dstfile = "ttNEW.txt"
$stack = 0
Get-Content -Path $srcfile -OutBuffer 100 | ForEach-Object {
$line = $_
switch ($stack) {
0 {
if ($line -ne '') {
if ($line -match '^[\w, ]+$' -and $line -notmatch '_') {
$stack = 2
$line.Replace(',', '')
} else {
$stack = 1
}
} else {
$line
}
}
1 {
if ($line -eq '') {
$stack = 0
$line
} elseif ($line -match '^[\w, ]+$' -and $line -notmatch '_') {
$stack = 2
$line.Replace(',', '')
}
}
2 {
if ($line -eq '') {
$stack = 0
$line
}
}
}
} | Set-Content -Path $dstfile

复制代码

WHY · 发表于 2021-2-3 12:11:54

本帖最后由 WHY 于 2021-2-3 16:32 编辑

PowerShell "$a=@(gc tt.txt) -notMatch '[\p{P}-[,]]' | forEach{if($_ -ne '' -and [string]::isNullOrEmpty($s)){$_}; $s=$_}; sc bb.txt ($a -replace ',' -join "`r`n`r`n`r`n")"

复制代码

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

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

[文本处理] [求助]批处理排列很规则的文本，按条件去除部分内容