Change suggested for "json_StringIsLargeNumber" function to detect multiple dots

[ricardo-hz-sz]

Hi,

json_StringIsLargeNumber return true with strings with more than one dot: "2025.07.16.00.00"

I suggest this change to return False when code detects multiple dots.

Private Function json_StringIsLargeNumber(json_String As Variant) As Boolean
' Check if the given string is considered a "large number"
' (See json_ParseNumber)

Dim json_Length As Long
Dim json_CharIndex As Long
json_Length = VBA.Len(json_String)

' Length with be at least 16 characters and assume will be less than 100 characters
If json_Length >= 16 And json_Length <= 100 Then
    Dim json_CharCode As String
    Dim dotsFound As Long

    json_StringIsLargeNumber = True        
    dotsFound = 0

    For json_CharIndex = 1 To json_Length
        json_CharCode = VBA.Asc(VBA.Mid$(json_String, json_CharIndex, 1))
        Select Case json_CharCode
        ' Look for .|0-9|E|e
        Case 46
            If dotsFound > 0 Then
                json_StringIsLargeNumber = False
                Exit Function
            End If
            dotsFound = dotsFound + 1

        Case 48 To 57, 69, 101
            ' Continue through characters
        Case Else
            json_StringIsLargeNumber = False
            Exit Function
        End Select
    Next json_CharIndex
End If

End Function

Thanks for this excellent software

[Nick-vanGemeren]

You can avoid converting ‘large-number’ strings to JSON numbers by setting JsonOptions.UseDoubleForLargeNumbers = True
before callingConvertToJson.

Your suggestion only detects one case where the string is not a number. A much stronger check is to add after the length check:
If Not IsNumeric(json_String) Then Exit Function

The main aim of the large-number handling is to preserve large integers which are actually identifiers (e.g. card or part numbers). There is less focus on writing a JSON number wherever possible. The following large numeric strings are still written as JSON strings:

• Signed numbers or signed exponents
• Numbers with thousands separators
• Numbers with decimal separator other than ‘.’