(^[\d:\.]+)\s+(^[\d:\.]+)
复制代码

$1 $2
复制代码

$srt=Get-Content .\字幕a.txt
$srt|ForEach-Object{ 
	#转换序号
	$j=$_.ReadCount/4
	#每次处理4行
	if(($_.ReadCount+4)%4 -eq 0){ 
		#格式化4行
		"{0}`n{1} --> {2}`n{3}`n" -f $j ,$srt[$_.ReadCount -4],$srt[$_.ReadCount -3],$srt[$_.ReadCount -2]
	} 
}|Set-Content .\字幕b.txt
复制代码

with open('E:\\news\\字幕.txt', 'r', encoding='gbk') as f:
    file = f.readlines()
    str_ = ""
    for i in range(0, len(file), 4):
        str_ += '{0}\n{1} --> {2}{3}\n'.format(str(int((i + 4) / 4)), file[i].strip('\n'), file[i+1], file[i+2])
    with open('E:\\news\\字幕b.txt', 'w', encoding='gbk') as ff:
        ff.write(str_)
复制代码

@echo off
set /a n=0,x=1
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('findstr /n .* test.txt') do (
    set "str=%%a"
    set "str=!str:*:=!"
    set /a n+=1
    set /a "m=(n-1)%%4+1"
    if !m!==1 (
        echo,!x!
        set /a x+=1
        set "var=!str!"
    ) else if !m!==2 (
        echo,!var!--^>!str!
    ) else (
        echo,!str!
    )
)
pause
复制代码