سوال در مورد json

[arman98 14]

با سلام دوستان بنده یه خروجی php دارم که json هستش

توی b4a هرکاری کردم که مقدار Category_ID   رو بگیرم نشد ، لطف کنید راهنمایی بفرمایید که چطور انجامش بدم ؟

این خروجی json

{"data":[{"Category":{"Category_ID":"15","Category_name":"Test","Category_image":"upload\/images\/7203-2018-01-15.jpg"}},{"Category":{"Category_ID":"13","Category_name":"\ufeff\u063a\u0630\u0627\u0647\u0627\u06cc \u0633\u0646\u062a\u06cc- \u062e\u0648\u0631\u0634","Category_image":"upload\/images\/2319-2018-01-15.jpg"}},{"Category":{"Category_ID":"14","Category_name":"\ufeff\u063a\u0630\u0627\u0647\u0627\u06cc \u0633\u0646\u062a\u06cc-\u0627\u0646\u0648\u0627\u0639 \u067e\u0644\u0648","Category_image":"upload\/images\/6290-2018-01-15.jpg"}},{"Category":{"Category_ID":"16","Category_name":"\ufeff\u063a\u0630\u0627\u0647\u0627\u06cc \u0633\u0646\u062a\u06cc-\u06a9\u0628\u0627\u0628","Category_image":"upload\/images\/6757-2018-01-15.jpg"}}]}

 

اینم کد b4a:

	Dim parser As JSONParser
	parser.Initialize(File.ReadString(File.DirAssets, "example.json"))
	Dim root As List = parser.NextObject
Dim colroot As Map = root
	Dim Category As String = colroot.Get("Category_ID")

	Log (Category)

 

[Mr Mansour 325]

ببنید دوست گلم شما کار رو به دو صورت انجام دادید

اول اومدید مقدار رو ریختید تو لیست و بعد ریختید تو map

شما میتونستید از همون لیست هم مقدار هارو بگیرید

اول میای یه حلقه میزنید

بعد اندیس رو میدید به لیست و لیست میاد اطلاعات رو میده بهت

به این شکل

Private name As String
For i = 0 To listData.Size - 1
	name = listData.Get(i)	
Next

 

امیدوارم به جواب برسی

[arman98 14]

ممنون ولی مشکل الان این نیست ، بعد از انجام این کار هم باز وقتی میخوام category_id رو بگیرم در پاسخ Null میده

[مجید آرتا 5,874]

سلام

کد مربوطه »

Dim parser As JSONParser
parser.Initialize(json)
Dim root As Map = parser.NextObject
Dim data As List = root.Get("data")
For Each coldata As Map In data
 Dim Category As Map = coldata.Get("Category")
 Dim Category_name As String = Category.Get("Category_name")
 Dim Category_image As String = Category.Get("Category_image")
 Dim Category_ID As String = Category.Get("Category_ID")
Next 

 

تست کنید.

[arman98 14]

در 14 دقیقه قبل، مجید آرتا گفته است :

سلام

کد مربوطه »

Dim parser As JSONParser
parser.Initialize(json)
Dim root As Map = parser.NextObject
Dim data As List = root.Get("data")
For Each coldata As Map In data
 Dim Category As Map = coldata.Get("Category")
 Dim Category_name As String = Category.Get("Category_name")
 Dim Category_image As String = Category.Get("Category_image")
 Dim Category_ID As String = Category.Get("Category_ID")
Next 

 

تست کنید.

ممنون با کد شما حل شد :

 

Dim parser As JSONParser
  parser.Initialize(File.ReadString(File.DirAssets,"test.txt"))
  Dim root As Map = parser.NextObject
  Dim data As List = root.Get("data")
  For Each coldata As Map In data
    Dim Category As Map = coldata.Get("Category")
    Dim Category_name As String = Category.Get("Category_name")
    Dim Category_image As String = Category.Get("Category_image")
    Dim Category_ID As String = Category.Get("Category_ID")
    Log(Category_name)
  Next