我有這樣的json
{
"TNS-API-KEY": "ABCD134EFG456HIJK678LMNOP",
"docno": "35829",
"idtns": "abc12345",
"action": "6",
"reason": "test -test",
"userid": "450",
"data": [
{
"pr": "STAMP",
"idpr": "7",
"cost": {
"13": {
"13": {
"costingid": "13",
"costid": "13",
"gpro": "BBN_MTR",
"dbp": "10000",
"ppn": "0"
}
}
}
},
{
"pr": "123\/AB\/MIX\/07\/2022",
"idpr": "17461",
"cost": {
"34876": {
"66194": {
"costingid": "34876",
"costid": "66194",
"gpro": "CCL",
"dbp": "1000000",
"ppn": "110000.00"
}
},
"34877": {
"66195": {
"costingid": "34877",
"costid": "66195",
"gpro": "TB",
"dbp": "2000000",
"ppn": "220000.00"
}
}
}
}
]
}
我需要從陣列中的每個 PR 中獲取這些資料
- 成本核算ID
- 成本價
- gpro
- 分貝
- ppn
到目前為止，我已經設法使用這樣的代碼直到資料部分
Dim jsonData As JObject = JObject.Parse(json)
Dim data As String = jsonData.SelectToken("data").ToString()
Dim jsonArray As JArray = JArray.Parse(jsonData.SelectToken("data").ToString)
For Each item As JObject In jsonArray
Dim pr As String = (item.SelectToken("pr").ToString)
Next
那剪斷給了我PR號，知道如何獲取內部資料嗎？
uj5u.com熱心網友回復：
這就是您如何獲取您可能想要轉儲到串列或類似內容中的值的方式。
Dim prList As JArray = JObject.Parse(json)("data")
For Each pr As JObject In prList
Dim prVal As String = pr("pr")
For Each c As JProperty In pr("cost")
Dim data As JObject = DirectCast(c.Value.First, JProperty).Value
Dim costingId As String = data("costingid")
Dim costid As String = data("costingid")
Dim gpro As String = data("gpro")
Dim dbp As String = data("dbp")
Dim ppn As String = data("ppn")
Next
Next
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/525173.html