菜单 搜索
首页 前端知识 【Delphi 爬虫库 2】使用封装好的 JSON 解析库对 JSON 数据进行解析

【Delphi 爬虫库 2】使用封装好的 JSON 解析库对 JSON 数据进行解析

2024-06-26 23:06:07 前端知识 前端哥 711 738 我要收藏

当我们使用GET或POST方法获取到JSON数据时，我们需要对其进行解析。倘若我们使用现有的JSON解析库，这一过程将变得异常简单。在前文中，我们获得了一个翻译结果的JSON数据，具体如下所示

{“sessionUuid”:“translate_uuid1713086664116”,“translate”:{“errCode”:0,“errMsg”:“”,“sessionUuid”:“translate_uuid1713086664116”,“source”:“en”,“target”:“zh”,“records”:[{“sourceText”:“apple”,“targetText”:“苹果”,“traceId”:“523c2dad78254f73afba4a42e618940d”}],“full”:true,“options”:{}},“dict”:null,“suggest”:null,“errCode”:0,“errMsg”:“ok”}

格式化一下方便观看:

{
  "sessionUuid": "translate_uuid1713086664116",
  "translate": {
    "errCode": 0,
    "errMsg": "",
    "sessionUuid": "translate_uuid1713086664116",
    "source": "en",
    "target": "zh",
    "records": [
      {
        "sourceText": "apple",
        "targetText": "苹果",
        "traceId": "523c2dad78254f73afba4a42e618940d"
      }
    ],
    "full": true,
    "options": {}
  },
  "dict": null,
  "suggest": null,
  "errCode": 0,
  "errMsg": "ok"
}

我们需要提取的是 “targetText”:“苹果” 这段信息。有两种方法可以将其提取出来。一种方法是简单地对字符串进行提取，而另一种方法则是解析JSON数据。当数据内容非常复杂，需要提取许多数组时，我们只能借助解析JSON数据的方法。

方法一：
通过检索 苹果 前后的特定字符串来进行提取。
以下是一个提取字符串的示例函数：

function ExtractBetween(const Source, StartDelimiter, EndDelimiter: string): string;
var
  StartPos, EndPos: Integer;
begin
  Result := '';
  // 查找起始分隔符的位置
  StartPos := Pos(StartDelimiter, Source);
  if StartPos > 0 then
  begin
    // 查找结束分隔符的位置
    EndPos := Pos(EndDelimiter, Copy(Source, StartPos + Length(StartDelimiter), MaxInt));
    if EndPos > 0 then
    begin
      // 调整结束分隔符的位置
      EndPos := EndPos + StartPos - 1;
      // 截取中间部分
      Result := Copy(Source, StartPos + Length(StartDelimiter), EndPos - StartPos);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text:= ExtractBetween(Memo1.Text, '“targetText”:“', '”,');// 返回 苹果
end;

方法二：
通过JSON解析库来对JSON数据进行解析，我们观察苹果的位置可以看到translate=>records[0]=>targetText

procedure TForm1.Button2Click(Sender: TObject);
var
  X: ISuperObject;
  NewJSon: ISuperObject;
  NewArray: ISuperArray;
begin
  X := SO(Memo1.Text);
  Memo2.Text:=  X['translate.records[0].targetText'].AsString;
end;

JSON数据已经被成功解析。在此处，我们有必要深入了解JSON的语法以及如何使用JSON解析库来对JSON数据进行全面解析。

一、JSON简介

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写。同时也易于机器解析和生成。

1、JSON 语法规则

  • 数据在名称/值当中
  • 数据由逗号分隔
  • 大括号 { } 保存对象
  • 中括号 [ ] 保存数组，数组可以包含多个对象
  • JSON 数据的书写格式是：key : value
  • 名称/值对包括字段名称（在双引号中），后面写一个冒号，然后是值：“name” : “名称”

2、JSON值类型

  • 数字（整数或浮点数）：{ “age”:30 }

  • 字符串（在双引号中）：｛ “name”:“名称” ｝

  • 逻辑值（true 或 false）：{ “flag”:true }

  • 数组（在中括号中）：下面例子中，对象 sites 是包含三个对象的数组。每个对象代表一条关于某个网站（name、url）的记录。

    {
    "sites": [
        { "name":"百度" , "url":"www.baidu.com" }, 
        { "name":"google" , "url":"www.google.com" }, 
        { "name":"微博" , "url":"www.weibo.com" }
    ]
}

  • 对象（在大括号中）：上面例子都是对象

  • null：JSON 可以设置 null 值{ "value":null }

