这种是json嵌套json,需要做3次解析
dim jo as jobject = jobject.parse(1楼文件内容)
dim s as string = jo("process_instance")("form_component_values")(1)("value").tostring
Dim ja As JArray = JArray.Parse(s)
dim s2 as string = ja(0)("value").tostring
Dim ja2 As JArray = JArray.Parse(s2)
msgbox(jo2(0)("rowValue")(0)("key").tostring)