hotfix character encoding before cleaning json data
This commit is contained in:
hama3254 2022-03-25 15:18:50 +01:00
parent 3b430177b1
commit 78ee5c02ef
7 changed files with 3 additions and 3 deletions

Binary file not shown.

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.4.0")> <Assembly: AssemblyVersion("3.8.4.1")>
<Assembly: AssemblyFileVersion("3.8.4.0")> <Assembly: AssemblyFileVersion("3.8.4.1")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>

View File

@ -10,7 +10,7 @@ Module Subfolder
Public SubFolder_Value As String = "[ ignore subfolder ]" Public SubFolder_Value As String = "[ ignore subfolder ]"
Public Function CleanJSON(ByVal JSON As String) As String Public Function CleanJSON(ByVal JSON As String) As String
JSON = JSON.Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&")
While CBool(InStr(JSON, "\")) While CBool(InStr(JSON, "\"))
Dim index As Integer = InStr(JSON, "\") Dim index As Integer = InStr(JSON, "\")
Dim myName As New StringBuilder(JSON) Dim myName As New StringBuilder(JSON)