c++Builder Delphi XML 解析例子

最新推荐文章于 2018-05-30 22:32:37 发布

weixin_34252686

最新推荐文章于 2018-05-30 22:32:37 发布

阅读量147

点赞数

文章标签： c/c++ php c#

XMLDocument;

Xml.XMLIntf.hpp

Xml.XMLDoc.hpp

#include "Xml.Win.msxmldom.hpp"

XMLDocument控件

Winapi.msxmlIntf.pas

selectsinglenode只返回一个结点
SelectNodes返回多个匹配的结点

DOM解析器的3种选择

MSXML MS Windows/Omni

解析器的选择

Xml.XMLDoc.TXMLDocument.DOMVendor

TXMLDocument

http://docwiki.embarcadero.com/CodeExamples/Seattle/e/index.php?title=Category:C%2B%2B&pagefrom=SystemVarClear+%28C%2B%2B%29#mw-pages

void CreateDocument() {
    _di_IXMLDocument document = interface_cast<Xmlintf::IXMLDocument>
        (new TXMLDocument(NULL));
    document->Active = true;
 
    // Define document content.
    document->DocumentElement = document->CreateNode("ThisIsTheDocumentElement",
        ntElement, "");
    document->DocumentElement->Attributes["attrName"] = "attrValue";
    _di_IXMLNode nodeElement = document->DocumentElement->AddChild
        ("ThisElementHasText", -1);
    nodeElement->Text = "Inner text.";
    _di_IXMLNode nodeCData = document->CreateNode("any characters here",
        ntCData, "");
    document->DocumentElement->ChildNodes->Add(nodeCData);
    _di_IXMLNode nodeText = document->CreateNode("This is a text node.",
        ntText, "");
    document->DocumentElement->ChildNodes->Add(nodeText);
 
    document->SaveToFile(destPath);
}

生成文件

http://overblue.blogbus.com/logs/13954596.html

uses
  XMLDoc, XMLIntf;

{ 写入XML内容 }
var
  XMLDoc : TXMLDocument;
  Node1 : IXMLNode;
  Node2 : IXMLNode;
begin
  XMLDoc := TXMLDocument.Create(nil);
  try
    XMLDoc.Active := True;
    XMLDoc.Version := '1.0';
    XMLDoc.Encoding := 'GB2312';
    XMLDoc.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];

    XMLDoc.DocumentElement := XMLDoc.CreateNode('ReportObjectContent');
    Node1 := XMLDoc.DocumentElement;

    Node1 := Node1.AddChild('ReportObjectProperty');
    Node2 := Node1.AddChild('ReportName');
    Node2.SetAttributeNS('Value', '', ReportName);
    Node2 := Node1.AddChild('ReportType');
    Node2.SetAttributeNS('Value', '', ReportType);
    Node2 := Node1.AddChild('DataViewName');
    Node2.SetAttributeNS('Value', '', DataViewName);
    Node2 := Node1.AddChild('SQLStr');
    Node2.SetAttributeNS('Value', '', SQLStr);   

    XMLDoc.SaveToStream(Stream);
  finally
    XMLDoc.Free;
  end;

XMLDocument1.DOMDocument.childNodes['Config'].attributes['DataUpFlag'];

xml->DocumentElement->AddChild("TableClassName")->Text = aClassName;
xml->DocumentElement->AddChild("ApplicationName")->NodeValue = LabeledEdit5->Text;

if (node->ChildNodes->Get(i)->NodeType() == ntElement)

读解析文件

LoadFromFile

DocumentElement

    _di_IXMLNode snode = XMLDocument1->DocumentElement->ChildNodes->Nodes("row");

__property _di_IXMLNode Nodes[System::OleVariant IndexOrName] = {read=GetNode/*, default*/};

    XMLDocument1->LoadFromFile(lxml);
    _di_IXMLNode snode = XMLDocument1->DocumentElement->ChildNodes->FindNode(aTableName);
    if (snode)
    {
        for (int i = 0; i < snode->ChildNodes->Count; i++)
        {
            _di_IXMLNode rownode = snode->ChildNodes->Get(i);

            String fn = rownode->Attributes["Field"];
        }

    }
    XMLDocument1->Active = false;

