[文本处理] 求助批处理如何整理下面类型的文本？

misaiya2008

下面的文本如何整理成正常的文章格式？主要的问题是行尾没有标点的被换行了，如何将行尾没有标点的句子与下一行合并。

所以糊里糊涂就升职了， 认为没必要研究这个问题。
现实情况是， 在一无背景（你爸不是李刚！）； 二无资源
（ 你不是清华北大， 也没百万家产）； 三无特异功能的前提
下， 还是有很多人， 从服务员、 保安员、 修理工、 农民， 混
成了企业高管甚至老板， 那么， 这些“三无人员” 有什么秘
技呢？
这正是本文准备揭示的秘密。
在正式开始本文之前， 首先说明一个衡量的经济学标准，
那就是：
1、 在成本相同的前提下， 以收获最大为最优。
2、 在收获相同的前提下， 以成本最小为最优。
我曾经遇到过一个广州的移动公司高管， 他对我说， 他
做事情， 最低起始资金至少是一千万， 我听了之后暗暗发笑，
为什么发笑呢？
因为， 企业的经营管理人员， 在企业的实际操作中， 所
以的关键作用之一， 就是“资源放大器” 的作用， 讲究的是
“以小搏大、 平地扣饼、 无中生有、 四两拨千斤”， 以有限
的资源， 创
造出远远超越同行的业绩， 这才是身为经济管理人员的
你我， 所应该具备的价值所在。
随后不久， 我就用实际行动， 证实了我对这位广州移动
高管的嘲笑是多么合理。


链接：https://pan.baidu.com/s/1veF9TwKxzBJLuuNMLqNgjA
提取码：obnh

Batcher

回复 1# misaiya2008


    请把原始文件上传到网盘，以便测试代码。

aloha20200628

以下代码存为批处理脚本文件(*.cmd/*.bat)
代码第2行定义了行尾中文标点符号链表

@echo off &setlocal enabledelayedexpansion
set "link=" &set "listp=。？；！："
(for /f "delims=" %%a in (1.txt) do (
	set "line=%%a" &set "lastc=!line:~-1!"
	for %%c in (!lastc!) do if "!listp!" neq "!listp:%%c=!" (
		if defined link ((echo,!link!%%a) &set "link=") else (echo,%%a)) else (set "link=!link!%%a")
))>2.txt
if defined link (echo,!link!)>>2.txt
endlocal&exit/b
复制代码

用一楼样本测试的结果如下：
所以糊里糊涂就升职了，认为没必要研究这个问题。
现实情况是，在一无背景（你爸不是李刚！）；二无资源（你不是清华北大，也没百万家产）；三无特异功能的前提下，还是有很多人，从服务员、保安员、修理工、农民，混成了企业高管甚至老板，那么，这些“三无人员”有什么秘技呢？
这正是本文准备揭示的秘密。
在正式开始本文之前，首先说明一个衡量的经济学标准，那就是：
1、在成本相同的前提下，以收获最大为最优。
2、在收获相同的前提下，以成本最小为最优。
我曾经遇到过一个广州的移动公司高管，他对我说，他做事情，最低起始资金至少是一千万，我听了之后暗暗发笑，为什么发笑呢？
因为，企业的经营管理人员，在企业的实际操作中，所以的关键作用之一，就是“资源放大器”的作用，讲究的是“以小搏大、平地扣饼、无中生有、四两拨千斤”，以有限的资源，创造出远远超越同行的业绩，这才是身为经济管理人员的你我，所应该具备的价值所在。
随后不久，我就用实际行动，证实了我对这位广州移动高管的嘲笑是多么合理。

qixiaobin0715

@echo off
for %%i in (。 ？ ； ！ ：) do set %%i=true
setlocal enabledelayedexpansion
(for /f "delims=" %%i in (1.txt) do (
    set "Orilines=%%i"
    set "Orilines=!Orilines:~-1!"
    if defined !Orilines! (
        echo,!MarLines!%%i
        set MarLines=
    ) else (
        set MarLines=!MarLines!%%i
    )
))>2.txt
复制代码

WHY

PowerShell "$s = (gc 1.txt -ReadCount 0) -join \"`r`n\" -replace '(?<=\P{P})\r\n'; sc 2.txt -Value $s"
复制代码

小白龙

$aa = @'
所以糊里糊涂就升职了， 认为没必要研究这个问题。
现实情况是， 在一无背景（你爸不是李刚！）； 二无资源
（ 你不是清华北大， 也没百万家产）； 三无特异功能的前提
下， 还是有很多人， 从服务员、 保安员、 修理工、 农民， 混
成了企业高管甚至老板， 那么， 这些"三无人员" 有什么秘
技呢？
这正是本文准备揭示的秘密。
在正式开始本文之前， 首先说明一个衡量的经济学标准，
那就是：
1、 在成本相同的前提下， 以收获最大为最优。
2、 在收获相同的前提下， 以成本最小为最优。
我曾经遇到过一个广州的移动公司高管， 他对我说， 他
做事情， 最低起始资金至少是一千万， 我听了之后暗暗发笑，
为什么发笑呢？
因为， 企业的经营管理人员， 在企业的实际操作中， 所
以的关键作用之一， 就是"资源放大器" 的作用， 讲究的是
"以小搏大、 平地扣饼、 无中生有、 四两拨千斤"， 以有限
的资源， 创
造出远远超越同行的业绩， 这才是身为经济管理人员的
你我， 所应该具备的价值所在。
随后不久， 我就用实际行动， 证实了我对这位广州移动
高管的嘲笑是多么合理。
'@

sl $HOME\Desktop
sc aa.txt -va $aa -en UTF8

$content = gc "aa.txt"
$fixedContent = ""
$previousLine = ""

foreach ($line in $content)
{
	if ($line -match "\p{P}$")
	{
		$fixedContent += $previousLine + $line + "`r`n"
		$previousLine = ""
	}
	else
	{
		$previousLine = $previousLine + $line.Trim()
	}
}

if ($previousLine.Length -gt 0)
{
	$fixedContent += $previousLine.Trim() + "`r`n"
}

$fixedContent | sc "aaa.txt" -enc UTF8
ii aaa.txt
复制代码

misaiya2008

回复 3# aloha20200628


    多谢回复  我去测试一下

misaiya2008

回复 4# qixiaobin0715


    万分感谢

misaiya2008

回复 6# 小白龙


    谢谢

wanghan519

sed -n -E 'H;/[。？：]$/{s/.*//;x;s/\n//g;p}' 1.txt
复制代码

大概意思是，hold住每行，如果以句号问好冒号结尾，就拽回来去掉回车后打印。。。