二、JSON解析库使用教程

1、简单生成JSON

假设我们想生成下面的JSON数据

{
  "name": "Onur YILDIZ", 
  "vip": true,
  "telephones": ["000000000", "111111111111"],
  "age": 24,
  "size": 1.72,
  "adresses": [
    {
      "adress": "blabla",
      "city": "Antalya",
      "pc": 7160
    },
    {
      "adress": "blabla",
      "city": "Adana",
      "pc": 1170
    }
  ]
}

在Delphi中实现上方JSON对象，我们只需要

procedure TForm1.Button3Click(Sender: TObject);
var
  X: ISuperObject;// 声明对象
begin
  X := SO;
    // X.S[""]表示字符串,注意:虽然json中name两边是双引号但是这里使用单引号
  X.S['name'] := 'Onur YILDIZ';
    // X.B[""]表示布尔类型
  X.B['vip'] := true;
    // X.A[""]表示数组
  with X.A['telephones'] do
  begin
    Add('000000000');
    Add('111111111111');
  end;
    // X.I[""]表示整数
  X.I['age'] := 24;
    // X.F[""]表示浮点数
  X.F['size'] := 1.72;
    //下面演示了两种添加数组成员的方式
  with X.A['adresses'].O[0] {Auto Create} do //X.O[""]表示ISuperObject对象
  begin
    S['adress'] := 'blabla';
    S['city'] := 'Antalya';
    I['pc'] := 7160;
  end;
  // or
  X.A['adresses'].O[1].S['adress'] := 'blabla';
  X.A['adresses'].O[1].S['city'] := 'Adana';
  X.A['adresses'].O[1].I['pc'] := 1170;
  //显示数据,观察生成的JSON数据是否是想要的
  Memo1.text:= X.AsJSON;
end;

2、简单解析JSON

有下面一段JSON数据（已经做了格式化方便观看），我们需要解析它。

{
  "o": {
    "1234567890": {
      "last use date": "2010-10-17T01:23:20.000",
      "create date": "2010-10-17T01:23:20.000",
      "name": "iPhone 8s"
    }
  },
  "Index": 0,
  "Data": {
    "Index2": 1
  },
  "a": [
    {
      "last use date": "2010-10-17T01:23:20.000",
      "create date": "2010-11-17T01:23:20.000",
      "name": "iPhone 8s",
      "arr": [
        1,
        2,
        3
      ]
    },
    {
      "message": "hello"
    }
  ]
}

解析JSON代码：

procedure TForm1.Button4Click(Sender: TObject);
const
  JSON = '{ "o": { '+
         '    "1234567890": {'+
         '    "last use date": "2010-10-17T01:23:20",'+
         '    "create date": "2010-10-17T01:23:20",'+
         '    "name": "iPhone 8s"'+
         '        }'+
         '  },'+
         '  "Index": 0, '+
         '  "Data": {"Index2": 1}, '+
         '  "a": [{'+
         '    "last use date": "2010-10-17T01:23:20",'+
         '    "create date": "2010-11-17T01:23:20",'+
         '    "name": "iPhone 8s",'+
         '    "arr": [1,2,3] '+
         '  }, '+
         '  {'+
         '    message: "hello"'+
         '  }]'+
         '}';

var
  X: ISuperObject;
  NewJSon: ISuperObject;
  NewArray: ISuperArray;
begin
  X := SO(JSON);
  ShowMessage( X['o."1234567890"."last use date"'].AsString );
  ShowMessage( X['a[Index]."create date"'].AsString );
  ShowMessage( X['a[Data.Index2]."message"'].AsString );
  X['a[0].arr'].AsArray.Add('test1');
  // 根据JSON中的数据生成新的NewJSON
  NewJSON := X['{a: a[Index], b: a[Data.Index2].message, c: o."1234567890".name, d: 4, e: a[0].arr[2], f: " :) "}'].AsObject;
  NewArray := X['[a[Index], a[Data.Index2].message, Data.Index2, Index, 1, "1", "test"]'].AsArray;
end;

