GetNumberType

Description

Gets the type of the number item.

Applies to

Syntax

objectname.GetNumberType ( ItemHandle )

objectname.GetNumberType ( ParentItemHandle, Key )

objectname.GetNumberType ( ItemPath )

Argument	Description
objectname	The name of the JSONParser object whose item type you want to obtain.
ItemHandle	A long specifying the item handle which is JsonNumberItem type.
ParentItemHandle	A long specifying the parent item handle which is JsonObjectItem type.
Key	A string specifying the key of the child item which is JsonNumberItem type.
ItemPath	A string specifying the item path which is JsonNumberItem type. If there is a multi-dimensional array, use the number to indicate the order of the array elements. If a key name contains "/", use the escape character "~~/" to replace "/".

Return value

JsonNumberType.

Returns the JsonNumberType enumerated value if it succeeds and null value if an error occurs. If any argument's value is null, the method returns null.

The JsonNumberType enumerated values are:

JsonNumber! -- Type of the JSON valid number.
JsonNaN! -- Type of the JSON invalid number.
JsonPositiveInfinity! -- Type of the JSON positive infinity.
JsonNegativeInfinity! -- Type of the JSON negative infinity.

Example 1

This example determines the type of number values according to the item handle:

Long    ll_ItemCount, ll_I, ll_RootItem, ll_Child
String  ls_Json, ls_Return, ls_Key, ls_Value
Dec     ldc_Value
JsonItemType    ljs_type, ljs_Root
JsonNumberType  ljsn_type
Jsonparser      ljs_par

ljs_par = Create JsonParser

ls_Json = '{"value1":123.45,"value2":Infinity,"value3":-Infinity,"value4":NaN,"value5":null}'
ls_Return = ljs_par.LoadString(ls_Json)
If Len(ls_Return) > 0 Then Return
ll_RootItem = ljs_par.GetRootItem()
ll_ItemCount = ljs_Par.GetChildCount(ll_RootItem)
ljs_Root =  ljs_par.GetItemType(ll_RootItem)
For ll_I = 1 To ll_ItemCount
 ll_child = ljs_par.getchilditem( ll_RootItem, ll_i)
 ls_Key = ljs_par.GetChildKey(ll_RootItem, ll_i)
 ljs_type = ljs_par.GetItemType(ll_child)
 Choose Case ljs_type
  Case Jsonnumberitem!
   ldc_Value = ljs_par.GetItemNumber(ll_child)
   If IsNull ( ldc_value ) Then
    ljsn_type = ljs_par.GetNumberType(ll_child)
    Choose Case ljsn_type
     Case JsonNaN!
      ls_value = "Nan"
     Case JsonPositiveInfinity!
      ls_value = "Infinity"
     Case JsonNegativeInfinity!
      ls_value = "-Infinity"
     Case JsonNumber!
      ls_value = "null"
     Case Else
    End Choose
   Else
    ls_value = String(ldc_value)
   End If
  Case Jsonnullitem!
   ls_value = "null"
 End Choose
 ls_Return += ls_Key + "=" + ls_Value + "~r~n"
Next
If IsValid ( ljs_par ) Then Destroy ( ljs_par )

Example 2

This example determines the type of number values according to the parent item and key name:

Long    ll_ItemCount, ll_I, ll_RootItem
String  ls_Json, ls_Return, ls_Key, ls_Value
Dec     ldc_Value
JsonItemType    ljs_type, ljs_Root
JsonNumberType  ljsn_type
Jsonparser      ljs_par

ljs_par = Create JsonParser

ls_Json = '{"value1":123.45,"value2":Infinity,"value3":-Infinity,"value4":NaN,"value5":null}'
ls_Return = ljs_par.LoadString(ls_Json)
If Len(ls_Return) > 0 Then Return
ll_RootItem = ljs_par.GetRootItem()
ll_ItemCount = ljs_Par.GetChildCount(ll_RootItem)
ljs_Root =  ljs_par.GetItemType(ll_RootItem)
For ll_I = 1 To ll_ItemCount
 ls_Key = ljs_par.GetChildKey(ll_RootItem, ll_i)
 ljs_type = ljs_par.GetItemType(ll_RootItem, ls_Key)
 Choose Case ljs_type
  Case Jsonnumberitem!
   ldc_Value = ljs_par.GetItemNumber(ll_RootItem, ls_Key)
   If IsNull ( ldc_value ) Then
    ljsn_type = ljs_par.GetNumberType(ll_RootItem, ls_Key)
    Choose Case ljsn_type
     Case JsonNaN!
      ls_value = "Nan"
     Case JsonPositiveInfinity!
      ls_value = "Infinity"
     Case JsonNegativeInfinity!
      ls_value = "-Infinity"
     Case JsonNumber!
      ls_value = "null"
     Case Else
    End Choose
   Else
    ls_value = String(ldc_value)
   End If
  Case Jsonnullitem!
    ls_value = "null"
 End Choose
 ls_Return += ls_Key + "=" + ls_Value + "~r~n"
Next
If IsValid ( ljs_par ) Then Destroy ( ljs_par )

Example 3

This example determines the type of number values according to the item path:

Long    ll_ItemCount, ll_I
String  ls_Json, ls_Return, ls_RootPath, ls_ChildPath, ls_Key, ls_Value
Dec     ldc_Value
JsonItemType         ljs_type, ljs_Root
JsonNumberType  ljsn_type
Jsonparser              ljs_par

ljs_par = Create JsonParser

ls_Json = '{"value1":123.45,"value2":Infinity,"value3":-Infinity,"value4":NaN,"value5":null}'
ls_Return = ljs_par.LoadString(ls_Json)
If Len(ls_Return) > 0 Then Return
ls_RootPath = "/"
ll_ItemCount = ljs_Par.GetChildCount(ls_RootPath)
ljs_Root = ljs_par.GetItemType(ls_RootPath)
For ll_I = 1 To ll_ItemCount
  ls_Key = ljs_par.GetChildKey(ls_RootPath, ll_i)
  If ljs_Root = jsonobjectitem! Then
    ls_ChildPath = ls_RootPath + String( ls_Key )
  Else
    ls_ChildPath = ls_RootPath + String( ll_I )
  End If
  ljs_type = ljs_par.GetItemType(ls_ChildPath)
  Choose Case ljs_type
    Case Jsonnumberitem!
      ldc_Value = ljs_par.GetItemNumber(ls_ChildPath)
      If IsNull ( ldc_value ) Then
        ljsn_type = ljs_par.GetNumberType(ls_ChildPath)
        Choose Case ljsn_type
          Case JsonNaN!
            ls_value = "Nan"
          Case JsonPositiveInfinity!
            ls_value = "Infinity"
          Case JsonNegativeInfinity!
            ls_value = "-Infinity"
          Case JsonNumber!
            ls_value = "null"
          Case Else
        End Choose
      Else
        ls_value = String(ldc_value)
      End If
    Case Jsonnullitem!
        ls_value = "null"
  End Choose
  ls_Return += ls_Key + "=" + ls_Value + "~r~n"
Next
If IsValid ( ljs_par ) Then Destroy ( ljs_par )

See also

GetItemArray

GetItemArrayJSONString

GetItemObjectJSONString