[文本处理] 用BAT能不能处理这样格式的文本内容？

@echo off
set "file=1.txt"

set a=(
set b=)
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%file%"') do (
	set str=%%b
	setlocal enabledelayedexpansion
	if "!str!" equ "" (
		echo=
	) else if "!str:~0,3!" equ "---" (
		echo {!str!}
	) else (
		echo !str!|findstr "^[0-9]" 1>nul && (
			for /f "tokens=1* delims=.-" %%c in ("!str!") do (
				echo %%d:GTIOU!a!%%c,0,0!b!;
			)
		) || echo !str!
	)
	endlocal
))>2.txt
pause
复制代码

@echo off
for /f "delims=" %%i in (a.txt) do echo %%i|findstr /i "情况"&&echo {%%i}>>b.txt || for /f "tokens=1,2 delims=.-" %%k in ('echo %%i') do echo %%l:GTIOU^(%%k,0,0^);>>b.txt
复制代码

powershell -c "gc .\A.txt|%{if($_[0] -eq '-'){'{'+$_+'}'}else{$_.substring($_.LastIndexOf('-')+1)+':GTIOU('+$_[0]+',0,0);'}}>B.txt"
复制代码

@set @theCopyLeft=0;/* 0& echo off

set "inflie=aaa.txt"
set "outfile=bbb.txt"
set "add=:GTIOU(数字,0,0);"

type  "%inflie%" | cscript //nologo //e:jscript "%~f0" "%add%" >"%outfile%"
echo done&pause&exit/b
rem */

var a,b=WScript.Arguments.Length?WScript.Arguments(0):":GTIOU(数字,0,0);";
while (!WScript.StdIn.AtEndOfStream) {
f = WScript.StdIn.ReadLine();
if(!f){WScript.Echo(f);continue;}
a=f.replace(/^(\d)+[.-]+/,'');
if(f.substr(0,4)=="----")WScript.Echo('{'+f+'}');
else if(RegExp.$1 && RegExp.$1 !='nil' && a)WScript.Echo(a+b.replace("数字",RegExp.$1));
else WScript.Echo(f);
"nil".replace(/(nil)/,"");
}
复制代码

powershell -noprofile -executionpolicy bypass "gc a.txt|%%{if($_ -match '^-'){\"{$_}\"}else{$r=[regex]::Matches($_,'(\d+)\.?--(\D+)').groups;\"$($r[2]):GTIOU($($r[1]),0,0);\"}}" >b.txt
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=*" %%i in (a.txt) do (
    set "n=%%i"
    set /a "n=n"
    if !n! equ 0 (
        echo,%%i
    ) else (
        for /f "tokens=1* delims=.-" %%j in ("%%i") do (
            echo,%%k:GTIOU(%%j,0,0^);
        )
    )
))>b.txt
pause
复制代码

gawk -F"\\.?-- " "{if(/^-{8,}.+-{8,}$/){print\"{\" $0 \"}\"}else{print $2\":GTIOU (\" $1 \",0,0);\"}}" a.txt>b.txt
复制代码