small fixes

small fixes
This commit is contained in:
hama3254 2022-02-27 18:39:30 +01:00
parent 4bcf638141
commit 730540870c
10 changed files with 13 additions and 38 deletions

Binary file not shown.

View File

@ -1058,51 +1058,25 @@ Public Class Main
Public Function HardSubValuesToDisplay(ByVal HardSub As String) As String Public Function HardSubValuesToDisplay(ByVal HardSub As String) As String
Try Try
HardSub = HardSub.Replace(Chr(34), "") HardSub = HardSub.Replace(Chr(34), "")
If HardSub = "deDE" Then If HardSub = "deDE" Or HardSub = "de-DE" Then
Return "Deutsch" Return "Deutsch"
ElseIf HardSub = "enUS" Or HardSub = "en" Then ElseIf HardSub = "enUS" Or HardSub = "en" Or HardSub = "en-US" Then
Return "English" Return "English"
ElseIf HardSub = "ptBR" Or HardSub = "pt" Then ElseIf HardSub = "ptBR" Or HardSub = "pt" Or HardSub = "pt-BR" Then
Return "Português (Brasil)" Return "Português (Brasil)"
ElseIf HardSub = "esLA" Or HardSub = "es" Then ElseIf HardSub = "esLA" Or HardSub = "es" Or HardSub = "es-419" Or HardSub = "es-LA" Then
Return "Español (LA)" Return "Español (LA)"
ElseIf HardSub = "frFR" Then ElseIf HardSub = "frFR" Or HardSub = "fr-FR" Then
Return "Français (France)" Return "Français (France)"
ElseIf HardSub = "arME" Then ElseIf HardSub = "arME" Or HardSub = "ar-ME" Then
Return "العربية (Arabic)" Return "العربية (Arabic)"
ElseIf HardSub = "ruRU" Then ElseIf HardSub = "ruRU" Or HardSub = "ru-RU" Then
Return "Русский (Russian)" Return "Русский (Russian)"
ElseIf HardSub = "itIT" Then ElseIf HardSub = "itIT" Or HardSub = "it-IT" Then
Return "Italiano (Italian)" Return "Italiano (Italian)"
ElseIf HardSub = "esES" Then ElseIf HardSub = "esES" Or HardSub = "es-ES" Then
Return "Español (España)" Return "Español (España)"
ElseIf HardSub = "jaJP" Then ElseIf HardSub = "jaJP" Or HardSub = "ja-JP" Then
Return "Japanese"
ElseIf HardSub = "en" Then
Return "English"
ElseIf HardSub = "pt" Then
Return "Português (Brasil)"
ElseIf HardSub = "es" Then
Return "Español (LA)"
ElseIf HardSub = "de-DE" Then
Return "Deutsch"
ElseIf HardSub = "en-US" Then
Return "English"
ElseIf HardSub = "pt-BR" Then
Return "Português (Brasil)"
ElseIf HardSub = "es-LA" Then
Return "Español (LA)"
ElseIf HardSub = "fr-FR" Then
Return "Français (France)"
ElseIf HardSub = "ar-ME" Then
Return "العربية (Arabic)"
ElseIf HardSub = "ru-RU" Then
Return "Русский (Russian)"
ElseIf HardSub = "it-IT" Then
Return "Italiano (Italian)"
ElseIf HardSub = "es-ES" Then
Return "Español (España)"
ElseIf HardSub = "ja-JP" Then
Return "Japanese" Return "Japanese"
Else Else
Return CB_SuB_Nothing Return CB_SuB_Nothing
@ -1119,7 +1093,7 @@ Public Class Main
Return "eng" Return "eng"
ElseIf HardSub = "ptBR" Or HardSub = "pt-BR" Or HardSub = "pt" Then ElseIf HardSub = "ptBR" Or HardSub = "pt-BR" Or HardSub = "pt" Then
Return "por" Return "por"
ElseIf HardSub = "esLA" Or HardSub = "es-LA" Or HardSub = "es" Then ElseIf HardSub = "esLA" Or HardSub = "es-LA" Or HardSub = "es" Or HardSub = "es-419" Then
Return "spa" Return "spa"
ElseIf HardSub = "frFR" Or HardSub = "fr-FR" Then ElseIf HardSub = "frFR" Or HardSub = "fr-FR" Then
Return "fre" Return "fre"
@ -1933,7 +1907,8 @@ Public Class Main
If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + ConvertCC(SoftSubs(i)) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + ConvertCC(SoftSubs(i)) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then
SoftSubs2.Add(SoftSubs(i)) SoftSubs2.Add(SoftSubs(i))
Else Else
MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information) '
'MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information)
End If End If
Next Next
End If End If