delphi7 xml通用解析转换为stringgrid
对于有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的更多相关文章
- xml 字符串解析成通用的map
[quote]Stax解析技术:快速高效,根据流的形式解析xml,比dom解析技术更加快,dom解析技术是基于文档结构树的,会把整个dom文件树加载到内存进行解析[/quote] package co ...
- 关于C#对Xml数据解析
首先进行简单说明Xml 与Html 和 XAML数据标签的差别. 1.Xml属于数据文本, 被设计为传输和存储数据,其焦点是数据的内容.它与json格式数据相似,可作为服务数据传输类型. 其中XML ...
- Spring源码阅读笔记04:默认xml标签解析
上文我们主要学习了Spring是如何获取xml配置文件并且将其转换成Document,我们知道xml文件是由各种标签组成,Spring需要将其解析成对应的配置信息.之前提到过Spring中的标签包括默 ...
- Qt之xml文件解析
XML文件简介 XML - EXtensible Markup Language,可拓展标记语言 Qt中加载XML模块 .pro 文件中添加 QT += xml Qt的XML访问方式 引用:https ...
- xml的解析与创建——bing到youdao导入文件的转换
首先是为了解决一个问题:如何将必应单词本中记录的单词转入到有道词典中去.实际上,必应词典可以导出xml文件,但是该文件有道词典无法解析.这里涉及到xml的解析和创建了. 代码如下: import ja ...
- iOS - XML 数据解析
前言 @interface NSXMLParser : NSObject public class NSXMLParser : NSObject 1.XML 数据 XML(Extensible Mar ...
- iOS开发——网络Swift篇&JSON与XML数据解析
JSON与XML数据解析 JSON数据解析(内置NSJSONSerialization与第三方JSONKit) 一,使用自带的NSJSONSerialization 苹果从IOS5.0后推出了SD ...
- PHP XML Expat 解析器
PHP XML Expat 解析器 内建的 Expat 解析器使在 PHP 中处理 XML 文档成为可能. XML 是什么? XML 用于描述数据,其焦点是数据是什么.XML 文件描述了数据的结构. ...
- 03-IOSCore - XML及解析、Plist
一.XML 可扩展标记语言 是什么?是一段有规范的字符串, 用在哪?用在任何地方 语法: * 结点Node <结点名 属性名="属性值"> 结点内容 </结点名& ...
随机推荐
- Java爬虫框架WebMagic入门——爬取列表类网站文章
初学爬虫,WebMagic作为一个Java开发的爬虫框架很容易上手,下面就通过一个简单的小例子来看一下. WebMagic框架简介 WebMagic框架包含四个组件,PageProcessor.Sch ...
- Python 第三方库的安装
1. pip 进入命令行,使用 pip install pip install numpy 2. 含有 setup.py 文件的第三方库 切换到 setup.py 所在的目录: python setu ...
- 图灵机(Turing Machine)
图灵机,又称图灵计算.图灵计算机,是由数学家阿兰·麦席森·图灵(1912-1954)提出的一种抽象计算模型,即将人们使用纸笔进行数学运算的过程进行抽象,由一个虚拟的机器替代人们进行数学运算. 所谓的图 ...
- Qt5官方demo解析集35——Music Player(使用winextras模块)
本系列所有文章可以在这里查看http://blog.csdn.net/cloud_castle/article/category/2123873 接上文Qt5官方demo解析集34——Concentr ...
- XMPPFramework
XMPP Extensible Messaging and Present Protocol 可扩展消息处理现场协议 特征: XMPP使用tcp传XML流程, 做IM xmpp.org objcio. ...
- SQLite介绍及使用
SQLite,是一款轻型的数据库,是遵守ACID的关联式数据库管理系统,它的设计目标是嵌入式的,而且目前已经在很多嵌入式产品中使用了它,它占用资源非常的低,在嵌入式设备中,可能只需要几百K的内存就够了 ...
- python3处理不标准json数据
keywords: python jsonsource: http://txw1958.cnblogs.com/ 先看下JSON的语法规则: JSON 语法规则JSON 语法是 JavaScript ...
- Python3获取股票行情数据(中国个股/中国指数/全球指数)
#!/usr/local/bin/python3 #coding=utf-8 #source http://www.cnblogs.com/txw1958/ import os, io, sys, r ...
- 信号、系统与滤波器设计(matlab)
0. 基本概念 AWG:Additive White(zero-mean) Gaussian,可加白噪声: AWGN:Additive White(zero-mean) Gaussian Noise ...
- 经典c开源项目
1. Webbench Webbench是一个在Linux下使用的非常简单的网站压测工具.它使用fork()模拟多个客户端同时访问我们设定的URL,测试网站在压力下工作的性能,最多可以模拟3万个并发连 ...