Runtime Error 457 in TestLibJSON

[plmayfield]

Runtime Error 457 occurs when running TestParseObjectInvalidMisc and TestParseStringInvalid in RunAllJSONParseTests. The error is raised in function Add in this block of code ...

If i <> notFound Then
        If IgnoreErrors Then Exit Function
        Err.Raise 457, TypeName(Me) & ".Add"
    End If

I'm using your Dictionary class and I downloaded both projects on 6/2/25. I'm running Microsoft® Excel® for Microsoft 365 MSO (Version 2504 Build 16.0.18730.20122) 64-bit

[cristianbuse]

Thanks for raising the issue!

I have a few questions:

1. Is the issue on Mac or Windows?
2. Do you still have a reference to Scripting.Dictionary in your project? If yes, can you remove the reference, compile and re-run the tests?
3. Have you imported the full modules or did you copy-paste the code?

[plmayfield]

1. Windows.
2. I have Dictionary.cls from your project https://github.com/cristianbuse/VBA-FastDictionary. I removed that project and added a reference to "Microsoft Scripting Runtime" and I don't get any errors. Just "Finished running parser tests at 6/2/2025 3:27:06 PM
   Finished running serializer tests at 6/2/2025 3:27:10 PM"
3. I imported the full modules, specifically libJSON.bas and originally Dictionary.cls.

[cristianbuse]

Thanks! What happens if you import the Dictionary.cls back and then you remove the reference to 'Microsoft Scripting Runtime'?

[plmayfield]

Same error when putting back in Dictionary.cls.

Nice library, I'm just getting started but looks great so far.

I wrote the code below to help me learn how to use your JSON and Dictionary together. It generically prints out the contents of any JSON string including objects and arrays. If you think others would find this helpful, you're welcome to put this on the FastJSON page.

Only Works with Dictionary.cls not with Microsoft Scripting Runtime

Sub ParseJSON_Generic()
    Dim jsonString As String
    Dim result As parseResult
    Dim rootDict As Dictionary
    
    ' JSON String (replace with any JSON string you want to parse)
    jsonString = "{" & _
                    """Animal"": {" & _
                        """Dog"": {" & _
                            """Black Lab"": {" & _
                                """Color"": ""Black""," & _
                                """Weight"": 150," & _
                                """HistoricalData"": [123, 122, 123]" & _
                            "}," & _
                            """Doberman"": ""Doberman""" & _
                        "}," & _
                        """Horse"": ""Horse""," & _
                        """Cow"": ""Cow""" & _
                    "}," & _
                    """Plant"": ""Tree""" & _
                  "}"
    
    ' Parse JSON
    result = Parse(jsonString)
    
    If result.IsValid Then
        ' Root is usually a Dictionary
        Set rootDict = result.Value
        Debug.Print "Parsed JSON (generic traversal):"
        TraverseJSON rootDict, 0
    Else
        Debug.Print "Parsing failed: " & result.Error
    End If
End Sub

' Recursive subroutine to generically traverse any JSON object
Sub TraverseJSON(item As Variant, indentLevel As Long)
    Dim indent As String
    indent = String(indentLevel * 2, " ")
    
    If IsObject(item) Then
        If TypeName(item) = "Dictionary" Then
            Dim key As Variant
            For Each key In item.Keys
                Debug.Print indent & key & ":"
                TraverseJSON item(key), indentLevel + 1
            Next key
        ElseIf TypeName(item) = "Collection" Then
            Dim i As Long
            For i = 1 To item.Count
                Debug.Print indent & "- (index " & i & "):"
                TraverseJSON item(i), indentLevel + 1
            Next i
        End If
    Else
        Debug.Print indent & item
    End If
End Sub

[plmayfield]

I just setup a benchmark that was way more than I needed but the results were so impressive I wanted to tip my hat to you. The string was just over 1 Million characters and the parse took 0.11 seconds. It took much longer to make the string than to parse it. I am using a i9-13900KF but still impressive results! Thanks for the library!

[cristianbuse]

Same error when putting back in Dictionary.cls.

Not sure why you would get this error. You already said you are using the latest modules. Are you using the latest test module as well?

I wrote the code below to help me learn how to use your JSON and Dictionary together... If you think others would find this helpful, you're welcome to put this on the FastJSON page.

I specifically wrote the methods to avoid recursion because it can lead to stack overflow errors and crashes. Thank you but I won't add.

I just setup a benchmark that was way more than I needed but the results were so impressive...

Thank you for the kind words! I am glad you find it useful.

[cristianbuse]

Is this still an issue?
Are you using the latest test module?