Json reading array using JSON Management, Variant value to loop throw the values arrey 1 to 10?

spencer_graham@hotmail.com
Member Posts: 11
{
"enum": [
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"10",
]
}
Hello every one¨need your help please :-)
Json reading array using JSON Management, Variant value to loop throw the values arrey 1 to 10?
gJSONMgt.InitializeObject(TempBlob.ReadAsText(CRLF,TEXTENCODING::UTF8));
gJSONMgt.GetJSONObject(gJsonObject);
gJSONMgt.GetArrayPropertyValueFromJObjectByName(gJsonObject,'enum',gJsonArray);
gJSONMgt.InitializeCollectionFromJArray(gJsonArray); //declare collection
FOR Index := 1 TO gJsonArray.Count DO BEGIN
gJSONMgt.GetJObjectFromCollectionByIndex(JCustObject, Index-1); //"extract" a single JObject from the collection
// *** I dont know what to do here.
IF NOT CONFIRM('AliasName = ' + FORMAT(value)) THEN
ERROR('Help');
END;
"enum": [
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"10",
]
}
Hello every one¨need your help please :-)
Json reading array using JSON Management, Variant value to loop throw the values arrey 1 to 10?
gJSONMgt.InitializeObject(TempBlob.ReadAsText(CRLF,TEXTENCODING::UTF8));
gJSONMgt.GetJSONObject(gJsonObject);
gJSONMgt.GetArrayPropertyValueFromJObjectByName(gJsonObject,'enum',gJsonArray);
gJSONMgt.InitializeCollectionFromJArray(gJsonArray); //declare collection
FOR Index := 1 TO gJsonArray.Count DO BEGIN
gJSONMgt.GetJObjectFromCollectionByIndex(JCustObject, Index-1); //"extract" a single JObject from the collection
// *** I dont know what to do here.
IF NOT CONFIRM('AliasName = ' + FORMAT(value)) THEN
ERROR('Help');
END;
0
Answers
-
Replaced *** I dont know what to do here. --> with value := gJsonObject.SelectToken(STRSUBSTNO('enum.[%1]', Index));0
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions