Sub GetTextValueFromKey (json() As Byte, Key() As Byte, primKey() As Byte, StartIndex As Long) As Byte()
Dim bc As ByteConverter
Dim resultbuff() As Byte
Dim qkey() As Byte = JoinBytes(Array(quotearray, Key, quotearray))
Dim i As Int = bc.IndexOf2(json, qkey, StartIndex)
If i = -1 Then
bc.ArrayCopy(Array As Byte(), resultbuff)
Return resultbuff
End If
Dim i1 As Int = i + qkey.Length + 2
Dim i2 As Int = bc.IndexOf2(json, quotearray, i1 + 1)
Log("data ",bc.SubString2(json,i1,i2))
Dim s() As Byte = bc.SubString2(json,i1,i2)
Log("s : ",s)
bc.ArrayCopy(s, resultbuff)
Log("resBuff : ",resultbuff)
Return resultbuff
End Sub