一个xml解析程序

最新推荐文章于 2022-09-28 17:48:52 发布
最新推荐文章于 2022-09-28 17:48:52 发布
阅读量406 收藏
点赞数 1
分类专栏： delphi 文章标签： xml books string integer oo
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Channels_net/article/details/7942719
版权

按照xml 设计规范来讲，xml层数是不固定的，但是在实际应用中，层数是有限多个，但是子节点个数是不固定的。

 

var
  str, OType: string;
  node_ordds_feed, node_Books, node_book: IXMLNode;
  node_Sports, node_Sport, node_Category, node_Category_l, node_Tournaments, node_Tournament, Node_OO: IXMLNode;
  Node_Odds, node_bookx, Node_O: IXMLNode;
  i, j, k, l, ll, m, n, o, p, q, r, s, t: Integer;
  HashedStringList: THashedStringList;
  BooksName: string;
  MD, AT, HT, MID, HO, DO_, AO: string;
  FileName: string;
begin
//
  if OpenDialog1.Execute then begin
    FileName := OpenDialog1.FileName;
  end else Exit;
  sListView.Items.Clear;
  Self.Create_listView;
//
  IndexofList := 0;
  HashedStringList := THashedStringList.Create;
  XMLDocument1.LoadFromFile(FileName);
 // XMLDocument1.LoadFromFile('D:\ftp\oc\ OddsFeed_8591_2012-08-30_08-04-35.xml');
  XMLDocument1.Active := true;
  node_ordds_feed := XMLDocument1.DocumentElement;

  showmessage(node_ordds_feed.NodeName);
