[r2]: / trunk / Functions / STRUCT_TO_JSON / CreateName / svnobj  Maximize  Restore  History

Download this file

29 lines (29 with data), 2.8 kB

Gx_lö
!0…jüoU±ƒÇóy±¢‚óSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
Ò(*=======================================================================================================CreateName()VAuthor: Tim Van Meppelen, Pro Electric Inc.(timv@proelectric.com$Date: Oct 22, 2018~create a JSON name string from a local variable of type JSONVARÔ========================================================================================================*)IF Format THENr	FOR indent:= 1 TO JSONVars^[jsonvarindex].ParentVar-1 DOd		objectstr:= CONCAT(objectstr, GPL_JSON.INDENT);		END_FOREND_IFfobjectstr:= CONCAT(objectstr, '"');	//opening quotefobjectstr:= CONCAT(objectstr, Name);//variable namešobjectstr:= CONCAT(objectstr, '":');	//closing quote and name:value separatorInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}"METHOD CreateName VAR_INPUT!L	Name:	STRING(GPL_JSON.MAX_NAME_SIZE);"END_VAR#VAR$	indent:		INT;ÐÐÐEÐÐ	
­
ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­zÚÐ-ÐÐ	
­{ÚÐ-ÐÐ	
­|ÚÐ-ÐÐ	
­}ÚÐ-ÐÐ	
­~ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­rÚÐ-ÐÐ	
­sÚÐ-ÐÐ	
­vÚÐ-ÐÐ	
­ÚÐ-ÐÐEÐÐ	
­ÚÐ-ÐÐ	
­xÚÐ- ÐÐ	
­yÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­€ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-