assaddIntervalcaption.ps1
|
<#PSScriptInfo .VERSION 0.4 .GUID 25a2e39f-df6a-4591-9e13-1ba9acdbf35f .AUTHOR he852100 .COMPANYNAME .COPYRIGHT .TAGS windows,Windows,ass,sub,aegisub .LICENSEURI .PROJECTURI .ICONURI .EXTERNALMODULEDEPENDENCIES .REQUIREDSCRIPTS .EXTERNALSCRIPTDEPENDENCIES .RELEASENOTES .PRIVATEDATA #> <# .DESCRIPTION ass 在字幕间隔中添加添加自定义字幕 #> <# .SYNOPSIS ass 在字幕间隔中添加添加自定义字幕 .DESCRIPTION 一粒尘:前辈们，有没有办法，让字幕出现以外的时间里，都显示我的一句口号？ .EXAMPLE PS C:\> add-Intervalcaption -path xxx.ass -text 'aaa' add-Intervalcaption -path [文件路径] -text [字幕] .INPUTS Inputs (if any) .OUTPUTS Output (if any) .NOTES General notes #> # Author: he852100 # Origianl date: 2021 #Requires -Version 3 function add-Intervalcaption { [CmdletBinding()] param ( # Specifies a path to one or more locations. Unlike the Path parameter, the value of the LiteralPath parameter is # used exactly as it is typed. No characters are interpreted as wildcards. If the path includes escape characters, # enclose it in single quotation marks. Single quotation marks tell Windows PowerShell not to interpret any # characters as escape sequences. [Parameter(Mandatory = $true, Position = 0, ParameterSetName = "LiteralPath", ValueFromPipelineByPropertyName = $false, HelpMessage = "ass文件路径")] [ValidateNotNullOrEmpty()] [string] $Path, [Parameter(Mandatory = $true, Position = 1, ParameterSetName = "LiteralPath", ValueFromPipelineByPropertyName = $false, HelpMessage = "需要插入的文本")] [string] $text, [Parameter(Mandatory = $false, Position = 2, ParameterSetName = "LiteralPath", ValueFromPipelineByPropertyName = $false, HelpMessage = "插入自定义字幕的最小时间间隔，单位‘秒’,默认5秒")] [int] $mintime = 5, [Parameter(Mandatory = $false, Position = 3, ParameterSetName = "LiteralPath", ValueFromPipelineByPropertyName = $false, HelpMessage = "插入字幕与原字幕之间的时间间隔，单位‘毫秒’，默认1000毫秒")] [int] $interval = 1000, [Parameter(Mandatory = $false, Position = 4, ParameterSetName = "LiteralPath", ValueFromPipelineByPropertyName = $false, HelpMessage = "设置插入字幕的字体名称")] [string] $font='Default' ) #间隔激活秒数 if (Test-Path -Path $path) { if ($path -match '\.ass$') { $output = $path -replace '\.ass$' } else { Write-Error '路径错误' break } } $gc = Get-Content -path "$path" $list = $gc -match '(?<start>\d:\d{2}:\d{2}\.\d{2}),(?<end>\d:\d{2}:\d{2}\.\d{2})' $all = $gc | select-string -pattern '(?<start>\d:\d{2}:\d{2}\.\d{2}),(?<end>\d:\d{2}:\d{2}\.\d{2})' -AllMatches $alls = $all.Matches $arraylist = @() $start = ($alls.Groups | Where-Object { $_.name -like 'start' }).Value $end = ($alls.Groups | Where-Object { $_.name -like 'end' }).Value $arraylist += for (($i = 0), ($j = 1); $i -lt $start.Count; ($i++), ($j++)) { if ($j -lt $start.Count) { $end1 = [datetime]$end[$i] $start1 = [datetime]$start[$j] } $time = New-TimeSpan -Start $end1 -End $start1 $ling = [datetime]'0:00:00.00' if ($i -eq 0 -and (($start1 - $ling) -gt $mintime)) { $a = $end1.AddMilliseconds(-$interval).ToString( 'H:mm:ss.ff') "Dialogue: 0,${ling},${a},$font,NTP,0,0,0,,$text" } $list[$i] $chongfu = $start[$j..$start.Count] | ForEach-Object { [datetime]$_ -lt [datetime]$end[$i] } if ($time.TotalSeconds -gt $mintime -and ($chongfu -contains $false)) { $jiastart = $end1.AddMilliseconds($interval).ToString( 'H:mm:ss.ff') $jiaend = $start1.AddMilliseconds(-$interval).ToString( 'H:mm:ss.ff') "Dialogue: 0,${jiastart},${jiaend},$font,NTP,0,0,0,,$text" } } $zhong = ([datetime]$end[-1]).AddMilliseconds(+$interval).ToString( 'H:mm:ss.ff') $arraylist += "Dialogue: 0,${zhong},5:26:45.86,$font,NTP,0,0,0,,$text" ($gc -join "`r`n").replace(($list -join "`r`n"), ($arraylist -join "`r`n")) | set-content -path "$output.out.ass" } |