[文本处理] [已解决]批处理如何批量添加标点符号？

sed "/^.\{,10\}[第]*[^，。]\{1,20\}[章节]\{,40\}$/!s/[^…！？—”]$/&。/g" test.txt>ok.txt
复制代码

　　第一章 反复
 反反复复反反复复反反复复反反复复反反复复。
 反反复复反反复复？
 反反复复反反复复反反复复！
 反反复复反反复复反反复复反反复复反反复复……
 反反复复反反复复——
 反反复复反反复复反反复复反反复复”
 反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复
 反反复复反反复复反反复复
 反反复复反反复复反反复复反反复复
 反反复复反反复复反反复复
复制代码

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("1.txt",1)
Do Until File.AtEndOfStream
   strLine = File.ReadLine
   Set Re = New RegExp
   Re.Pattern = "[。…！？—”]$|第.*章"
   Re.Global = True
   If Not Re.Test(strLine) Then strLine = strLine & "。"
   strOut = strOut & strLine & vbCrLf
Loop
FSO.CreateTextFile("2.txt",True).Write strOut
Msgbox "OK"
复制代码

    setlocal EnableDelayedExpansion
    FOR /F "delims=" %%t IN (test.txt) DO (
    set a=%%t
    set b=!a:~-1!
    call :AAA
    )
    start "" ok.txt
    exit

    :AAA
    if not "%b%"=="”" (if not "%b%"=="。" (if not "%b%"=="！" (if not "%b%"=="？" (if not "%b%"=="…" (if not "%b%"=="

—" (if not "%b%"==")" echo %a%。>>ok.txt & goto :EOF))))))
    echo %a%>>ok.txt
    goto :EOF
复制代码

    　　第一章 反复。 
    反反复复反反复复反反复复反反复复反反复复。
    反反复复反反复复？
    反反复复反反复复反反复复！
    反反复复反反复复反反复复反反复复反反复复……
    反反复复反反复复——
    反反复复反反复复反反复复反反复复”
    反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复。 
    反反复复反反复复反反复复。 
    反反复复反反复复反反复复反反复复。 
    反反复复反反复复反反复复。 
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
  set "flag=。"
  set "str=%%a"&set "str=!str: =!"&set "str=!str:　=!"
  if "!str:~,1!" equ "第" if "!str:章=!" neq "!str!" set "flag="
  for %%b in (。 ” ？ ！ …… ——) do (
    if "!str:~-1!" equ "%%b" set "flag="
    if "!str:~-2!" equ "%%b" set "flag="
  )
  echo,%%a!flag!
))>$
move $ a.txt
start a.txt
复制代码