链接：https://pan.baidu.com/s/1-xmRDW2-5L3JQB6YBOtsvg?pwd=0ydb 
提取码：0ydb
复制代码

@echo off
chcp 65001>nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
    (for /f "delims=" %%j in ('type "%%i") do (
        set "str=%%j"
        setlocal enabledelayedexpansion
        if not "!str:~30!"=="" (
            echo,!str:~,30!
            echo,!str:~30!
        ) else (
            echo,%%j
        )
        endlocal
    ))>"New-%%i"
)
复制代码

    (for /f "delims=" %%j in ('type "%%i"') do (
复制代码

@echo off&chcp 936

set changdu=30

for %%a in (*.srt) do (
cd.>"new_%%~na.newnew"
set "newfile=new_%%~na.newnew"
for /f "delims=" %%b in ('findstr /n .* "%%a"') do (
set line=%%b
setlocal enabledelayedexpansion
set line=!line:*:=!
if not defined line (
rem echo,>>"!newfile!" 
echo,>>"!newfile!"
) else if "!line:~%changdu%!" == "" (
rem echo,!line:*:=!>>"!newfile!"
echo,!line!>>"!newfile!"
) else (
set n=0
set /a m=%changdu%
rem set line=!line:*:=!
call :aaa
)
endlocal
)
)
rename *.newnew *.srt
del *.newnew 2>nul
echo done&pause&exit/b

:aaa
echo,!line:~%n%,%changdu%!>>"!newfile!"
set /a n+=%changdu%
set /a m+=%changdu%
if "!line:~%m%!" neq "" (goto :aaa) else (
if "!line:~%n%!" neq "" echo,!line:~%n%!>>"!newfile!"
)
复制代码

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set "str=%%b"
			setlocal enabledelayedexpansion
			call :1
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
pause & exit

	:1
	echo !str:~0,30!
	set "_str=!str:~30!"
	if "!_str!" neq "" (
		set "str=!_str!"
		goto :1
	) else (
		exit /b
	)
复制代码

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set "str=%%b"
			setlocal enabledelayedexpansion
			set "_str=!str:~0,1!"
			if !_str! gtr Z (
				call :1
			) else (
				echo !str!
			)
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
pause & exit

	:1
	echo !str:~0,30!
	set "_str=!str:~30!"
	if "!_str!" neq "" (
		set "str=!_str!"
		goto :1
	) else (
		exit /b
	)
复制代码

@echo off
chcp 65001>nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
    (for /f "delims=" %%j in ('type "%%i"') do (
        set "str=%%j"
        setlocal enabledelayedexpansion
        set /a t=str
        if !t! equ !str! (
            echo,%%j
        ) else if not "!str:-->=!"=="!str!" (
            echo,%%j
        ) else (
            if not "!str:~30!"=="" (
                echo,!str:~,30!
                set str=!str:~30!
                if not "!str:~30!"=="" (
                    echo,!str:~,30!
                    echo,!str:~30!
                    echo,
                ) else (
                    echo,!str!
                    echo,
                )
            ) else (
                echo,%%j
                echo,
            )
        )
        endlocal
    ))>"New-%%i"
)
复制代码

<# :
@echo off 
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause
exit 
#>
$re = "^\d{2}:\d{2}:\d{2},\d{3} --> \d{2}:\d{2}:\d{2},\d{3}$"
$n = 30
[IO.Directory]::EnumerateFiles($pwd, "*.srt")|%{ [IO.File]::WriteAllLines("$_._new.txt",([IO.File]::ReadAllLines($_)|%{if($_ -match $re){$_ }else{$_ -split "(?<=\G.{$n})(?=.)"}}),[Text.Encoding]::UTF8)}
复制代码

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		if "%%b" equ "" (
			echo=
		) else (
			set "str=%%b"
			setlocal enabledelayedexpansion
			set "_str=!str:~0,1!"
			if !_str! gtr Z (
				call :1
			) else (
				echo !str!
			)
			endlocal
		)
	))>"%%~ni_2%%~xi"
)
pause & exit

	:1
	echo !str:~0,30!
	set "_str=!str:~30!"
	if "!_str!" neq "" (
		set "str=!_str!"
		goto :1
	) else (
		exit /b
	)
复制代码

        move "%%~ni_2%%~xi" "%%i"
复制代码