--- a
+++ b/trunk/Data Types/JSONVAR/AsString/Set/svnobj
@@ -0,0 +1,42 @@
+Gx_ló!0…jüo	¶}>¾¶-ZªDSystem.StringL{792f2eb6-721e-4e64-ba20-bc98351056db}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
+longTagText
ZIF (ValueType = JSONVALUETYPE.json_null) THENˆ//if the type is not explicitly configured, make a guess at the type@	IF ISNUMBER(ADR(AsString)) THENR		_ValueType:= JSONVALUETYPE.json_number;H	ELSIF ISBOOLEAN(ADR(AsString)) THENT		_ValueType:= JSONVALUETYPE.json_boolean;:	ELSIF (AsString = null) THENN		_ValueType:= JSONVALUETYPE.json_null;
+	ELSER		_ValueType:= JSONVALUETYPE.json_string;	END_IFEND_IF$CASE _ValueType OF0JSONVALUETYPE.json_null:*	THIS^.Null:= 'null';6JSONVALUETYPE.json_boolean:L	StrToUpperA(pString:= ADR(AsString));8	IF (AsString = 'TRUE') THEN $		TempBool:= TRUE;!&		TempBool:= FALSE;"4	THIS^.Boolean:= TempBool;#4JSONVALUETYPE.json_number:$J	TempReal:= STRING_TO_REAL(AsString);%2	THIS^.Number:= TempReal;&4JSONVALUETYPE.json_string:':	THIS^.CharString:= AsString;(END_CASE)Interface*L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}+VAR, 	TempBool:	BOOL;- 	TempReal:	REAL;.	TempInt:	DINT;/2	TempString:	STRING(255);0END_VAR1
+IsGet2boolÐÐÐEÐÐ	
+­pÚÐ-
ÐÐ	
+­bÚÐ-ÐÐ	
+­tÚÐ-ÐÐ	
+­hÚÐ-ÐÐ	
+­iÚÐ-ÐÐ	
+­uÚÐ-ÐÐ	
+­vÚÐ-ÐÐ	
+­jÚÐ-ÐÐ	
+­kÚÐ-ÐÐ	
+­eÚÐ-ÐÐ	
+­oÚÐ-ÐÐ	
+­XÚÐ-ÐÐ	
+­ZÚÐ-ÐÐ	
+­AÚÐ-ÐÐ	
+­%ÚÐ-ÐÐ	
+­ÚÐ-ÐÐ	
+­LÚÐ-ÐÐ	
+­UÚÐ-ÐÐ	
+­QÚÐ-ÐÐ	
+­RÚÐ- ÐÐ	
+­SÚÐ-ÐÐ	
+­TÚÐ-!ÐÐ	
+­)ÚÐ-ÐÐ	
+­	ÚÐ-"ÐÐ	
+­.ÚÐ-#ÐÐ	
+­ÚÐ-$ÐÐ	
+­HÚÐ-%ÐÐ	
+­KÚÐ-&ÐÐ	
+­ÚÐ-'ÐÐ	
+­$ÚÐ-(ÐÐ	
+­ÚÐ-Ð)*ÐEÐÐ	
+­CÚÐ-+ÐÐ	
+­DÚÐ-,ÐÐ	
+­EÚÐ--ÐÐ	
+­FÚÐ-.ÐÐ	
+­ÚÐ-/ÐÐ	
+­ÚÐ-0ÐÐ	
+­ÚÐ-Ð12­
\ No newline at end of file