[文本处理] 求助批处理修改srt文件内容格式

# 2>nul&cls&powershell -noprofile -executionpolicy bypass "gc '%~0'|out-string|iex"&exit
function collect($a,$b){
    $s=[System.IO.File]::ReadAllLines($a,[System.Text.Encoding]::Default)|?{$_ -match '\w+'}
    $res=[System.Collections.Generic.stack[string]]@{}
    $fn={
        param($t,$c,$n,$x=1)
        if($n -lt $c){
            $m=$s[$n+1] -split ' --> '
            $res.Push(($m[0],$m[1],$x,$s[$n+2] -join ';'))
            $res.Pop();$fn.Invoke($t,$c,$n+3,$x+1)
        }
    }
    [System.IO.File]::WriteAllLines($b,$fn.Invoke($s,$s.length))
}
collect 1.srt 2.srt
复制代码

gawk -v"RS=" -v"OFS=;" -v"FS=\r?\n| --> " "{gsub(/,/,\".\");$1=$1;print $2,$3,$1,$4}" 1.str>2.str
复制代码

@echo off
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
    setlocal enabledelayedexpansion
    (for /f "delims=" %%j in ('type "%%i"') do (
        set /a n+=1
        set /a m=n%%3
        if !m! equ 1 (
            set "str1=%%j"
        ) else if !m! equ 2 (
            set "str2=%%j"
            set "str2=!str2: --> =;!"
            set "str2=!str2:,=.!"
        ) else (
            echo,%%j>>"New1-%%i"
            echo,!str2!;!str1!;%%j
        )
    ))>"New2-%%i"
    endlocal
)
pause
复制代码

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "useback delims=" %%a in ("%%i") do (
		if not defined m (
			set m=%%a
		) else (
			for /f "tokens=1-3" %%o in ("%%a") do (
				if "%%p" equ "-->" (
					setlocal enabledelayedexpansion
					set str=%%o;%%q;!m!
					set /p=!str:,=.!<nul
					endlocal
				) else (
					echo ;%%a
					set m=
				)
			)
		)
	))>>"%%~ni_2.txt"
	set m=
)
pause
复制代码

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
        findstr /vr /c:"^[0-9][0-9]*$" /c:"^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]," "%%i" |findstr . >"%%~ni_3.txt"
)
pause
复制代码

gawk -v"RS=" -v"FS=\r?\n" "{print $3}" 1.str>2.str
复制代码

@echo off
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
    setlocal enabledelayedexpansion
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        set /a n=str
        if "!n!"=="%%j" (
            set str1=%%j
            set m=1
        ) else if not "!str:-->=!"=="%%j" (
            set "str2=!str:-->=;!"
            set "str2=!str2: =!"
            set "str2=!str2:,=.!"
            set m=2
        ) else (
            echo,%%j>>"New1-%%i"
            if !m! equ 2 (
                echo,!str2!;!str1!;%%j
                set m=0
            ) else (
                echo,%%j
            )
        )
    ))>"New2-%%i"
    endlocal
)
pause
复制代码