json - SuperObject-すべて抽出

Question

一般的なJSONからすべての「id」メンバー値を取得する方法。それの構造を知らずに。非常に複雑で、サブオブジェクトがたくさんあるからです。すべてのサブオブジェクトをループする必要があります。

繰り返しますが、JSONの例はどこにあるのかを尋ね続ける人々のために。私の質問は、このメンバーが内部にある一般的なJSONから私の場合は「id」のメンバー値を抽出する方法についてです。

Answer 1

どこかから受け取ったJSONの構造がわからない場合は、JSONが「単純な」複合パターンであり、他の複合構造と同じようにトラバースできることに注意することが重要です。次の例では、JSONテキストの完全な構造をトラバースし、「id」という名前のメンバーのパスを出力します。

procedure ParseJSON;
var
  JSONText: string;
  JSON: ISuperObject;
begin
  // Retrieve JSON as a string into JSONText variable any way you like.
  JSON := SO(JSONText);
  ProcessObject(JSON.AsObject);
end;

procedure ProcessObject(const aAsObject: TSuperTableString; const aPrefix: string = '');
var
  Names: ISuperObject;
  Name: string;
  Items: ISuperObject;
  Item: ISuperObject;
  idx: Integer;
  Value: string;
  ArrayItem: ISuperObject;
begin
  if Assigned(aAsObject) then
  begin
    Names := aAsObject.GetNames;
    Items := aAsObject.GetValues;

    for idx := 0 to Items.AsArray.Length - 1 do
    begin
      Name := Names.AsArray[idx].AsString;
      Item := Items.AsArray[idx];
      if Item.DataType = stObject then
        Value := '<Object>'
      else if Item.DataType = stArray then
        Value := '<Array>'
      else
        Value := Item.AsString;

      if SameText(Name, 'id') then
        WriteLn(Format('%s: %s', [aPrefix + Name, Value]));

      if Item.DataType = stArray then
        for ArrayItem in Item do
          ProcessObject(ArrayItem.AsObject, aPrefix + Name + '.');

      if Item.DataType = stObject then
        ProcessObject(Item.AsObject, aPrefix + Name + '.');
    end;
  end;
end;