mvanryn/VTScada-Scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add JSON-EC-Processor.SRC

Browse Source
This commit is contained in:
Michael Van Ryn 2024-02-22 10:32:48 -07:00
parent 8a313ddc2b
commit 57790d44a9
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
JSON-EC-Processor.SRC Normal file
View File

@ -0,0 +1,71 @@
{=========================== CustomJSONProcessor =============================}
{ Custom JSON data processor for the JSONXMLDriver - Env Canada History Data }
{ Processes Historical DISCHARGE & Level data with Timestamps }
{=============================================================================}
(
Data;
UniqueID;
)
[
CONSTANT IsJSONXMLProcessor = TRUE;
DrawLabel = "Env Can JSON Processor";
NewData;
TimeValuePair Struct [
Timestamp;
Value;
];
DateTime;
DateTimeVTS;
i; {for loop pointer}
r; {records retured in JSON}
]
Main [
If 1;
[
r = Data.numberReturned; {only process returned records}
DateTime = New(r);
DateTimeVTS = New(r);
i = 0;
WhileLoop(i < r ,
DateTime[i] = Data.features[i].properties.DATETIME;
DateTimeVTS[i] = (datenum(substr(DateTime[i],8,2),substr(DateTime[i],5,2),substr(DateTime[i],0,4))*86400) +
(substr(DateTime[i],11,2)*3600) + (substr(DateTime[i],14,2)*60) + substr(DateTime[i],17,2);
i++);
NewData = Dictionary();
NewData["STATION_NUMBER"] = Data.features[0].properties.STATION_NUMBER;
NewData["STATION_NAME"] = Data.features[0].properties.STATION_NAME;
NewData["NEWEST_TIMESTAMP"] = Data.features[0].properties.DATETIME;
NewData["RECORDS_RETURNED"] = r;
NewData["DISCHARGE"] = Data.features[0].properties.DISCHARGE;
NewData["DISCHARGE:History"] = TimeValuePair(New(r), New(r));
i = 0;
WhileLoop(i < r ,
NewData["DISCHARGE:History"].Value[r-i-1] = Data.features[i].properties.DISCHARGE;
NewData["DISCHARGE:History"].Timestamp[r-i-1] = DateTimeVTS[i];
i++);
NewData["LEVEL"] = Data.features[0].properties.LEVEL;
NewData["LEVEL:History"] = TimeValuePair(New(r), New(r));
i = 0;
WhileLoop(i < r ,
NewData["LEVEL:History"].Value[r-i-1] = Data.features[i].properties.DISCHARGE;
NewData["LEVEL:History"].Timestamp[r-i-1] = DateTimeVTS[i];
i++);
NewData["UniqueID"] = UniqueID;
NewData["Timestamp"] = "Not a timestamp";
Return(NewData);
]
]