解析只需要根据对象的一层一层嵌套写出解析字符串即可，当然也要注意数组。
像1234567890这种成员是需要在两边加双引号的，不然可能会运行出错。

3、Where 过滤

一个数组中有多个成员，而我们只需要满足特定条件的成员，这里可以使用Where 来做过滤。

procedure TForm1.Button5Click(Sender: TObject);
var
  FilterJSON: ISuperObject; // 声明一个变量 FilterJSON，类型为 ISuperObject
begin
  // 使用 SO 函数创建一个 JSON 对象，并将其赋值给 FilterJSON 变量
  FilterJSON := SO('{ Table: [ ' +
    '   { ' +
    '      Name: "Sakar SHAKIR", ' +
    '      Sex: "M",  ' +
    '      Size: 1.75 ' +
    '   }, ' +
    '   {  ' +
    '      Name: "Bulent ERSOY", ' +
    '      Sex: "F",  ' +
    '      Size: 1.60 ' +
    '   }, ' +
    '   { ' +
    '      Name: "Cicek ABBAS", ' +
    '      Sex: "M",  ' +
    '      Size: 1.65 ' +
    '   } ' +
    '  ] ' +
    '}');
  // 将筛选后的 JSON 数据添加到 Memo1 控件的行中
  Memo1.Lines.Add(
    // 使用 Where 函数筛选 Table 数组中的元素
    FilterJSON.A['Table'].Where(
    // 定义一个匿名函数，参数类型为 IMember
    function(Arg: IMember): Boolean
    begin
      // 获取当前元素的对象表示，并使用 with 块简化代码
      with Arg.AsObject do
        // 返回布尔值，判断条件是性别为男性且身高大于1.60米
        Result := (S['Sex'] = 'M') and (F['Size'] > 1.60)
    end).AsJSON
    );
end;

返回:

[
{
“Name”:“Sakar SHAKIR”,
“Sex”:“M”,
“Size”:1.75
},
{
“Name”:“Cicek ABBAS”,
“Sex”:“M”,
“Size”:1.65
} ]

4、Delete 删除

与Where 过滤类似，过滤是根据条件提取出来，删除则是根据条件删掉后再把剩下的成员提取出来，都是对数组成员的筛选

procedure TForm1.Button6Click(Sender: TObject);
var
  FilterJSON: ISuperObject;
begin
  FilterJSON := SO('{ Table: [ ' +
    '   { ' +
    '      Name: "Sakar SHAKIR", ' +
    '      Sex: "M",  ' +
    '      Size: 1.75 ' +
    '   }, ' +
    '   {  ' +
    '      Name: "Bulent ERSOY", ' +
    '      Sex: "F",  ' +
    '      Size: 1.60 ' +
    '   }, ' +
    '   { ' +
    '      Name: "Cicek ABBAS", ' +
    '      Sex: "M",  ' +
    '      Size: 1.65 ' +
    '   } ' +
    '  ] ' +
    '}');
  Memo1.Lines.Add(
    FilterJSON.A['Table'].Delete(
    function(Arg: IMember): Boolean
    begin
      with Arg.AsObject do
        Result := (S['Sex'] = 'M') and (F['Size'] > 1.60)
    end).AsJSON
    );
end;

返回:

[
{
“Name”:“Bulent ERSOY”,
“Sex”:“F”,
“Size”:1.6
} ]

5、Sorting 排序

我们可以根据对象名或者数组中的元素值来排序

procedure TForm1.Button7Click(Sender: TObject);
var
  X: ISuperObject; // 声明一个变量 X，类型为 ISuperObject
  A: ISuperArray; // 声明一个变量 A，类型为 ISuperArray
begin
  // 使用 SO 函数创建一个 JSON 对象，并将其赋值给变量 X
  X := SO('{b:1, a:2, d:4, c:2}');
  // 显示 X 对象的 JSON 表示形式
  ShowMessage(X.AsJSON);
  // 对 X 对象进行排序，根据成员的名称进行排序
  X.Sort(
    function(Left, Right: IMember): Integer
    begin
      // 使用 CompareText 函数比较成员名称的字典顺序
      Result := CompareText(Left.Name, Right.Name);
    end);
  // 再次显示排序后的 X 对象的 JSON 表示形式
  ShowMessage(X.AsJSON);

  // 使用 SA 函数创建一个 JSON 数组，并将其赋值给变量 A
  A := SA('[{index:3}, {index:4}, {index:2}, {index:1}]');
  // 显示 A 数组的 JSON 表示形式
  ShowMessage(A.AsJSON);
  // 对 A 数组进行排序，根据对象内的 index 属性值进行排序
  A.Sort(
    function(Left, Right: IMember): Integer
    begin
      // 使用 CompareValue 函数比较对象内的 index 属性值
      // CompareValue函数在System.Math单元中
      Result := CompareValue(Left.AsObject.I['index'], Right.AsObject.I['index']);
    end);
  // 再次显示排序后的 A 数组的 JSON 表示形式
  ShowMessage(A.AsJSON);
