XML解析

myhgyp 2012-09-28 01:49:50
<form><摘要>该工程包括规划道路一和规划道路二2条道路等。规划道路一西起北大街,东至化龙巷,道路全长248米,一般路段道路红线宽15米,规划道路二北起东横街,南至规划道路一,道路全长179米,一般路段道路红线宽12米。工程概算总投资540万元</摘要><批准日期>2011-07-22</批准日期><批准文号>常发改行服〔2011〕164号</批准文号><发布单位>常州市发展和改革委员会</发布单位></form>

这段类似于XML格式的文本如何读取各要素的值
...全文
187 点赞 收藏 14
写回复
14 条回复
lyhoo163 2012年10月02日
XML中内部是使用的是UTF-8字符,输入输出指定gb2312
回复 点赞
OO_is_just_P 2012年10月02日
NativeXML那是很强悍的。
回复 点赞
cntigercat 2012年09月29日
[Quote=引用 10 楼 的回复:]

悲剧,原来一直是UTF-8原因,改成gb2312就行了,烦了几天,谢谢各位了
[/Quote]
回复 点赞
myhgyp 2012年09月29日
悲剧,原来一直是UTF-8原因,改成gb2312就行了,烦了几天,谢谢各位了
回复 点赞
myhgyp 2012年09月29日
to cntigercat:
上面的代码执行时报“文本内容中发现无效字符”
回复 点赞
cntigercat 2012年09月28日

procedure TForm1.Button1Click(Sender: TObject);
var
xmldoc: IXMLDocument;
xmlnode: IXMLNode;
begin
xmldoc := NewXMLDocument();
xmldoc.XML.Text := '<?xml version="1.0" encoding="utf-8"?><form><摘要>该工程包括规划道路一和规划道路二2条道路等。规划道路一西起北大街,东至化龙巷,道路全长248米,一般路段道路红线宽15米,规划道路二北起东横街,南至规划道路一,道路全长179米,一般路段道路红线宽12米。工程概算总投资540万元</摘要><批准日期>2011-07-22</批准日期><批准文号>常发改行服〔2011〕164号</批准文号><发布单位>常州市发展和改革委员会</发布单位></form>';
xmldoc.Active := True;
xmlnode := xmldoc.DocumentElement.ChildNodes[0];
//要什么数据就解析什么呀
end;

回复 点赞
kaikai_kk 2012年09月28日
用Internet页面的TXMLDocument控件

用法网上一大把
回复 点赞
shadow1986a 2012年09月28日
给你个例子

<?xml version= "1.0 " encoding= "UTF-8 "?>
<ROOT>
<Student>
<name> zhang </name>
<age> 21 </age>
</Student>
</ROOT>

uses XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
a: TXMLDocument;
b:string;
begin
a:=TXMLDocument.Create(self);
a.FileName:= 'D:\Student.xml ';
a.Active:=true;
b:=a.DocumentElement.ChildNodes['Student'].ChildNodes['name'].Text;
showmessage(b);
edit1.text:=b;
a.Free;
end;
回复 点赞
kenlewis 2012年09月28日
推荐使用NativeXML控件来解析XML文件,快捷方便。
回复 点赞
myhgyp 2012年09月28日
大虾都灌水去了吗?
回复 点赞
myhgyp 2012年09月28日
没人会吗?
回复 点赞
hsfzxjy 2012年09月28日
汗。。我不懂。。
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3419

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告