增加或修改节点

xml->CreateElement
xml->CreateNode

xml->DocumentElement->AddChild

    _di_IXMLNode nodeElement = xml->DocumentElement->ChildNodes->FindNode("DAOPath");
    if (nodeElement == NULL)
        nodeElement = xml->DocumentElement->AddChild("DAOPath");
    nodeElement->Text = DaoPath;

缩进，格式化

XMLDocument1->Options = XMLDocument1->Options << doNodeAutoIndent;

<?xml version="1.0" encoding="utf-8"?>
<data>
  <config>
    <recent>aaa</recent>
  </config>
  <list>
    <row name="aa" port=""></row>
    <row name="bb"  port=""></row>
    </list>
</data>

读取recent的值

fangA = XMLDocument1->DocumentElement->ChildNodes->FindNode("config")->ChildNodes->FindNode("recent")->NodeValue;

XMLDocument1->DocumentElement->ChildNodes->FindNode("config")->ChildNodes->FindNode("recent")->NodeValue="newstring";

 XmlDocument1.DocumentElement.ChildNodes[0];

Node := XmlDocument1.DocumentElement.ChildNodes[0]; // <Class> node
Node.ChildNodes.Add(LoadXMLData('<Property Name="Version" RttiType="tkString"></Property>').DocumentElement);
Node.ChildNodes.Add(LoadXMLData('<Property Name="ShowSubunit" RttiType="tkBoolean"></Property>').DocumentElement);

xml.DocumentElement.ChildNodes.FindNode('data').DOMNode.ownerDocument.importNode()


IDOMDocument
    xml.DOMDocument.appendChild()
    xml.DOMDocument.importNode()

  XMLDocument1.DocumentElement.ChildNodes.FindNode('').OwnerDocument.importNode//IXMLDocument没有此方法
  XMLDocument1.DocumentElement.ChildNodes.FindNode('').DOMNode.ownerDocument.importNode()//IDOMDocument有次方法
     node:= XMLDocument1.DocumentElement.ChildNodes.Nodes[i];
     node.ChildNodes.FindNode('nodename')

var
node:IXMLNode;

XMLDocument1.XML.Text;//包含version
XMLDocument1.DocumentElement.Xml//根节点下的字符串
XMLDocument1.DocumentElement.Text


2、读取文件

LoadXMLDocument

Xml.XMLDoc
IXMLDocument doc:=LoadXMLDocument('abc.xml');

_di_IXMLDocument doc=LoadXMLDocument("aa.xml");
doc->DocumentElement->ChildNodes->FindNode("jgbm")->NodeValue;
doc->DocumentElement->ChildNodes->FindNode("para")->Attributes["pw"];

官方的解释是会自动释放！这样就不用创建控件了。TXMLDocument

 http://docwiki.embarcadero.com/RADStudio/Berlin/en/XML_Support_Routines
http://docwiki.embarcadero.com/Libraries/Berlin/en/Xml.XMLDoc.LoadXMLDocument

Returns the interface for an XML document given the name of an XML file.

Call LoadXMLDocument to load an XML document from a file on disk and obtain its interface. LoadXMLDocument creates a new TXMLDocument object and uses it to parse the file specified by the FileName parameter. The TXMLDocument component is not given an owner, which means that it behaves like an interfaced object. When the application releases the interface that LoadXMLDocument returns, the TXMLDocument instance is automatically freed.

 
 Xml.Win.msxmldom, Xml.XMLDoc,Xml.xmldom,Xml.XMLIntf,Winapi.msxml,

selectSingleNode

