fix default subs

fix issue with CR default subtitels #565
This commit is contained in:
hama3254 2022-10-26 09:26:30 +02:00
parent b8c64a9a0d
commit 8292480f41
3 changed files with 10 additions and 4 deletions

Binary file not shown.

View File

@ -172,7 +172,8 @@ Public Class Anime_Add
'End Using 'End Using
'Debug.WriteLine(ObjectsUrl) Debug.WriteLine("ObjectsUrl: " + ObjectsUrl)
Catch ex As Exception Catch ex As Exception
CefSharp_Browser.WebBrowser1.Load(Url) CefSharp_Browser.WebBrowser1.Load(Url)

View File

@ -1723,9 +1723,12 @@ Public Class Main
End If End If
If SoftSubs2.Count > 0 Then If SoftSubs2.Count > 0 Then
If MergeSubs = True And SubsOnly = False Then If MergeSubs = True And SubsOnly = False Then
Dim DispositionIndex As Integer Dim DispositionIndex As Integer = 69
Debug.WriteLine("Softsubs Default: " + DefaultSubCR)
For i As Integer = 0 To SoftSubs2.Count - 1 For i As Integer = 0 To SoftSubs2.Count - 1
Debug.WriteLine(SoftSubs2(i)) Debug.WriteLine("Softsubs: " + SoftSubs2(i))
If SoftSubs2(i) = DefaultSubCR Then If SoftSubs2(i) = DefaultSubCR Then
DispositionIndex = i DispositionIndex = i
End If End If
@ -1744,7 +1747,9 @@ Public Class Main
SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34)
End If End If
Next Next
If DispositionIndex = Nothing Then Debug.WriteLine("-disposition:s: " + DispositionIndex.ToString)
If DispositionIndex = 69 Then
Else Else
SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default" SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default"
End If End If