//  showmessage(node_1.GetAttributeNS('type', ''));
  for i := 0 to node_ordds_feed.ChildNodes.Count - 1 do begin

    if node_ordds_feed.ChildNodes[i].NodeName = 'GeneratedAt' then begin
      XmlData.OddsFeed.GeneratedAt := node_ordds_feed.ChildNodes[i].NodeValue;
    end else
      if node_ordds_feed.ChildNodes[i].NodeName = 'Books' then begin
        setlength(XmlData.OddsFeed.Books, 1);
        node_Books := node_ordds_feed.ChildNodes[i];
        setlength(XmlData.OddsFeed.Books[0].Book, node_Books.ChildNodes.Count);
        for j := 0 to node_Books.ChildNodes.Count - 1 do begin
          node_book := node_Books.ChildNodes[j];
          for k := 0 to node_book.ChildNodes.Count - 1 do begin
            if node_book.ChildNodes[k].NodeName = 'BID' then begin
              XmlData.OddsFeed.Books[0].Book[j].BID := node_book.ChildNodes[k].NodeValue;
            end else
              if node_book.ChildNodes[k].NodeName = 'Names' then begin
                XmlData.OddsFeed.Books[0].Book[j].Name := node_book.ChildNodes[k].ChildNodes[0].NodeValue;
                HashedStringList.Add(XmlData.OddsFeed.Books[0].Book[j].BID + '=' + XmlData.OddsFeed.Books[0].Book[j].Name);
              end;


          end;


        end;
      end else
        if node_ordds_feed.ChildNodes[i].NodeName = 'OddsData' then begin
          node_Sports := node_ordds_feed.ChildNodes[i].ChildNodes[0];

          setlength(XmlData.OddsData.Sports.Sports, node_Sports.ChildNodes.Count);
          for j := 0 to node_Sports.ChildNodes.Count - 1 do begin
            node_Sport := node_Sports.ChildNodes[j];
            if node_Sport.NodeName = 'Sport' then begin
              setlength(XmlData.OddsData.Sports.Sports[j].Categories, 1);
              for k := 0 to node_Sport.ChildNodes.Count - 1 do begin
                if node_Sport.ChildNodes[k].NodeName = 'Names' then begin
                  XmlData.OddsData.Sports.Sports[j].SportName := node_Sport.ChildNodes[k].ChildNodes[0].NodeValue;
                end else
                  if node_Sport.ChildNodes[k].NodeName = 'Categories' then begin
                    if XmlData.OddsData.Sports.Sports[j].SportName = 'Soccer' then begin
                      node_Category := node_Sport.ChildNodes[k];
                      setlength(XmlData.OddsData.Sports.Sports[j].Categories[0].Category, node_Category.ChildNodes.Count);
                      for l := 0 to node_Category.ChildNodes.Count - 1 do begin
                        for ll := 0 to node_Category.ChildNodes[l].ChildNodes.Count - 1 do begin
                          node_Category_l := node_Category.ChildNodes[l].ChildNodes[ll];
                      //    Memo1.Lines.Add('1-:' + node_Category_l.NodeName);
                          if node_Category_l.NodeName = 'Names' then begin
                            XmlData.OddsData.Sports.Sports[j].Categories[0].Category[l].Name := node_Category_l.ChildNodes[0].NodeValue;
                          end else
                            if node_Category_l.NodeName = 'Tournaments' then begin
                              for m := 0 to node_Category_l.ChildNodes.Count - 1 do begin
                                Memo1.Lines.Add('2: id' + node_Category_l.ChildNodes[m].GetAttributeNS('id', ''));

                                node_Tournaments := node_Category_l.ChildNodes[m];
                                for n := 0 to node_Tournaments.ChildNodes.Count - 1 do begin
                                  node_Tournament := node_Tournaments.ChildNodes[n];
                                  if node_Tournament.NodeName = 'Names' then begin
                                   // Memo1.Lines.Add('2: node_Tournaments' + node_Tournament.ChildNodes[0].NodeValue);
                                //  XmlData.OddsData.Sports.Sports[j].Categories[0].Category[l].Tournaments.Name := node_Category_l.ChildNodes[0].NodeValue;
                                  end else
                                    if node_Tournament.NodeName = 'Matches' then begin
                                      for o := 0 to node_Tournament.ChildNodes.Count - 1 do begin
                                        Node_OO := node_Tournament.ChildNodes[o];
                                        for p := 0 to Node_OO.ChildNodes.Count - 1 do begin
                                          if Node_OO.ChildNodes[p].NodeName = 'MID' then begin
                                            MID := Node_OO.ChildNodes[p].NodeValue;
                                            Memo1.Lines.Add('MID: ' + Node_OO.ChildNodes[p].NodeValue);
                                          end else
                                            if Node_OO.ChildNodes[p].NodeName = 'MD' then begin
                                              MD := Node_OO.ChildNodes[p].NodeValue;
                                              Memo1.Lines.Add('MD: ' + Node_OO.ChildNodes[p].NodeValue);
                                            end else
                                              if Node_OO.ChildNodes[p].NodeName = 'HT' then begin
                                                HT := Node_OO.ChildNodes[p].ChildNodes[0].ChildNodes[0].NodeValue;
                                                Memo1.Lines.Add('HT: ' + Node_OO.ChildNodes[p].ChildNodes[0].ChildNodes[0].NodeValue);
                                              end else
                                                if Node_OO.ChildNodes[p].NodeName = 'AT' then begin
                                                  AT := Node_OO.ChildNodes[p].ChildNodes[0].ChildNodes[0].NodeValue;
                                                  Memo1.Lines.Add('AT: ' + Node_OO.ChildNodes[p].ChildNodes[0].ChildNodes[0].NodeValue);
                                                end else
                                                  if Node_OO.ChildNodes[p].NodeName = 'Odds' then begin
                                                    node_bookx := Node_OO.ChildNodes[p].ChildNodes[0];
                                                    Node_O := node_bookx.ChildNodes[0];
                                                    Memo1.Lines.Add('bookID: ' + node_bookx.GetAttributeNS('id', ''));
                                                    //
                                                    BooksName := node_bookx.GetAttributeNS('id', '');
                                                    BooksName := HashedStringList.Values[BooksName];
                                                  // HashedStringList.
                                                    //
                                                    Memo1.Lines.Add('OType: ' + Node_O.GetAttributeNS('type', '') + ' book:' + BooksName);
                                                    OType := Node_O.GetAttributeNS('type', '');
                                                    if OType = '3W' then begin
                                                      Memo1.Lines.Add('O: ' + Node_O.ChildNodes[0].NodeValue + ':' + Node_O.ChildNodes[1].NodeValue + ':' + Node_O.ChildNodes[2].NodeValue);
                                                    end else
                                                      if OType = 'TO' then begin
                                                        Memo1.Lines.Add('O: ' + Node_O.ChildNodes[0].NodeValue + ':' + Node_O.ChildNodes[1].NodeValue + ':' + Node_O.ChildNodes[2].NodeValue);

                                                      end else
                                                        if OType = 'HC' then begin
                                                          Memo1.Lines.Add('O: ' + Node_O.ChildNodes[1].NodeValue + ':' + Node_O.ChildNodes[2].NodeValue + ':' + Node_O.ChildNodes[3].NodeValue);
                                                          //
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[0] := inttostr(IndexofList);
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[1] := XmlData.OddsData.Sports.Sports[j].Categories[0].Category[l].Name;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[2] := MD;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[3] := HT;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[4] := AT;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[5] := Node_O.ChildNodes[1].NodeValue;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[6] := Node_O.ChildNodes[2].NodeValue;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[7] := Node_O.ChildNodes[3].NodeValue;
                                                          sListView.Items.Item[IndexofList].SubItems.Strings[8] := BooksName;
                                                          inc(IndexofList);

                                                          //
                                                        end;
                                                   // for q := 0
                                                   //   Node_Odds, node_book, Node_O: IXMLNode;

                                                  end;

                                        end;
                                      end;

                                 //-<Matches>
                               // for m := 0 to node_Tournaments.ChildNodes.Count - 1 do begin
                            //
                              //  end;

                                    end;
                                end;
                              end;
                            end;
                        end;

                      end;

                    end;
                  end;
              end;

            end;
          end;

 

 


        end;

 

 

