|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Как распарсить json
Приветствую, подскажите, как распарсить такой json. Нужно получить значения "name", "value" в "salePrices" которое и значение "href" в "images".
У меня получается только "name" забрать, а во вложенных не получается. Код HTML:
|
#2
|
||||
|
||||
Цитата:
Код:
var JSON: TJSONObject; begin JSON:=TJSONObject.ParseJSONValue(cJsonStr,False, True) as TJSONObject; try ShowMessage(JSON.Values['firstName'].Value); ShowMessage(JSON.Values['lastName'].Value); finally JSON.Free; end; end; |
#3
|
|||
|
|||
А толку...
Допустим первое значение я парсю так Код:
var JSON: TJSONObject; JSONArray: TJSONArray; i: Integer; begin JSON := TJSONObject.ParseJSONValue(Memo.Lines.Text) as TJSONObject; Memo.Text:=''; JSONArray := TJSONArray(JSON.Get('rows').JsonValue); for i := 0 to JSONArray.Size - 1 do begin Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('name')).JsonValue.Value); end; end; |
#4
|
|||
|
|||
Ты спотыкаешься, потому что у тебя в salePrices массив, а не одиночный объект. Вот так все работает:
Код:
uses System.JSON; procedure TForm1.Button1Click(Sender: TObject); var I : Integer; str : String; json : TJSONObject; _rows : TJSONArray; S : String; begin str := Memo1.Lines.Text; json := TJSONObject.ParseJSONValue(str) as TJSONObject; _rows := json.GetValue('rows') As TJSONArray; For I := 0 To _rows.Count-1 Do Begin S := 'name = ' + (_rows.Items[i] As TJSonObject).Values['name'].Value + #13#10; S := S + 'salePrices[0].value = ' + (((_rows.Items[i] As TJSonObject).Values['salePrices'] As TJSonArray).Items[0] As TJSonObject).Values['value'].Value + #13#10; S := S + 'images.mets.href = ' + (((_rows.Items[i] As TJSonObject).Values['images'] As TJSonObject).Values['meta'] As TJSonObject).Values['href'].Value; ShowMessage(S); End; json.Free; end; PS. Не красиво, зато понятно откуда куда ноги растут. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
pikabu (30.12.2020)
|
#5
|
|||
|
|||
Спасибо, за путь истинный.
|