end;

返回:

{“b”:1,“a”:2,“d”:4,“c”:2}
{“a”:2,“b”:1,“c”:2,“d”:4}
[{“index”:3},{“index”:4},{“index”:2},{“index”:1}]
[{“index”:1},{“index”:2},{“index”:3},{“index”:4}]

6、Variant 可变类型

可直接对X.V[‘’] 这种直接赋值可变的类型，生成JSON数据的时候可以自动识别赋值的是哪种类型。简直就是懒人必备，特别适合我们。

var 
  X: ISuperObject;
begin 
  X := TSuperObject.Create;
  X.V['A'] := 1;
  X.V['B'] := '2';
  X.V['C'] := 1.3;
  X.V['D'] := False;
  X.V['E'] := Null;
  X.V['F'] := Now;
  Memo1.Lines.Add(X.AsJSON);
end;

返回:

{
“A”: 1,
“B”: “2”,
“C”: 1.3,
“D”: false,
“E”: null,
“F”: “2014-05-03T03:25:05.059” }

7、Loops 循环遍历

可以对数组的所有成员进行循环遍历。

procedure TForm1.Button9Click(Sender: TObject);
const
  // 定义一个常量 JSN，存储包含 JSON 数据的字符串
  JSN = '{ ' +
    ' "adresses": [ ' +
    '   { ' +
    '     "adress": "blabla", ' +
    '     "city": "Antalya", ' +
    '     "pc": 7160 ' +
    '   },' +
    '   { ' +
    '     "adress": "blabla", ' +
    '     "city": "Adana", ' +
    '     "pc": 1170 ' +
    '   } ' +
    ' ] ' +
    '}';
var
  X, Obj: ISuperObject; // 声明两个变量 X 和 Obj，类型为 ISuperObject
  J: Integer; // 声明一个整型变量 J
begin
  // 使用 TSuperObject 类的 Create 方法将 JSON 字符串转换为 SuperObject 对象，并将其赋值给变量 X
  X := TSuperObject.Create(JSN);
  // 遍历地址数组
  with X.A['adresses'] do
    for J := 0 to Length - 1 do
    begin
      // 获取当前索引处的地址对象，并赋值给变量 Obj
      Obj := O[J];
      // 将 Obj 对象的迭代器移动到第一个成员
      Obj.First;
      // 遍历 Obj 对象的所有成员
      while not Obj.EoF do
      begin
         // 将当前成员的键和值输出到 Memo1 控件的一行中
        Memo1.Lines.Add(Obj.CurrentKey + ' = ' + VarToStr(Obj.CurrentValue.AsVariant));
         // 将 Obj 对象的迭代器移动到下一个成员
        Obj.Next;
      end;
      Memo1.Lines.Add('------');
    end;
end;

返回：

adress = blabla
city = Antalya
pc = 7160

adress = blabla
city = Adana
pc = 1170

还有一种枚举遍历的方法，一样的效果。

const
  // 定义一个常量 JSN，存储包含 JSON 数据的字符串
  JSN = '{ ' +
    ' "adresses": [ ' +
    '   { ' +
    '     "adress": "blabla", ' +
    '     "city": "Antalya", ' +
    '     "pc": 7160 ' +
    '   },' +
    '   { ' +
    '     "adress": "blabla", ' +
    '     "city": "Adana", ' +
    '     "pc": 1170 ' +
    '   } ' +
    ' ] ' +
    '}';
var
  X: ISuperObject;
  AMember, OMember: IMember;
begin
  X := TSuperObject.Create(JSN);
  for AMember in X.A['adresses'] do
  begin
    for OMember in AMember.AsObject do
      Memo1.Lines.Add(OMember.Name + ' = ' + OMember.ToString);
    Memo1.Lines.Add('------');
  end;
