• Create empty array

    By Rombs H Salpagarov 1 decade ago

     

    I modify function in lib "ls.snapps.JSONWrapperConverters". After that I can add emty array.

    Code of path bellow:

    Public Function ToJSON As String

'returns a JSON string representing the object

Dim jsonWriter As JSONWriter

Dim sReturn As String

Dim sType As String

 

On Error Goto ErrorHandler

 

Set jsonWriter = New JSONWriter

sReturn = sReturn & jsonWriter.BeginArray

If IsEmpty(Me.m_vData) Then

'sReturn = sReturn & jsonWriter.AppendValue("")

Else

ForAll i In Me.m_vData

sType = TypeName(i)

If sType = "JSONOBJECT" Or sType = "JSONARRAY" Then

sReturn = sReturn & jsonWriter.AppendJSON(i.ToJSON)

Else

sReturn = sReturn & jsonWriter.AppendValue(i)

End If

End ForAll

End If

sReturn = sReturn & jsonWriter.EndArray

ToJSON = sReturn

Done:

Exit Function

ErrorHandler:

Call Me.RaiseError(Error)

End Function