procedure TForm4.Parxml( Sender : TObject );

  var
    noderef : IXMLDOMNodeRef;
    root : IXMLDOMNode;
    Node : IXMLDOMNode;
    doc : IXMLDocument;

  begin
    doc := LoadXMLDocument( 'test.xml' );
    noderef := doc.DocumentElement.DOMNode as IXMLDOMNodeRef;
    root := noderef.GetXMLDOMNode; // 获取跟节点
    Node := root.selectSingleNode( 'ItemList/Item[@name="name2"]' );
    // 根据路径的属性值获取节点

    ShowMessage( Node.Attributes.getnameditem( 'title' ).Text ); // title2

    Node.Attributes.getnameditem( 'title' ).Text := 'hello';
    // <Item name="name2" title="title2"/>  =>  <Item name="name2" title="hello"/>

  end;

  test.xml文档 ：

  < ? Xml version = " 1.0 " encoding = " utf - 8 " ? > < test >< ItemList > <
  Item name = " name1 " title = " title1 " > < / Item > <
  Item name = " name2 " title = " title2 " / > < / ItemList > < / test >

<?xml version ="1.0" encoding ="utf-8"?>
<Project>
   <ItemList>
       <Item name ="name1" title ="title1"/>
       <Item name ="name2" title ="title2"/>
   </ItemList>
</Project>

ptNodes: IXMLDOMNode;

      pas:= ptnodes.text;//读取节点值要用text，nodeValue取不到
        pName := ptNodes.nodeName;
        pas := ptNodes.nodeValue;//error null

解析C++builder工程文件

原始工程文件首行是<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

改成<Project>才能用selectSingleNode方法解析。

procedure TForm2.Button1Click(Sender: TObject);
var
  path: string;
  Xml: IXMLDocument;
  noderef: IXMLDOMNodeRef;
  Root: IXMLDOMNode;
  Node: IXMLDOMNode;
  ConditionStr: string;
  list: TStringList;
