@echo off
chcp 65001
set "initialtamp=00:00:00,000"
set "arrow=-->"
set /a point=15

setlocal EnableDelayedExpansion
for %%i in (%*) do (
    (for /f "skip=2 tokens=1-4 delims=] " %%a in ('find /v /n "" %%i') do (
        echo,"%%c"|find /i "!arrow!" >nul&&(
        call :mod "%%b" "%%d" timetamp
        set "mark=1"
        echo,!timetamp!)||(
        echo,%%b%%c%%d)
        ))>%%i.temp
    move /y "%%~i.temp" %%i
    set "initialtamp=!tamp2!"
    set "mark="
    )
pause&exit

:mod
if not defined mark (
    set "tamp1=!initialtamp!") else (
    for /f "tokens=1-2 delims=," %%x in (%1) do (
        for /f "tokens=* delims=0" %%i in ("%%y") do (
            set /a quotient=%%i/20,remainder=%%i%%20
            if !remainder! gtr !point! set /a quotient+=1
            set /a round=quotient*20+1000
            )
        set "tamp1=%%x,!round:~1!"
        )
    )
for /f "tokens=1-2 delims=," %%x in (%2) do (
    for /f "tokens=* delims=0" %%i in ("%%y") do (
        set /a quotient=%%i/20,remainder=%%i%%20
        if !remainder! geq !point! set /a quotient+=1
        set /a round=quotient*20+1000
        )
    set "tamp2=%%x,!round:~1!"
    )
set "%3=!tamp1! !arrow! !tamp2!"
复制代码

<# :
cls&echo off&cd /d "%~dp0"
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set "tmpfile=%tmp%\t.t"
setlocal enabledelayedexpansion
>"%tmpfile%" echo;!cmdcmdline!
endlocal
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>
function exc($t){
    $tt=[int]('1'+$t);
    $n=-1;$nn='';
    $zrr=@(100,120,140,160,180);
    for($i=0;$i -lt $zrr.length;$i++){
        $m=[Math]::Abs($zrr[$i] -$tt);
        if($n -eq -1){
            $n =$m;$nn =$zrr[$i].toString();
        }else{
            if($m -lt $n){
                $n =$m;$nn =$zrr[$i].toString();
            }
        }
    }
    return $nn.Substring(1);
}

$text=[IO.File]::ReadAllText(($env:tmpfile), [Text.Encoding]::GetEncoding('GB2312'));
$files=($text.trim() -replace '^.+?\.(cmd|bat)" ','').replace('"','') -split ' (?=[a-z]:)';
$enc=New-Object System.Text.UTF8Encoding $False;
for($i=0;$i -lt $files.length;$i++){
    write-host $files[$i];
    $arr=New-Object -TypeName System.Collections.ArrayList;$flag=@(1,'');
    $text=[IO.File]::ReadAllLines($files[$i], $enc);
    for($j=0;$j -lt $text.count;$j++){
        $line=$text[$j].trim();
        $m=[regex]::match($line, '(\d+:\d+:\d+,)(\d\d\d)( ?--> ?\d+:\d+:\d+,)(\d\d\d)');
        if($m.success){
            $ts='';
            $a=$m.groups[2].value.Substring(0,1)+(exc $m.groups[2].value.Substring(1,2));
            $b=$m.groups[4].value.Substring(0,1)+(exc $m.groups[4].value.Substring(1,2));
            if($flag[0] -eq 1){
                $ts=$m.groups[1].value+'000'+$m.groups[3].value+$b;
            }else{
                $ts=$m.groups[1].value+$flag[1]+$m.groups[3].value+$b;
            }
            $flag[1]=$b;$flag[0]++;
            [void]$arr.add($ts);
        }else{
           [void]$arr.add($text[$j]);
        }
    }
    [IO.File]::WriteAllLines($files[$i], ($arr -join "`r`n"), $enc);
}
复制代码

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
set t1=00:00:00,000
(for /f "tokens=1* delims=[]" %%i in ('find /n /v "" ^<"%~1"') do (
	if "%%j" neq "" (
		for /f "tokens=1-3" %%x in ("%%j") do (
			if "%%y" equ "-->" (
				setlocal enabledelayedexpansion
				for /f "tokens=1-4 delims=:," %%a in ("%%z") do (
					set /a "t2ms=((1%%a%%100*60+1%%b%%100)*60+1%%c%%100)*1000+1%%d%%1000,p=t2ms%%100%%20"
					if !p! leq 10 (
						set /a t2ms-=p
					) else (
						set /a t2ms+=20-p
					)
				)
				set /a "h=t2ms/1000/60/60+100,m=t2ms/1000/60%%60+100,s=t2ms/1000%%60+100,ms=t2ms%%1000+1000"
				set t2=!h:~1!:!m:~1!:!s:~1!,!ms:~1!
				echo !t1! --^> !t2!
				for /f "delims=" %%t in ("!t2!") do (
					endlocal
					set t1=%%t
				)
			) else (
				echo=%%j
			)
		)
	) else (
		echo=
	)
))>$
move $ "%~1"
pause
复制代码

@echo off
chcp 65001>nul
set "initialtamp=00:00:00,000"
set "arrow=-->"
set /a point=11

setlocal EnableDelayedExpansion
for %%i in (%*) do (
    echo,%%i
    (for /f "skip=2 tokens=1-4 delims=] " %%a in ('find /v /n "" %%i') do (
        if not "%%d"=="" (
        call :mod "%%d" timetamp
        set "mark=1"
        echo,!timetamp!) else (
        echo,%%b%%c%%d)
        ))>"%%~i.temp"
    move /y "%%~i.temp" %%i
    set "mark="
    )
pause&exit

:mod
if not defined mark (set "tamp1=!initialtamp!") else (set "tamp1=!tamp2!")
for /f "tokens=1-2 delims=," %%x in (%1) do (
    for /f "tokens=* delims=0" %%i in ("%%y") do (
        set /a quotient=%%i/20,remainder=%%i%%20
        if !remainder! geq !point! set /a quotient+=1
        set /a round=quotient*20+1000
        )
    set "tamp2=%%x,!round:~1!"
    )
set "%2=!tamp1! !arrow! !tamp2!"
复制代码

@echo off
chcp 65001>nul
set "initialtamp=00:00:00,000"
set "arrow=-->"
set /a point=11

setlocal EnableDelayedExpansion
for %%i in (%*) do (
    echo,%%i
    (for /f "skip=2 tokens=1-4* delims=] " %%a in ('find /v /n "" %%i') do (
        if "%%c"=="!arrow!" (
            call :mod "%%d" timetamp
            set "mark=1"
            echo,!timetamp!) else (
            echo,%%b %%c %%d %%e)
        ))>"%%~i.temp"
    move /y "%%~i.temp" %%i
    set "mark="
    )
pause&exit

:mod
if not defined mark (set "tamp1=!initialtamp!") else (set "tamp1=!tamp2!")
for /f "tokens=1-2 delims=," %%x in (%1) do (
    for /f "tokens=* delims=0" %%i in ("%%y") do (
        set /a quotient=%%i/20,remainder=%%i%%20
        if !remainder! geq !point! set /a quotient+=1
        set /a round=quotient*20+1000
        )
    set "tamp2=%%x,!round:~1!"
    )
set "%2=!tamp1! !arrow! !tamp2!"
复制代码