نمایش اطلاعات جیسون

[میلاد 441]

سلام 

 

اطلاعات جیسون زیر رو چطور نمایش بدم ؟؟

 

 

 

توی نمایش این زیر مشکلی ندارم

 

 

 

[Kazem Forghani 2,927]

سلام

آموزش Json آقای آرتا که در فروشگاه قرار داره رو مشاهده بکنید. به صورت کامل و جامع آموزش دادن این مبحث رو. (نمایش در لیست ویو رو مولتی پنل و ...)

علاوه بر این در این آموزش کار با دیتابیس آنلاین رو هم یاد می گیرید.

موفق باشید

[میلاد 441]

دمو رو نگاه کردم 

 

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

[پژمان نیکروان 6,055]

سلام

ازاین سایت استفاده کنید.

کدهای جیسون تون رو بدید کدهای استخراجش رو میده بهتون.

http://www.basic4ppc.com:51042/json/index.html

[میلاد 441]

سلام

ازاین سایت استفاده کنید.

کدهای جیسون تون رو بدید کدهای استخراجش رو میده بهتون.

http://www.basic4ppc.com:51042/json/index.html

سلام دادا

کدهایی که بهم دادن رو چطوراستفاده کنم ؟فورس کلوز میده

Dim parser As JSONParser 
parser.Initialize(<text>) 
Dim root As Map = parser.NextObject 
Dim result As List = root.Get("result") 
For Each colresult As Map In result 
 Dim update_id As Int = colresult.Get("update_id") 
 Dim message As Map = colresult.Get("message") 
 Dim date As Int = message.Get("date") 
 Dim entities As List = message.Get("entities") 
 For Each colentities As Map In entities 
  Dim offset As Int = colentities.Get("offset") 
  Dim length As Int = colentities.Get("length") 
  Dim type As String = colentities.Get("type") 
 Next 
 Dim chat As Map = message.Get("chat") 
 Dim id As Int = chat.Get("id") 
 Dim type As String = chat.Get("type") 
 Dim first_name As String = chat.Get("first_name") 
 Dim username As String = chat.Get("username") 
 Dim message_id As Int = message.Get("message_id") 
 Dim from As Map = message.Get("from") 
 Dim id As Int = from.Get("id") 
 Dim first_name As String = from.Get("first_name") 
 Dim username As String = from.Get("username") 
 Dim text As String = message.Get("text") 
Next 
Dim ok As String = root.Get("ok")