[文本处理] [已解决]批处理把srt字幕显示持续时间缩短

vwfgh

我有这样的双语字幕，每句字幕的结束时间是下一句字幕的开始时间，但是有时候两句话之间相隔很长时间，那上一句话的字幕就会一直显示。

我想改成，如果两句字幕相隔时间小于5秒，那就按原来的方案处理。如果大于5秒，那上一句字幕的持续时间就改成5秒，请问这种能用脚本实现吗？

下面是字幕例子。

1
00:00:06,058 --> 00:00:07,578
안녕하세.
你好。

2
00:00:07,578 --> 00:00:10,938
여러분.
各位。

3
00:00:10,938 --> 00:00:12,238
안녕하세요.
你好。

idwma

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$srt='字幕.srt'
$s=[timespan]::FromSeconds(5)
sc -enc utf8 $srt $(
    type $srt|%{
        if($_ -match '-->'){
            $a=$_ -replace ',','.' -split '\s+-->\s+'
            $f=[datetime]$a[0]
            $l=[datetime]$a[1]
            if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
        }else{$_}
    }
)
复制代码

vwfgh

运行出错了

vwfgh

回复 2# idwma


大佬 我运行后提示：
type : 找不到路径“H:\test\瀛楀箷.srt”，因为该路径不存在。
所在位置 行:5 字符: 5
+     type $srt|%{
+     ~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (H:\test\瀛楀箷.srt:String) [Get-Content], ItemNotFoundException
    + FullyQualifiedErrorId : PathNotFound,Microsoft.PowerShell.Commands.GetContentCommand

请按任意键继续. . .

然后出现个 瀛楀箷.srt 的空白文档，不知道哪错了？

idwma

回复 4# vwfgh


    复现不了你的情况,不知道呀

fzp070

回复 4# vwfgh

这个乱码，感觉是编码格式的问题啊，将bat文件保存为ANSI编码格式，字幕文件也是ANSI编码。
如果保存为UTF-8的编码，那就在代码最前面加上 chcp 65001>nul，试试看

vwfgh

回复 6# fzp070


保存完ansi后显示：

type : 找不到路径“H:\test\字幕.srt”，因为该路径不存在。
所在位置 行:5 字符: 5
+     type $srt|%{
+     ~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (H:\test\字幕.srt:String) [Get-Content], ItemNotFoundException
    + FullyQualifiedErrorId : PathNotFound,Microsoft.PowerShell.Commands.GetContentCommand

vwfgh

保存完ansi后，执行两次脚本不提示错误了，但是生成的文件还是空白。

fzp070

回复 7# vwfgh
回复 5# idwma

powershell我不懂，得2楼大佬idwma帮忙解答

vwfgh

回复 9# fzp070


谢谢帮助

idwma

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$s=[timespan]::FromSeconds(5)
dir *.srt|%{
$srt=$_.fullname
sc -enc utf8 $srt $(
    type $srt|%{
        if($_ -match '-->'){
            $a=$_ -replace ',','.' -split '\s+-->\s+'
            $f=[datetime]$a[0]
            $l=[datetime]$a[1]
            if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
        }else{$_}
    }
)
}
复制代码

vwfgh

回复 11# idwma


谢谢大佬！辛苦了！这次可以了。

但是我发现个奇怪的bug，当文件名里有 [ 这个符号时，脚本就会无法执行，提示：

标题中只有[时：

Get-Content : 无法检索 cmdlet 的动态参数。指定的通配符模式无效: [.srt
所在位置 行:6 字符: 5
+     type $srt|%{
+     ~~~~~~~~~
    + CategoryInfo          : InvalidArgument: ( [Get-Content]，ParameterBindingException
    + FullyQualifiedErrorId : GetDynamicParametersException,Microsoft.PowerShell.Commands.GetContentCommand

Set-Content : 无法检索 cmdlet 的动态参数。指定的通配符模式无效: [.srt
所在位置 行:5 字符: 1
+ sc -enc utf8 $srt $(
+ ~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [Set-Content]，ParameterBindingException
    + FullyQualifiedErrorId : GetDynamicParametersException,Microsoft.PowerShell.Commands.SetContentCommand



标题中包含[时：

type : 指定路径 H:\test\完整版[ABCD].srt 处的某个对象不存在，或者已被 -Include 或 -Exclude 参数过滤掉。
所在位置 行:6 字符: 5
+     type $srt|%{
+     ~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (System.String[]:String[]) [Get-Content], Exception
    + FullyQualifiedErrorId : ItemNotFound,Microsoft.PowerShell.Commands.GetContentCommand

Set-Content : 找不到与参数名称“enc”匹配的参数。
所在位置 行:5 字符: 4
+ sc -enc utf8 $srt $(
+    ~~~~
    + CategoryInfo          : InvalidArgument: (:) [Set-Content]，ParameterBindingException
    + FullyQualifiedErrorId : NamedParameterNotFound,Microsoft.PowerShell.Commands.SetContentCommand

而且]这个符号是可以的，很奇怪。

idwma

回复 12# vwfgh


    这个还真没碰到过呀

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$s=[timespan]::FromSeconds(5)
dir *.srt|%{
$srt=$_.fullname
[io.file]::WriteAllLines($srt,$(
    [io.file]::ReadAllLines($srt)|%{
        if($_ -match '-->'){
            $a=$_ -replace ',','.' -split '\s+-->\s+'
            $f=[datetime]$a[0]
            $l=[datetime]$a[1]
            if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
        }else{$_}
    })
)
}
复制代码

vwfgh

回复 13# idwma


完全OK了，感谢耐心解答！！！

WHY

Test.bat，编码为utf8 without BOM

@echo off
setlocal enabledelayedexpansion
chcp 65001

for /f "delims=" %%i in ('dir /b *.srt') do (
    (for /f "delims=" %%j in ('findstr /n .* "%%i"') do (
        set "s=%%j"
        if "!s: --> =!" NEQ "!s!" (
            set "s=!s:*:=!"
            for /f "tokens=1-8 delims=:,-> " %%A in ("!s!") do (
                set /a T1 = "((1%%A - 100) * 3600 + (1%%B - 100) * 60 + (1%%C - 100)) * 1000 + 1%%D - 1000"
                set /a T2 = "((1%%E - 100) * 3600 + (1%%F - 100) * 60 + (1%%G - 100)) * 1000 + 1%%H - 1000"
                set /a x = T2 - T1
                if !x! GTR 5000 (
                    set /a T2 = T1 + 5000, ms = T2 %% 1000 + 1000, T2 /= 1000
                    set /a HH = T2 /3600 + 100, mm = T2 %% 3600 / 60 + 100, ss = T2 %% 60 + 100
                    set "s=%%A:%%B:%%C,%%D --> !HH:~1!:!mm:~1!:!ss:~1!,!ms:~1!"
                )
            )
        ) else (
            set "s=!s:*:=!"
        )
        echo;!s!
    )) > "%%i.~tmp"
    move "%%i.~tmp" "%%i"
)
pause
复制代码