Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-15 04:35:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

added sub filter for season selection

Browse Source 
added sub filter for season selection
This commit is contained in:
hama3254 2023-03-27 18:19:02 +02:00
parent bc018fa136
commit b2e945ba5f
3 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v17/.suo
View File

Binary file not shown.

16
Crunchyroll Downloader/Anime_Add.vb
View File

@ -377,9 +377,13 @@ Public Class Anime_Add
Public Sub FillCREpisodes(ByVal EpisodeJson As String)
EpisodeJson = CleanJSON(EpisodeJson)
Main.CR_MassEpisodes.Clear()
Dim audio_locale_filter As String = Nothing
Dim EpisodeJObject As JObject = JObject.Parse(EpisodeJson)
Dim EpisodeData As List(Of JToken) = EpisodeJObject.Children().ToList
@ -388,6 +392,15 @@ Public Class Anime_Add
Select Case item.Name
Case "data" 'each record is inside the entries array
For Each Entry As JObject In item.Values
Dim audio_locale As String = Entry.GetValue("audio_locale").ToString
If audio_locale_filter = Nothing Then
audio_locale_filter = audio_locale
ElseIf CBool(InStr(audio_locale_filter, audio_locale)) = False Then
'MsgBox(audio_locale + vbNewLine + audio_locale_filter)
Continue For
End If
Dim episode_number As String = Entry.GetValue("episode_number").ToString
Dim episode_id As String = Entry.GetValue("id").ToString
Dim slug_title As String = Entry.GetValue("slug_title").ToString
@ -395,6 +408,7 @@ Public Class Anime_Add
comboBox3.Items.Add("Episode " + episode_number)
comboBox4.Items.Add("Episode " + episode_number)
Main.CR_MassEpisodes.Add(New CR_Seasons(episode_id, slug_title, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth))
Next
End Select
Next
@ -425,6 +439,8 @@ Public Class Anime_Add
Dim EpisodeJson As String = Main.CurlAuth(JsonUrl, Loc_CR_Cookies, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth) '
'My.Computer.Clipboard.SetText(EpisodeJson)
FillCREpisodes(EpisodeJson)

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

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