Obravnava neveljavnega JSON

Odzovete se na JSON, ki ga ni mogoče razčleniti, in uporabniku ali v dnevnik sporočite, kje je težava.

LoadJson in Load za neveljaven vhod vrneta False in v ParseError vpišeta kodo napake, vrstico in stolpec, besedilo vrstice ter razlog, tako kot loadXML v MSXML. Ob nalaganju se ne sproži nobena napaka VBA.

Dim doc As New JDoc
If Not doc.LoadJson(text) Then
    With doc.ParseError
        Debug.Print "Line " & .Line & ", column " & .LinePos & ": " & .Reason
        Debug.Print .SrcText
        If .LinePos > 0 Then Debug.Print String(.LinePos - 1, " ") & "^"
    End With
    Exit Sub
End If

Za datoteko:

If Not doc.Load(CurrentProject.Path & "\settings.json") Then
    MsgBox doc.ParseError.Reason, vbExclamation
End If

• Vrnjeno vrednost vedno preverite. Po neuspelem nalaganju napako nalaganja znova sprožijo samo bralne metode brez nadomestne vrednosti (jeParseError ali po Load jeFileError); poizvedbe ne javijo ničesar (SelectNodes vrne prazen seznam, zato se zanka For Each po njem ne izvede; SelectSingleNode in Root vrneta Nothing; Exists vrne False), bralne metode z nadomestno vrednostjo pa vrnejo nadomestno vrednost.
• ParseError.FilePos je položaj znaka v celotnem besedilu, štet od 0; Line in LinePos se štejeta od 1.
• Komentarji, končne vejice in enojni narekovaji niso veljaven JSON; razlog navede nepričakovani znak, vejico ali narekovaje (odpravljanje težav).
• Tudi manjkajočo ali neberljivo datoteko pri Load sporoči ParseError; Save sproži jeFileError.

• `JDoc.LoadJson`, `JParseError` (referenca API v angleščini)
• Pregled