به شکل زیر عمل کنید. چون جیسون شما آرایه اس بنابراین باید خروجیتونم آرایه باشه. اول دو ساب زیر رو اضافه کنید
Private Sub generateArray(jsons() As PersianJSONOBject) As PersianJSONArray
Dim st As StringBuilder
st.Initialize
st.Append("[")
For i=0 To jsons.Length-1
Dim prjsonobj As PersianJSONOBject=jsons(i)
st.Append(prjsonobj.toString)
If i<jsons.Length-1 Then st.Append(",")
Next
st.Append("]")
Dim prjson As PersianJSONArray
prjson.initialize(st.ToString)
Return prjson
End Sub
Private Sub generateGson(code As String,tedad As Int) As PersianJSONOBject
Dim prjson As PersianJSONOBject
prjson.initialaizJsonObject
prjson.putToJSON("code",code)
prjson.putToJSON("tedad",tedad)
Return prjson
End Sub
حالا به این شکل جیسون اصلی رو تولید کنید.
Dim prjson1 As PersianJSONOBject=generateGson("fgfhfh",5)
Dim prjson2 As PersianJSONOBject=generateGson("hjsfhgsfd",10)
Dim prjson As PersianJSONArray=generateArray(Array As PersianJSONOBject(prjson1,prjson2))
Log(prjson.toString)