http://www.w3.org/TR/xpath
在 Form 上放一個 TMemo 和 Internet TXMLDocument
在 FormCreate 事件中加入
procedure TForm1.FormCreate(Sender: TObject);
var
SNode: IDOMNodeSelect;
begin
with XMLDocument1.XML do
begin
Add('<?xml version="1.0" encoding="Big5"?>');
Add('<html lang="en">');
Add(' <head>');
Add(' <title>Extensible Markup Language (XML)</title>');
Add(' </head>');
Add(' <body>');
Add(' <a href="1">first</a>');
Add(' <a href="2">second</a>');
Add(' </body>');
Add('</html>');
end;
XMLDocument1.Active := True;
with XMLDocument1.DOMDocument, Memo1.Lines do
begin
Clear;
SNode := documentElement as IDOMNodeSelect;
Values['title'] := SNode.selectNode('/html/head/title/text()').nodeValue;
Values['All Tag Count'] := IntToStr(SNode.selectNodes('//*').length);
Values['body Tag child Nodes Count'] := IntToStr(SNode.selectNodes('/*/body/*').length);
Values['a Tag Count'] := IntToStr(SNode.selectNodes('//a').length);
Values['First a Tag Text'] := SNode.selectNode('//a[1]/text()').nodeValue;
Values['First a Tag href'] := SNode.selectNode('//a[1]/@href').nodeValue;
Values['href equal 2 Text'] := SNode.selectNode('//a[@href=2]/text()').nodeValue;
end;
end;
{
title=Extensible Markup Language (XML)
All Tag Count=6
body Tag child Nodes Count=2
a Tag Count=2
First a Tag Text=first
First a Tag href=1
href equal 2 Text=second
}
沒有留言:
張貼留言