end;

8、JSON与Delphi类互相转换

让JSON数据与类直接关联匹配。

type
  TSubClass = class
    A: Integer;
    B: Integer;
  end;

  TMyClass = class
  private
    FField: Integer;
    FSampler: string;
    FSubClass: TSubClass;
  published
    property field: Integer read FField write FField;
    property subClass: TSubClass read FSubClass write FSubClass;
  end;

implementation
  
procedure TForm1.Button11Click(Sender: TObject);
var
  MyClass: TMyClass;
  S: string;
begin
  Memo1.Lines.Clear;
  //根据json数据直接对MyClass对象赋值
  MyClass := TMyClass.FromJSON('{"field":12,"subClass":{"A":208,"B":39}}');
  //测试赋值是否成功
  if MyClass.field = 12 then
    Memo1.Lines.Add('MyClass.field has the correct value of 12');
  if Assigned(MyClass.subClass) and (MyClass.subClass.A = 208) then
    Memo1.Lines.Add('MyClass.subClass.A has the correct value of 208');
  S := MyClass.AsJSON;
  Memo1.Lines.Add(S);

  //通过修改MyClass对象来实现JSON数据的修改
  if not Assigned(MyClass.subClass) then
    MyClass.subClass := TSubClass.Create;
  MyClass.subClass.A := 345;
  MyClass.subClass.B := 1024;

  S := MyClass.AsJSON;
  Memo1.Lines.Add(S);
end;
转载请注明出处或者链接地址：https://www.qianduange.cn//article/13629.html
标签
爬虫
上一篇：HTML基本结构及基本标签
评论
相关文章

前端哥

前端哥

发布的文章

HTML5生日蛋糕网页设计与制作 生日祝福制作代码 生日快乐网页模板【生日蛋糕树】HTML CSS JavaScript html七夕情人节网页制作

2024-06-30 22:06:34

HTML5五十六个民族网站模板源码

2024-06-30 22:06:14

Markdown基础与进阶语法

2024-06-30 22:06:12

零基础 HTML 入门（详细）

2024-06-30 22:06:09

Qt中使用QWebEngineView控件加载HTML及常见问题解答

2024-06-30 22:06:08

HTML、JavaScript连接MySQL数据库以及对数据库的表进行修改

2024-06-30 22:06:08

html将复选框变为圆形样例

2024-06-30 22:06:57

HTML CSS仿淘宝商城商品栏模块

2024-06-30 22:06:55

两种风格的纯CSS3加载动画

2024-06-30 22:06:53

CSS3基本语法

2024-06-30 22:06:51

大家推荐的文章
1

在HTML和CSS当中运用显示隐藏

2024-06-17 09:06:541000
2

成为优秀的TS体操高手 之 TS 类型体操前置知识储备

2024-06-10 11:06:351000
3

django改了html网页没有变化,,前端页面居然没有对应变化?!修改了css文件但是前端页面没有反应

2024-06-06 10:06:201000
4

html简单网页代码：基于html关爱空巢老人网页设计与实现

2024-06-04 10:06:181000
5

jquery实现注册表单验证（仅供参考）

2024-06-07 00:06:411000
6

基于Echarts的高校就业数据可视化管理系统设计与实现（计算机毕业设计源码81461）

2024-05-29 10:05:301000
7

VUE3 Vite Pinia TypeScript项目笔记

2024-05-20 14:05:191000
8

轻松掌握数据库中JSON数据提取：json_extract函数用法详解

2024-05-09 11:05:011000
9

HTML5(六)——Canvas 高级操作

2024-05-09 10:05:191000
10

UE4.27支持HTML5

2024-05-07 13:05:261000

rss订阅 百度xml 谷歌xml 搜狗xml soxml 神马搜索xml 网站地图

Copyright © 2018-2022 前端哥 陕ICP备2023000550号-1 前端哥

讲个笑话：程序员心理活动：看别人的代码，这都写得什么玩意儿，垃圾！！看自己一个月前的代码：这TM谁写得代码，垃圾！再一看，这代码怎么这么眼熟？我自己写得？仔细一看，卧槽！还TM的真是我自己写的！！

前端技术交流源码工具分享网站

会员中心 联系我 留言建议 回顶部
复制成功！