forum.clarionlife.net

Код: Выделить всё

  Data  
Q_Town   Queue,Type
sName      CString(41) 
Shops      CString(41),Dim(3)
Stadiums   CString(41),Dim(3)
Museums    CString(41),Dim(3)
         end
         
gCountry Group 
sName      CString(41)
qTown      &Q_Town
         end
         
MyTown   Queue(Q_Town).
Object   &cJson

  Code       
  gCountry.SName  = 'Россия'  
  
  Clear(MyTown)
  MyTown.sName    = 'Москва'
  MyTown.Shops[1]    = 'ЦУМ'
  MyTown.Shops[2]    = 'ГУМ'
  MyTown.Stadiums[2] = 'Лужники'
  Add(MyTown)
  
  Clear(MyTown)
  MyTown.sName    = 'Ростов'
  Add(MyTown)
  
  Clear(MyTown)
  Add(MyTown)
  
  gCountry.qTown &= MyTown  
  Object &= json::CreateObject(gCountry,,'[{{"Name":"*","EmptyString":"ignore","IgnoreZero":true,' & |
                                            '"IgnoreEmptyObject":true,"IgnoreEmptyArray":true},'   & |
                                          '{{"Name":"qTown","instance":' & Instance(gCountry.qTown,Thread()) & '}]')
  Message(Object.ToString(True))
  SetClipBoard(Object.ToString(True))
  Object.Delete()

Код: Выделить всё

{
	"sname":	"Россия",
	"qtown":	[{
			"sname":	"Москва",
			"shops":	["ЦУМ",  "ГУМ"],
			"stadiums":	["Лужники"],
			"museums":	[]
		},  {
			"sname":	"Ростов",
			"shops":	[],
			"stadiums":	[],
			"museums":	[]
		},  {
			"shops":	[],
			"stadiums":	[],
			"museums":	[]
		}]
}