This Library will provides the possibility to serialize and deserialize JSON Files.
Enter:
apax add @simatic-ax/json
to install this package you need to login into the GitHub registry. You'll find more information here
Simatic.Ax.Json;Use the Deserializer class to deserialize JSON documents and parse values from the document.
In the current version we have several restrictions regarding the handling of JSON files.
-
The JSON File must be in the form of a ARRAY [] OF CHAR. Read more in the Workflow part.
-
A valid JSON file ist expected, since there is no validation.
-
, comma " quotation marks : colon [ ] square brackets { } brackets -
The following Datatypes can be parsed:
STRING SINT INT DINT LINT USINT UINT UDINT ULINT
- You need to use the library Simatic.Ax.Conversion and Simatic.Ax.Json;
- The deserializer currently expects an ARRAY[0..999] OF CHAR as a buffer. If your JSON File is a STRING you can use the Simatic.Ax.Conversion as shown in the example below.
- Finally you must set the buffer for the deserializer with the SetBuffer method. The buffer is expected as a reference.
Use the TryParse method to get values that match your provided STRING key . If you want to get values of nested elements you must instead provide a ARRAY [X] OF STRING, with a key for each nested layer.
The datatype TryParse will return depends on the datatype of the value you provide.
If the parsing was succesfull, TryParse returns TRUE, if either the key could not be found or the datatype could not be parsed it returns FALSE. In the case of an unsucesfull parsing, the output value will be '' in case of STRING and 0 in case of any number.
USING Simatic.Ax.Json;
USING Simatic.Ax.Conversion;
### Code Example
[...]
VAR PUBLIC
//pre requirements
deserializer : Deserializer;
buffer : ARRAY[0..999] OF CHAR;
JSON_File: STRING := '{ "key 1" : 123, 'key 2' : {'nestedkey 1' : "456", 'nestedkey 2': {'nestedInNested': 789}}}'; //example of your JSON file
//optional conversion information
arrayLength:= DINT;
//deserializing
parsingWasSuccessfull: BOOL;
key1: STRING := 'key 1'; //example for a single key
value1: INT;
keyArray1: ARRAY [0..1] OF STRING:= ['key 2', 'nestedkey 1']; //example for getting values of a nested element
value2: STRING; //change the datatype to parse different datatypes, e.g. INT
keyArray2: ARRAY [0..1] OF STRING:= ['key 2', 'nestedkey 2', 'nestedInNested'];
value3: DINT;
END_VAR
arrayLength := Strings.ToArray(str := JSON_File, arr := buffer); //Step 2: converts your JSON file string to the required _Array [0.999] OF CHAR_ format
deserializer.SetBuffer(REF(buffer));
// parsingWasSuccessfull is true, value1 is 123
parsingWasSuccessfull:= TryParse(key1, value1);
// parsingWasSuccessfull is true, value2 is 456
parsingWasSuccessfull:= TryParse(keyArray1, value2);
// parsingWasSuccessfull is true, value3 is 789
parsingWasSuccessfull:= TryParse(keyArray2, value3);
// parsingWasSuccessfull is false, value1 is 0
parsingWasSuccessfull:= TryParse('not a key', value3);
[...]
| SetBuffer(REF_TO ARRAY[0..999] OF CHAR); | Provides the JSON file to the deserializer |
| TryParse(input: key (STRING), output: value) : BOOL | Returns false when parsing not succesfull and provides the value. The method is overloaded and accepts different data types. |
| TryParse(input: key(ARRAY OF STRING), output: value) : BOOL | Returns false when parsing not succesfull and provides the value. The method is overloaded and accepts different data types. The key array is used to access values in nested elements. |
The JSON Format allows a user to have duplicate keys in his json document, e.g.
{
"key" : "my value",
"key" : 1234
}However, the norm does not define, how duplicate keys should be processed. In case of a duplicate key, this library will alwys try to parse the first key and ignore the second one.
This example shows in how to create, serialize, parse and reset a JSON document.
USING Simatic.Ax.Conversion;
USING Simatic.Ax.Json;
CONFIGURATION MyConfiguration
TASK Main (INTERVAL := T#100ms, PRIORITY := 1);
PROGRAM P1 WITH Main: MyProgram;
VAR_GLOBAL
SerializedDocument : STRING;
ParsedValue : DINT;
END_VAR
END_CONFIGURATION
PROGRAM MyProgram
VAR_EXTERNAL
SerializedDocument : STRING;
ParsedValue : DINT;
END_VAR
VAR
doc : JsonDocument;
docBuffer : ARRAY[0..200] OF CHAR;
myBoolean : JsonBoolean := (Value := TRUE, Key := 'myBoolean');
myInt : JsonInt := (Value := 1234, Key := 'myInt');
myDint : JsonDInt := (Value := DINT#12345678, Key := 'myDint');
myObject : JsonObject := (Key := 'myObject');
deserializer : Deserializer;
keyFound : BOOL;
dintValue : DINT;
keyArray : ARRAY[0..1] OF STRING := ['myObject', 'myDint'];
step : Steps;
END_VAR
VAR_TEMP
END_VAR
CASE step OF
Steps#CreateDocument2:
// Create nested JSON document which looks like:
// {"myBoolean": true, "myObject": {"myInt": 1234, "myDint": 12345678}}
myObject.AddElement(myInt);
myObject.AddElement(myDint);
doc.AddElement(myBoolean);
doc.AddElement(myObject);
step := Steps#SerializeDocument2;
Steps#SerializeDocument2:
// Serialize the document {"myBoolean": true, "myObject": {"myInt": 1234, "myDint": 12345678}}
doc.buffer := REF(docBuffer);
doc.Serialize(doc.buffer);
SerializedDocument := Arrays.ToString(arr := doc.buffer);
step := Steps#ParseDocument2;
;
Steps#ParseDocument2:
// Parse Document for the value of the nested key `myObject.myDint` and expect `12345678`
// Get Values from a nested element
deserializer.SetBuffer(REF(doc.buffer));
keyFound := deserializer.TryParse(keyArray, dintValue);
ParsedValue := dintValue;
step := Steps#ResetJSonDocument2;
;
Steps#ResetJSonDocument2:
// ResetJSonDocument 2nd configuration
doc.Reset();
step := Steps#CreateDocument2;
;
END_CASE;
END_PROGRAM
TYPE
Steps : (CreateDocument2, SerializeDocument2, ParseDocument2, ResetJSonDocument2) := CreateDocument2;
END_TYPE
A complete application example, you can find here:
Thanks for your interest in contributing. Anybody is free to report bugs, unclear documentation, and other problems regarding this repository in the Issues section or, even better, is free to propose any changes to this repository using Merge Requests.
This workspace will be checked by the markdownlint-cli (there is also documented ho to install the tool) tool in the CI workflow automatically.
To avoid, that the CI workflow fails because of the markdown linter, you can check all markdown files locally by running the markdownlint with:
markdownlint **/*.md --fixPlease read the Legal information