Do While True
GetTextValueFromKey(jsontext, "id", LastIndex, buffer, MaxSize)
If buffer.Length = 0 Then Exit
Log("id: ", buffer)
GetTextValueFromKey(jsontext, "time", LastIndex, buffer, MaxSize) 'order of elements is important as it goes forward all the time
Log("time: ", buffer)
Loop
Log("end...")
Do Until buffer = ""
GetTextValueFromKey(Job.Response, "command", LastIndex, buffer, MaxSize)
Dim command() As Byte = buffer
Log("buffer:", buffer)
GetTextValueFromKey(Job.Response, "val", LastIndex, buffer, MaxSize)
Dim value As String = Main.bc.StringFromBytes(buffer)
Log("buffer:", buffer)
Loop
It says GetTextValueFromKey is an undeclared variable, I assume this means that I am missing a library reference? Can you let me know which library I need to reference, or could you let me know where I can look up the functions to find out which library they reside in.
Two methods to help parse JSON strings: Sub Process_Globals Public Serial1 As Serial Private jsontext() As Byte = "{ ""id"": ""84F3EBE3621A"", ""name"": ""Kitchen"", ""get_status"": ""0,1,1,1,0,1,1,0"", ""set_status"": ""0,1,1,1,0,1,1,0"", ""get"": { ""index"": 8, ""value"": 1...