|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
26.12.2020, 08:26
|
|||
|
|||
Как распарсить json
Приветствую, подскажите, как распарсить такой json. Нужно получить значения "name", "value" в "salePrices" которое и значение "href" в "images".
У меня получается только "name" забрать, а во вложенных не получается. Код HTML:
|
|
#2
26.12.2020, 12:47
|
||||
|
||||
|
Цитата:
Код:
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
26.12.2020, 14:23
|
|||
|
|||
|
А толку...
Допустим первое значение я парсю так Код:
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
29.12.2020, 09:10
|
|||
|
|||
|
Ты спотыкаешься, потому что у тебя в 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)
| ||
Линейный вид
