建立一个XML文档的实例代码
2005-08-31 00:46
686 查看
用TXMLDocument
存:
MsgXML->Active = false;
MsgXML->Active = true;
_di_IXMLNode ChildNode,ValueNode;
MsgXML->XML->Clear();
_di_IXMLNode TopNode = MsgXML->ChildNodes->FindNode("saveMessage"); //顶级节点
if(TopNode == NULL)
TopNode = MsgXML->AddChild("saveMessage");
for(int i=0;i<100;i++)
{
ChildNode=TopNode->AddChild("Message");
ValueNode=ChildNode->AddChild("Flag");
ValueNode->Text=String(saveMsg[i].Flag);
ValueNode=ChildNode->AddChild("UsrID");
ValueNode->Text=String(saveMsg[i].UsrID);
ValueNode=ChildNode->AddChild("UsrName");
ValueNode->Text=String(saveMsg[i].UsrName);
ValueNode=ChildNode->AddChild("UsrIP");
ValueNode->Text=String(saveMsg[i].UsrIP);
ValueNode=ChildNode->AddChild("Title");
ValueNode->Text=String(saveMsg[i].Title);
ValueNode=ChildNode->AddChild("Content");
ValueNode->Text=String(saveMsg[i].Content);
ValueNode=ChildNode->AddChild("Time");
ValueNode->Text=String(saveMsg[i].Time);
}
MsgXML->SaveToFile(ExtractFilePath(Application->ExeName)+USERID+".xml");
MsgXML->Active = false;
取:
IXMLNode *node;
IXMLNodeList *parentlist=NULL,*childlist=NULL;
int i,j;
try
{
node=MainForm->MsgXML->ChildNodes->FindNode("allMessage"); //顶级节点
if(node->GetNodeType()==ntElement) //一级节点
{
parentlist=node->ChildNodes; //一级节点列表
if(parentlist->Count == 0)
return;
TListItem *pItem;
for(i=0;i<parentlist->Count;i++)
{
if(parentlist->Nodes[i]->GetNodeType()==ntElement) //二级节点
{
childlist=parentlist->Nodes[i]->ChildNodes; //二级节点列表
if(String(childlist->Nodes[1]->Text) != CName)
continue;
pItem = History->Items->Add();
pItem->Caption = "标题:"+String(childlist->Nodes[2]->Text)+" ("+String(childlist->Nodes[0]->Text)+")";
pItem = History->Items->Add();
pItem->Caption = " 内容:"+String(childlist->Nodes[3]->Text);
}
}
}
}
catch(...)
{
;
}
存:
MsgXML->Active = false;
MsgXML->Active = true;
_di_IXMLNode ChildNode,ValueNode;
MsgXML->XML->Clear();
_di_IXMLNode TopNode = MsgXML->ChildNodes->FindNode("saveMessage"); //顶级节点
if(TopNode == NULL)
TopNode = MsgXML->AddChild("saveMessage");
for(int i=0;i<100;i++)
{
ChildNode=TopNode->AddChild("Message");
ValueNode=ChildNode->AddChild("Flag");
ValueNode->Text=String(saveMsg[i].Flag);
ValueNode=ChildNode->AddChild("UsrID");
ValueNode->Text=String(saveMsg[i].UsrID);
ValueNode=ChildNode->AddChild("UsrName");
ValueNode->Text=String(saveMsg[i].UsrName);
ValueNode=ChildNode->AddChild("UsrIP");
ValueNode->Text=String(saveMsg[i].UsrIP);
ValueNode=ChildNode->AddChild("Title");
ValueNode->Text=String(saveMsg[i].Title);
ValueNode=ChildNode->AddChild("Content");
ValueNode->Text=String(saveMsg[i].Content);
ValueNode=ChildNode->AddChild("Time");
ValueNode->Text=String(saveMsg[i].Time);
}
MsgXML->SaveToFile(ExtractFilePath(Application->ExeName)+USERID+".xml");
MsgXML->Active = false;
取:
IXMLNode *node;
IXMLNodeList *parentlist=NULL,*childlist=NULL;
int i,j;
try
{
node=MainForm->MsgXML->ChildNodes->FindNode("allMessage"); //顶级节点
if(node->GetNodeType()==ntElement) //一级节点
{
parentlist=node->ChildNodes; //一级节点列表
if(parentlist->Count == 0)
return;
TListItem *pItem;
for(i=0;i<parentlist->Count;i++)
{
if(parentlist->Nodes[i]->GetNodeType()==ntElement) //二级节点
{
childlist=parentlist->Nodes[i]->ChildNodes; //二级节点列表
if(String(childlist->Nodes[1]->Text) != CName)
continue;
pItem = History->Items->Add();
pItem->Caption = "标题:"+String(childlist->Nodes[2]->Text)+" ("+String(childlist->Nodes[0]->Text)+")";
pItem = History->Items->Add();
pItem->Caption = " 内容:"+String(childlist->Nodes[3]->Text);
}
}
}
}
catch(...)
{
;
}
相关文章推荐
- JavaScript 解析读取XML文档 实例代码
- JavaScript 解析读取XML文档 实例代码
- ASP.NET学习小结(1)--Cookie,XML(建立xml文档,和查找一个结点)
- 一个完整的定向小虫,方便大家看小说,呵呵,有完整代码,实例,文档。。还可定制,这仅仅是一个小小的演试.
- JavaScript 解析读取XML文档 实例代码(转)
- Oracle 远程访问配置 在 Windows Forms 和 WPF 应用中使用 FontAwesome 图标 C#反序列化XML异常:在 XML文档(0, 0)中有一个错误“缺少根元素” C#[Win32&WinCE&WM]应用程序只能运行一个实例:MutexHelper Decimal类型截取保留N位小数向上取, Decimal类型截取保留N位小数并且不进行四舍五入操作
- Asp.net XML文档进行添加删改操作的实例代码
- 整理文档,搜刮出一个vue2.0的contextmenu右键弹出菜单的实例代码
- java使用DOM对XML文档进行增删改查操作实例代码
- Asp.net XML文档进行添加删改操作的实例代码
- php生成xml简单实例代码
- C#写的照片上传代码--建立一个一般处理程序
- OpenCascade 6.6 在 VS2008 的编译和一个单文档程序的建立
- 一个简单的Ext.XTemplate的实例代码
- 一个java读取word文档并将其写入xml文档的例子
- xml文档只能有一个顶层元素 例如:
- XML解析器可以读取、更新、创建、操作一个XML文档
- 一个完全打印出xml文档的程序 [我真是无聊]
- 一个JavaScript去除字符串末尾的空白实例代码
- python 解析XML python模块xml.dom解析xml实例代码