[文本处理] [已解决]批处理如何替换重复的字符

@echo off
(for /f "delims=" %%a in (a.txt) do (
   set str=%%a
   setlocal enabledelayedexpansion
   for %%b in (",,,,,,,," ",,,," ",," ",,") do set "str=!str:%%~b=,!"
   echo !str!
   endlocal
))>b.txt
复制代码

sed "s/,\+/,/g" a.txt > b.txt
复制代码

@ECHO OFF
(mshta "javascript:with(new ActiveXObject('Scripting.FileSystemObject')){GetStandardStream(1).Write(GetStandardStream(0).readall().replace(/(\,)+/g,'$1'));close()}"|more)<a.txt>b2.txt
pause
复制代码

@echo off
echo 【提示】代码用“畱”作为段落标识符，如果文中有该字，应改为文中没有的符号！
for /f %%w in (test.txt) do call set all=%%all%%畱%%w
:continue
for /f "delims=畱 tokens=1,*" %%p in ("%all%") do (
	set line=%%p
	set all=%%q
)
if "%line%"=="" (call :over) else (call :lineDispose)

:lineDispose
:continueDispose
for /f "delims=, tokens=1,*" %%i in ("%line%") do (
	call set newLine=%%newLine%%,%%i
	set line=%%j
)
if "%line%"=="" (echo %newLine:~1%&set newLine=&goto continue) else (goto continueDispose)
pause>nul 

:over
echo 工作已经完成，按任意键退出。&pause>nul&exit
复制代码

for %%b in (",,,,,,,," ",,,," ",," ",,") do set "str=!str:%%~b=,!"
复制代码