fix: 所有版本都显示为测试版 / 正式版

2024-06-16 07:00:37 +08:00
parent 65d21d4f21
commit d8fe599739
2 changed files with 6 additions and 4 deletions
@@ -880,19 +880,21 @@
                Dim Name As String               '存储 rawVersion，貌似变化更加频繁
                Dim StdVersion As String         '存储 version，相对规则
                Dim IsBeta As Boolean
-                If Token("rawVersion").Contains("-beta") Then
-                    StdVersion = Token("version").ToString() - "-beta"
+                Dim rawVersion As String = Token("rawVersion")
+                If rawVersion.Contains("-beta") Then
+                    StdVersion = Token("version").ToString().Replace("-beta", "")
                    IsBeta = True
                Else
                    StdVersion = Token("version").ToString()
                    IsBeta = False
                End If
-                Name = Token("rawVersion")
+                Name = rawVersion
                Dim Inherit As String = Token("mcversion")
                Dim Entry = New DlNeoForgeVersionEntry With {.Version = Name, .Inherit = Inherit, .IsBeta = IsBeta, .StdVersion = StdVersion}
                Versions.Add(Entry)
            Next
        Catch ex As Exception
+            MyMsgBox(ex.ToString(), "错误")
            Throw New Exception("版本列表解析失败（" & Json.ToString & "）", ex)
        End Try
        If Not Versions.Any() Then Throw New Exception("没有可用版本")