[已解决]批处理把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

1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
   
2. $srt='字幕.srt'
   
3. $s=[timespan]::FromSeconds(5)
   
4. sc -enc utf8 $srt $(
   
5.     type $srt|%{
   
6.         if($_ -match '-->'){
   
7.             $a=$_ -replace ',','.' -split '\s+-->\s+'
   
8.             $f=[datetime]$a[0]
   
9.             $l=[datetime]$a[1]
   
10.             if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
    
11.         }else{$_}
    
12.     }
    
13. )
    

复制代码

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

1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
   
2. $s=[timespan]::FromSeconds(5)
   
3. dir *.srt|%{
   
4. $srt=$_.fullname
   
5. sc -enc utf8 $srt $(
   
6.     type $srt|%{
   
7.         if($_ -match '-->'){
   
8.             $a=$_ -replace ',','.' -split '\s+-->\s+'
   
9.             $f=[datetime]$a[0]
   
10.             $l=[datetime]$a[1]
    
11.             if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
    
12.         }else{$_}
    
13.     }
    
14. )
    
15. }

复制代码

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


    这个还真没碰到过呀

1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
   
2. $s=[timespan]::FromSeconds(5)
   
3. dir *.srt|%{
   
4. $srt=$_.fullname
   
5. [io.file]::WriteAllLines($srt,$(
   
6.     [io.file]::ReadAllLines($srt)|%{
   
7.         if($_ -match '-->'){
   
8.             $a=$_ -replace ',','.' -split '\s+-->\s+'
   
9.             $f=[datetime]$a[0]
   
10.             $l=[datetime]$a[1]
    
11.             if($l-$f -gt $s){'{0:HH:mm:ss,fff} --> {1:HH:mm:ss,fff}' -f $f,($f+$s)}else{$_}
    
12.         }else{$_}
    
13.     })
    
14. )
    
15. }

复制代码

vwfgh

回复 13# idwma


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

WHY

Test.bat，编码为utf8 without BOM

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. chcp 65001
   
4. 
   
5. for /f "delims=" %%i in ('dir /b *.srt') do (
   
6.     (for /f "delims=" %%j in ('findstr /n .* "%%i"') do (
   
7.         set "s=%%j"
   
8.         if "!s: --> =!" NEQ "!s!" (
   
9.             set "s=!s:*:=!"
   
10.             for /f "tokens=1-8 delims=:,-> " %%A in ("!s!") do (
    
11.                 set /a T1 = "((1%%A - 100) * 3600 + (1%%B - 100) * 60 + (1%%C - 100)) * 1000 + 1%%D - 1000"
    
12.                 set /a T2 = "((1%%E - 100) * 3600 + (1%%F - 100) * 60 + (1%%G - 100)) * 1000 + 1%%H - 1000"
    
13.                 set /a x = T2 - T1
    
14.                 if !x! GTR 5000 (
    
15.                     set /a T2 = T1 + 5000, ms = T2 %% 1000 + 1000, T2 /= 1000
    
16.                     set /a HH = T2 /3600 + 100, mm = T2 %% 3600 / 60 + 100, ss = T2 %% 60 + 100
    
17.                     set "s=%%A:%%B:%%C,%%D --> !HH:~1!:!mm:~1!:!ss:~1!,!ms:~1!"
    
18.                 )
    
19.             )
    
20.         ) else (
    
21.             set "s=!s:*:=!"
    
22.         )
    
23.         echo;!s!
    
24.     )) > "%%i.~tmp"
    
25.     move "%%i.~tmp" "%%i"
    
26. )
    
27. pause

复制代码