XML解析

myhgyp 2012-09-28 01:49:50

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

这段类似于XML格式的文本如何读取各要素的值

...全文

231 14 打赏收藏转发到动态举报

写回复

用AI写文章

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;