Channels_net
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
java 解析多层xml_Java高级进阶-xml解析
weixin_36312603的博客
03-02 1210
xml解析xml简介XML(eXtended Markup Language，可扩展标记性语言)，xml可以对文档和数据进行结构化处理，从而能够在部门、客户和供应商之间进行交换，实现动态内容生成，企业集成和应用开发。xml可以使我们能够更准确的搜索，更方便的传送软件组件，更好的描述一些事物。例如电子商务交易等。它的主要特点：它被设计用来传输和存储数据；被设计用来显示数据。它们都是[标准通用标记语言...
易语言 xml解析 易语言 xml解析 教程 带源码
最新发布
11-22
易语言XML解析是编程领域中的一个重要主题，尤其对于使用易语言进行开发的程序员来说，理解并掌握XML（可扩展标记语言）的解析方法是至关重要的。XML作为一种结构化数据存储和交换格式，广泛应用于网络通信、配置...
微信小程序解析XML
qq_39941918的博客
01-25 2195
一、下载插件 https://download.csdn.net/download/qq_39941918/10936877 二、将解压到的文件直接放入lib目录中（lib目录与Page，utils同级） 三、在需要解析XML的地方引入文件 四、通过查看doc对象，循环获取想要的内容 ...
XML解析
flysh05的专栏
07-20 995
XML解析
java解析xml文件的几种方式(DOM解析)
pzl1426733135的博客
09-28 1615
好久不用的东西，今天居然被面试官问到了。那既然这样，我们就一起回顾下java解析xml文件的几种方式把。
解析XML文件(一）
热门推荐
wang_zhao_的博客
11-08 3万+
解析XML 在进行XML文件的解析之前，我们简单介绍下什么是XML，以及XML在企业中有哪些作用。（本文建立在不使用数据库的前提之下，如果你正在使用数据库，或许并不需要学习本文） 什么是XML? XML指可拓展标记语言 XML是一种标记语言，很类似HTML XML的设计宗旨是传输数据，而非显示数据(显示数据应使用HTML及CSS) XML标签没有被预定义 (意味着你可以创建出任何命名的标签，例...
XML解析及JSON解析
Guangshan的博客
03-28 2341
目录 XML 1. XML简介 2. 特性 3. 语法格式 2.主体部分 4. 例子 5. 部分Demo 注意： Demo1: 解析本地 XML文件 Demo2: 解析网络运营商接口返回的XML Demo3: 通过文档对象+xpath，查找本地文件节点 Demo4: 通过文档对象+xpath，查找接口输入流XML中的company节点 Demo5: 循环创建XML节点，生成文件 Demo6: XStream使用 拓展阅读：4种XML解析方法 JSON 1. JSON简介
IDEA中如何进行XML解析
D_AKJS
03-14 4348
XML解析一、XML解析的准备工作1.第一步，先将下面三个jar包复制导入到IDEA创建的lib文件中。2.第二步，点击file打开Project Structure进行项目的一些配置。3.第三步，打开Libraries，添加项目，再添加刚刚导入的三个jar文件包。二、开始解析本地和在线xml文件1.解析本地xml文件2.解析网上xml文件 一、XML解析的准备工作 1.第一步，先将下面三个jar包复制导入到IDEA创建的lib文件中。 资源免费下载：dom4j-1.6.1.jar、jaxen-1.1-b
Java中的XML解析
apple_52109766的博客
07-04 3017
这几天在手写Spring IOC的时候遇上了xml文件的解析，通过解析Spring.xml配制文件的方式来创建对象。因为之前从来都没遇见过相关的需求，所以对此做一份记录 XML (eXtensible Markup Language) 意为可扩展标记语言，被多数技术人员用以选择作为数据传输的载体，成为一种通用的数据交换格式,xml的平台无关性,语言无关性,系统无关性,给数据集成与交互带来了极大的便利。在不同的语言中，解析mxl的方式都是一样的,只不过实现的语法不同而已。 XML解析主要有两种方式，一种称为D
Java解析xml
qq_39019331的博客
05-18 9438
记录工作中遇到的一些问题和解决方式，自己摘抄整理了一下用来巩固，如有不足或有更好的方式 欢迎交流。 java解析xml的话有四种方式，分别为DOM,SAX,DOM4J,JDOM 转载：Java解析XML(4种方法)_蓝星花的博客-CSDN博客_java解析xml 这里的话我用的是dom4j Date date = new Date();//用于查看耗时 //InputStream是字节输入流，用来将文件中的数据读取到java程序中 //new FileInputStr...
XML的解析方式
qq_41316200的博客
04-14 7801
XML的解析方式有： （1）DOM解析方法，可以对XML文档进行修改操作； （2）SAX解析方法，解析速度快，占用内存少； （3）JDOM解析方法，查找方便； （4）DOM4J解析方法，解析XML的速度快； 1.XML简介 XML即可扩展的标记语言，可以定义语义标记（标签），是元标记语言。XML不像超文本标记语言HTML，HTML只能使用规定的标记，对于XML，用户可以定义自己需要的标记。 XML文档以层级标签的形式来组织数据，多用于配置文件、存储静态数据、交换数据。 2.XML语法 1.
能够解析XML的程序.rar_XML 解析_xml_解析xml
09-14
常见的XML解析方法有两种：DOM（Document Object Model）和SAX（Simple API for XML）。 1. DOM解析：DOM将整个XML文档加载到内存中，形成一个树形结构，称为DOM树。每个节点代表XML文档的一个部分，如元素、属性或...
一个在线解析XML的示例
03-29
在提供的测试URL `http://rss.sina.com.cn/news/china/focus15.xml`中，我们可以看到一个RSS（Really Simple Syndication） feed，这是XML的一种应用，用于发布新闻或博客更新。 在线解析XML的过程通常包括以下几个...
小程序解析Xml
06-29
这个方法会返回一个Promise，解析成功后，你会得到一个XML节点对象的数组，可以通过遍历这些节点来获取你需要的数据。例如，如果XML中包含文章的标题、内容等信息，你可以通过节点的标签名、属性和文本内容来提取...
XML解析和生成工具
12-02
`Markup.cpp`和`Markup.h`可能实现了一个简单的XML解析器或生成器。在C++中，可以使用这些文件创建自定义的解析器，处理XML数据。通常，解析器会提供以下功能： - 解析XML文档，生成元素对象。 - 处理元素的属性和...
STUN检测NAT类型原理(转)
04-29 1242
STUN检测NAT类型原理(转) STUN是RFC3489规定的一种NAT穿透方式，它采用辅助的方法探测NAT的IP和端口。毫无疑问的，它对穿越早期的NAT起了巨大的作用，并且还将继续在ANT穿透中占有一席之地。STUN的探测过程需要有一个公网IP的STUN Server，在NAT后面的UAC（User Agent Client）必须和此Server配合，互相之间发送若干个UDP数据包。UDP
一个简单（搜索EMail）的蜘蛛程序
04-13 760
unit UIDTcpClientThread;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,  IniFi
Socket Hook
02-16 533
//-------------------------------------------------------------------------------------------------Hook.dpr library Hook;uses  SysUtils,  windows,  Messages,  APIHook in APIHook.pas;type  PDat
Android-XML解析技术(共23张PPT).ppt
11-17
理解并掌握XML解析技术对于Android开发者至关重要，因为XML在Android应用程序的多个层面都发挥着重要作用，包括布局文件、偏好设置、网络通信中的数据交换等。通过学习和实践，开发者能够更有效地处理和利用XML数据...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值