对于有n多记录的xml,可以填充到stringgrid中

其中 vkeynode 为 xml中 重复节点

function CommonAnalyzeXml(vxml,vkeynode: string;var vgrid: TStringGrid): Boolean;

var
  lxml: TNativeXml;
  i,j,k: Integer;
  llist: TsdNodeList;
  lnode: TXmlNode;
  lstr: string;
  ls,lnamels: TStringList;
begin
  Result := False;
  vxml := StringReplace(vxml,'GB2312','UTF-8',[rfReplaceAll]);
  lxml := TNativeXml.Create(nil);
  lxml.ReadFromString(vxml);
  lnode := lxml.Root;
  if lnode <> nil then
  begin
    lnamels := TStringList.Create;
    GetXmlAllValues(lnamels,lnode,True);
    for i := 1 to vgrid.rowcount do
      for j := 1 to vgrid.colcount do
        vgrid.cells[j - 1, i - 1] := '';
    if lnamels.Count > 0 then
    begin
      vgrid.DefaultColWidth := 80;
      vgrid.DefaultRowHeight := 20;
      vgrid.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goRowSizing,goColSizing];
      i := 1;
      for j := 0 to lnamels.Count - 1 do
      begin
        if vgrid.ColCount < j then
        vgrid.ColCount := vgrid.ColCount + 1;
        vgrid.Cells[i,0] := lnamels.Strings[j];
        Inc(i);
      end;
      llist := TsdNodeList.Create(False);
      ls := TStringList.Create;
      lnode.FindNodes(vkeynode, llist);
      k := 1;
      for i := 0 to llist.Count - 1 do
      begin
        lnode := llist[i];
        ls.Clear;
        GetXmlAllValues(ls,lnode);
        if vgrid.RowCount < i then
        vgrid.RowCount := vgrid.RowCount + 1;
        for j := 0 to vgrid.ColCount - 1 do
        begin
          vgrid.Cells[j,k] := ls.Values[vgrid.Cells[j,0]];
        end;
        inc(k);
      end;
      FreeAndNil(llist);
      FreeAndNil(ls);
      Result := True;
    end;
    FreeAndNil(lnamels);
  end;
  FreeAndNil(lxml);
end;

http://blog.csdn.net/y281252548/article/details/52527843

delphi7 xml通用解析转换为stringgrid的更多相关文章

  1. xml 字符串解析成通用的map

    [quote]Stax解析技术:快速高效,根据流的形式解析xml,比dom解析技术更加快,dom解析技术是基于文档结构树的,会把整个dom文件树加载到内存进行解析[/quote] package co ...

  2. 关于C#对Xml数据解析

    首先进行简单说明Xml 与Html  和 XAML数据标签的差别. 1.Xml属于数据文本, 被设计为传输和存储数据,其焦点是数据的内容.它与json格式数据相似,可作为服务数据传输类型. 其中XML ...

  3. Spring源码阅读笔记04:默认xml标签解析

    上文我们主要学习了Spring是如何获取xml配置文件并且将其转换成Document,我们知道xml文件是由各种标签组成,Spring需要将其解析成对应的配置信息.之前提到过Spring中的标签包括默 ...

  4. Qt之xml文件解析

    XML文件简介 XML - EXtensible Markup Language,可拓展标记语言 Qt中加载XML模块 .pro 文件中添加 QT += xml Qt的XML访问方式 引用:https ...

  5. xml的解析与创建——bing到youdao导入文件的转换

    首先是为了解决一个问题:如何将必应单词本中记录的单词转入到有道词典中去.实际上,必应词典可以导出xml文件,但是该文件有道词典无法解析.这里涉及到xml的解析和创建了. 代码如下: import ja ...

  6. iOS - XML 数据解析

    前言 @interface NSXMLParser : NSObject public class NSXMLParser : NSObject 1.XML 数据 XML(Extensible Mar ...

  7. iOS开发——网络Swift篇&JSON与XML数据解析

    JSON与XML数据解析 JSON数据解析(内置NSJSONSerialization与第三方JSONKit)   一,使用自带的NSJSONSerialization 苹果从IOS5.0后推出了SD ...

  8. PHP XML Expat 解析器

    PHP XML Expat 解析器 内建的 Expat 解析器使在 PHP 中处理 XML 文档成为可能. XML 是什么? XML 用于描述数据,其焦点是数据是什么.XML 文件描述了数据的结构. ...

  9. 03-IOSCore - XML及解析、Plist

    一.XML 可扩展标记语言 是什么?是一段有规范的字符串, 用在哪?用在任何地方 语法: * 结点Node <结点名 属性名="属性值"> 结点内容 </结点名& ...

随机推荐

  1. Java爬虫框架WebMagic入门——爬取列表类网站文章

    初学爬虫,WebMagic作为一个Java开发的爬虫框架很容易上手,下面就通过一个简单的小例子来看一下. WebMagic框架简介 WebMagic框架包含四个组件,PageProcessor.Sch ...

  2. Python 第三方库的安装

    1. pip 进入命令行,使用 pip install pip install numpy 2. 含有 setup.py 文件的第三方库 切换到 setup.py 所在的目录: python setu ...

  3. 图灵机(Turing Machine)

    图灵机,又称图灵计算.图灵计算机,是由数学家阿兰·麦席森·图灵(1912-1954)提出的一种抽象计算模型,即将人们使用纸笔进行数学运算的过程进行抽象,由一个虚拟的机器替代人们进行数学运算. 所谓的图 ...

  4. Qt5官方demo解析集35——Music Player(使用winextras模块)

    本系列所有文章可以在这里查看http://blog.csdn.net/cloud_castle/article/category/2123873 接上文Qt5官方demo解析集34——Concentr ...

  5. XMPPFramework

    XMPP Extensible Messaging and Present Protocol 可扩展消息处理现场协议 特征: XMPP使用tcp传XML流程, 做IM xmpp.org objcio. ...

  6. SQLite介绍及使用

    SQLite,是一款轻型的数据库,是遵守ACID的关联式数据库管理系统,它的设计目标是嵌入式的,而且目前已经在很多嵌入式产品中使用了它,它占用资源非常的低,在嵌入式设备中,可能只需要几百K的内存就够了 ...

  7. python3处理不标准json数据

    keywords: python jsonsource: http://txw1958.cnblogs.com/ 先看下JSON的语法规则: JSON 语法规则JSON 语法是 JavaScript ...

  8. Python3获取股票行情数据(中国个股/中国指数/全球指数)

    #!/usr/local/bin/python3 #coding=utf-8 #source http://www.cnblogs.com/txw1958/ import os, io, sys, r ...

  9. 信号、系统与滤波器设计(matlab)

    0. 基本概念 AWG:Additive White(zero-mean) Gaussian,可加白噪声: AWGN:Additive White(zero-mean) Gaussian Noise ...

  10. 经典c开源项目

    1. Webbench Webbench是一个在Linux下使用的非常简单的网站压测工具.它使用fork()模拟多个客户端同时访问我们设定的URL,测试网站在压力下工作的性能,最多可以模拟3万个并发连 ...