fix : issue

fix `:` issue #494
This commit is contained in:
hama3254 2022-06-12 12:20:42 +02:00
parent 18c9781b27
commit cea617aad4
3 changed files with 7 additions and 7 deletions

Binary file not shown.

View File

@ -1796,7 +1796,7 @@ Public Class Main
For Each Entry As JObject In item.Values For Each Entry As JObject In item.Values
Try Try
Dim Title As String = Entry("title").ToString Dim Title As String = Entry("title").ToString
CR_title = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") CR_title = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Debug.WriteLine(Date.Now.ToString + " CR-Title: " + CR_title) Debug.WriteLine(Date.Now.ToString + " CR-Title: " + CR_title)
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -1808,15 +1808,15 @@ Public Class Main
For Each SubEntry As JProperty In SubItem.Values For Each SubEntry As JProperty In SubItem.Values
Select Case SubEntry.Name Select Case SubEntry.Name
Case "series_title" Case "series_title"
CR_series_title = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "") CR_series_title = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
'Case "season_title" 'Case "season_title"
' CR_season_title = SubEntry.Value.ToString ' CR_season_title = SubEntry.Value.ToString
Case "season_number" Case "season_number"
CR_season_number = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "") CR_season_number = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode_number" Case "episode_number"
CR_episode2 = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "") CR_episode2 = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode" Case "episode"
CR_episode = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "") CR_episode = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
End Select End Select
Next Next
End Select End Select

View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.8")> <Assembly: AssemblyVersion("3.8.8.1")>
<Assembly: AssemblyFileVersion("3.8.8")> <Assembly: AssemblyFileVersion("3.8.8.1")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>