begin
  list := TStringList.Create;
  list.LoadFromFile('E:\test\tt.cbproj');
  list.Strings[0] := '<Project>';
  Xml := LoadXMLData(list.Text);
  noderef := Xml.DocumentElement.DOMNode as IXMLDOMNodeRef;
  Root := noderef.GetXMLDOMNode;
  path := 'PropertyGroup[@Condition="''$(Cfg_1_Win32)''!=''''"]/FinalOutputDir';
  Node := Root.selectSingleNode(path);
  if not Assigned(Node) then
    self.Caption := 'not not '
  else
    Caption := Node.nodeTypedValue;
  list.Free;
end;

C++builder

Winapi.msxmlIntf.hpp

Xml.Win.msxmldom.hpp

http://docwiki.embarcadero.com/Libraries/Berlin/en/Xml.Win.msxmldom.IXMLDOMNodeRef.GetXMLDOMNode

_di_IXMLDOMDocument xdocm;

_di_IXMLDOMNodeRef xdnodeRef;
_di_IXMLDOMNode xdnode,xdnode2;

noderef := xml.DocumentElement.domnode as IXMLDOMNodeRef;
root := noderef.GetXMLDOMNode;

//c++读取属性节点

xdnodeRef = XMLDocument1->DocumentElement->DOMNode;

xdnode = xdnodeRef->GetXMLDOMNode();

xdnode->selectSingleNode(L"MakeItems/Item[@Name='teacher']", &xdnode2);

BSTR name;
xdnode2->get_nodeName(&name);

this->Caption = name;

xdnode->selectSingleNode

IXMLDOMDocument

_di_IDOMNode dnode;

_di_IXMLDOMNodeList domNodeList;

xdnode = dnode->firstChild;
// dnode->hasChildNodes();

void Test_DOMVendor() {
    TXMLDocument *document;
    TDOMVendor *vendor;
 
    document = new TXMLDocument(NULL);
 
    // Get document vendor.
    vendor = document->DOMVendor;
    if (vendor != 0) {
        printf("Document DOM vendor is  \"%ls\".\n", vendor->Description());
    }
    else {
        printf("Document has no DOM vendor.\n");
    }
 
    // Display registered DOM vendors with this application.
    const int numVendors = DOMVendors->Count();
    printf("Number of registered DOM vendors with this application is %d.\n",
        numVendors);
    for (int i = 0; i < numVendors; i++) {
        vendor = DOMVendors->Vendors[i];
        printf("\t%ls\n", vendor->Description());
    }
 
    // Find a specific registered DOM vendor.
    vendor = DOMVendors->Find("MSXML");
    if (vendor != 0) {
        // Set document DOM vendor.
        document->DOMVendor = vendor;
        printf("Document DOM vendor is \"%ls\".\n",
            document->DOMVendor->Description());
    }
    else {
        printf("Could not find DOM vendor.\n");
    }
 
    delete document;
}

遍历节点

XmlNode: IXMLNode;
XmlNodeList: IXMLNodeList

XmlNodeList := Xml.DocumentElement.ChildNodes;

XmlNode := XmlNodeList.First;
while XmlNode <> nil do
begin
self.list_values.AddPair(XmlNode.NodeName, XmlNode.NodeValue);
XmlNode := XmlNode.NextSibling;
end;

保存文件

procedure TFrmPublicHealthMain.PNGButton1Click(Sender: TObject);
var
  pNode,cNode: IXMLNode; {定义两个节点: 父节点、子节点}
  astr:string;
  ms:TMemoryStream ;
  ss:TStringStream;
begin
  XMLDocument1.XML.Clear;
  XMLDocument1.Active := True;                {必须先激活}
  XMLDocument1.Version := '1.0';              {设置版本}
  XMLDocument1.Encoding := 'utf-8';          {设置语言}

  pNode := XMLDocument1.AddChild('科室名单'); {添加的第一个节点是根节点, 现在的 pNode 是根节点}
  pNode.SetAttribute('备注', '测试');         {为根节点设置属性}

  pNode := pNode.AddChild('人员');            {为根节点添加子节点, 现在的 pNode 是 "人员" 节点}
  pNode.SetAttribute('职务', '科长');         {设置属性}
  pNode.SetAttribute('备注', '正局级');

  cNode := pNode.AddChild('姓名');  {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}
  cNode.Text := '张三';

  cNode := pNode.AddChild('性别');
  cNode.Text := '男';

  cNode := pNode.AddChild('年龄');
  cNode.Text := '34';

  {查看}  //缺少  Encoding
  ShowMessage(XMLDocument1.XML.Text);

  {保存}
  XMLDocument1.SaveToFile('2.xml');
  XMLDocument1.SaveToXML(astr);
  self.mmoIn.Lines.Text := astr;

  //这样就有encoding了
  ms:= TMemoryStream.Create;
  XMLDocument1.SaveToStream(ms);
  ss := TStringStream.Create;
  ms.Position:=0;
  ss.CopyFrom(ms,ms.Size);
  self.mmoIn.Lines.Text := ss.DataString;
  ss.Free;
  ms.Free;

end;

pNode.ChildValues['cfh'] := '023535325';

C# XmlTextWriter

https://www.cnblogs.com/gc2013/p/4267636.html

// XmlTextWriter 写文件
            XmlTextWriter writeXml = new XmlTextWriter(@c:MyXml.xml,Encoding.UTF8);
            writeXml.WriteStartDocument(false);
            writeXml.WriteStartElement(NetWork);
  
            writeXml.WriteComment(网络配置信息);
            writeXml.WriteStartElement(configration);
  
            writeXml.WriteElementString(IpAddress,192.168.2.168);
            writeXml.WriteElementString(Netmask, 255.255.255.0);
            writeXml.WriteElementString(Gateway, 202.103.24.68);
  
            writeXml.WriteEndElement();
            writeXml.WriteEndElement();
  
            writeXml.Flush();
            writeXml.Close();

不用findNode的写法

Xml.DocumentElement.ChildNodes['makeCard'].ChildNodes['sfzCard'].NodeValue

遍历节点

  self.XMLDocument1.LoadFromXML(Memo2.Lines.Text);
  for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do
  begin
    self.Caption := XMLDocument1.DocumentElement.ChildNodes[i].NodeName;
    self.Caption := XMLDocument1.DocumentElement.ChildNodes[i].Text;
  end;

    for (int i = 0; i < XMLDocument1->DocumentElement->ChildNodes->Count; i++)
        {
 
            s1 = XMLDocument1->DocumentElement->ChildNodes->Get(i)->NodeName;
          s2=    XMLDocument1->DocumentElement->ChildNodes->Get(i)->Text;
}