求助: 读写,更新XML文件 -- 用vb.net 在线等!

wjohnltj 2006-02-21 12:58:09

有下面一个xml文件。
<INVOICE xmlns="http://XMLTEST">
<INVOICE_RECORD>
<ID>T00001</TX_ID>
<CUST_CODE>G001</CUST_CODE>
<BUYER_PART>Test001</EDI_CUST_PART>
<SELLER_PART>P0001</PARTNUM>
<REVISION>SH</REVISION>
<ERR_NUM />
</INVOICE_RECORD>
<INVOICE_RECORD>
<ID>T00002</TX_ID>
<CUST_CODE>G001</CUST_CODE>
<BUYER_PART>Test002</EDI_CUST_PART>
<SELLER_PART>P0002</PARTNUM>
<REVISION>SH</REVISION>
<ERR_NUM />
</INVOICE_RECORD>
<INVOICE_RECORD>
<ID>T00003</TX_ID>
<CUST_CODE>G001</CUST_CODE>
<BUYER_PART>Test003</EDI_CUST_PART>
<SELLER_PART>P0003</PARTNUM>
<REVISION>SH</REVISION>
<ERR_NUM />
</INVOICE_RECORD>
</INVRPT_ROOT>

要求能读取这个文件并更新节点ERR_NUM, 比如先要读出CUST_CODE,BUYER_PART的值,然后在把这两个值组合到一起“G001Test003",赋给ERR_NUM. 请问,该如何处理。最后能贴出比较详细的代码。
谢谢!
...全文
233 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
why2002plus 2006-02-21
  • 打赏
  • 举报
回复
抄别人的,不过比较详细。
已知有一个XML文件(bookstore.xml)如下:
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>

1、往<bookstore>节点中插入一个<book>节点:
XmlDocument xmlDoc=new XmlDocument();
xmlDoc.Load("bookstore.xml");
XmlNode root=xmlDoc.SelectSingleNode("bookstore");//查找<bookstore>
XmlElement xe1=xmlDoc.CreateElement("book");//创建一个<book>节点
xe1.SetAttribute("genre","李赞红");//设置该节点genre属性
xe1.SetAttribute("ISBN","2-3631-4");//设置该节点ISBN属性

XmlElement xesub1=xmlDoc.CreateElement("title");
xesub1.InnerText="CS从入门到精通";//设置文本节点
xe1.AppendChild(xesub1);//添加到<book>节点中
XmlElement xesub2=xmlDoc.CreateElement("author");
xesub2.InnerText="候捷";
xe1.AppendChild(xesub2);
XmlElement xesub3=xmlDoc.CreateElement("price");
xesub3.InnerText="58.3";
xe1.AppendChild(xesub3);

root.AppendChild(xe1);//添加到<bookstore>节点中
xmlDoc.Save("bookstore.xml");
//===============================================
结果为:
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book genre="李赞红" ISBN="2-3631-4">
<title>CS从入门到精通</title>
<author>候捷</author>
<price>58.3</price>
</book>
</bookstore>

2、修改节点:将genre属性值为“李赞红“的节点的genre值改为“update李赞红”,将该节点的子节点<author>的文本修改为“亚胜”。
XmlNodeList nodeList=xmlDoc.SelectSingleNode("bookstore").ChildNodes;//获取bookstore节点的所有子节点
foreach(XmlNode xn in nodeList)//遍历所有子节点
{
XmlElement xe=(XmlElement)xn;//将子节点类型转换为XmlElement类型
if(xe.GetAttribute("genre")=="李赞红")//如果genre属性值为“李赞红”
{
xe.SetAttribute("genre","update李赞红");//则修改该属性为“update李赞红”

XmlNodeList nls=xe.ChildNodes;//继续获取xe子节点的所有子节点
foreach(XmlNode xn1 in nls)//遍历
{
XmlElement xe2=(XmlElement)xn1;//转换类型
if(xe2.Name=="author")//如果找到
{
xe2.InnerText="亚胜";//则修改
break;//找到退出来就可以了
}
}
break;
}
}

xmlDoc.Save("bookstore.xml");//保存。
//==================================================
最后结果为:
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book genre="update李赞红" ISBN="2-3631-4">
<title>CS从入门到精通</title>
<author>亚胜</author>
<price>58.3</price>
</book>
</bookstore>

3、删除 <book genre="fantasy" ISBN="2-3631-4">节点的genre属性,删除 <book genre="update李赞红" ISBN="2-3631-4">节点。
XmlNodeList xnl=xmlDoc.SelectSingleNode("bookstore").ChildNodes;

foreach(XmlNode xn in xnl)
{
XmlElement xe=(XmlElement)xn;
if(xe.GetAttribute("genre")=="fantasy")
{
xe.RemoveAttribute("genre");//删除genre属性
}
else if(xe.GetAttribute("genre")=="update李赞红")
{
xe.RemoveAll();//删除该节点的全部内容
}
}
xmlDoc.Save("bookstore.xml");
//===========================================
最后结果为:
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book>
</book>
</bookstore>

4、显示所有数据。
XmlNode xn=xmlDoc.SelectSingleNode("bookstore");

XmlNodeList xnl=xn.ChildNodes;

foreach(XmlNode xnf in xnl)
{
XmlElement xe=(XmlElement)xnf;
Console.WriteLine(xe.GetAttribute("genre"));//显示属性值
Console.WriteLine(xe.GetAttribute("ISBN"));

XmlNodeList xnf1=xe.ChildNodes;
foreach(XmlNode xn2 in xnf1)
{
Console.WriteLine(xn2.InnerText);//显示子节点点文本
}
}
43720938 2006-02-21
  • 打赏
  • 举报
回复
收藏
夜雨悠扬 2006-02-21
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/TopicView.asp?id=4564886
我昨天写的例子,你研究一下,应该就明白了
astly2004 2006-02-21
  • 打赏
  • 举报
回复
给你段代码,自己看看就OK啦,简单。
放到DataSet里边
然后INVOICE_RECORD就是一个表,ID等是字段,值就是字段值啦
dsXmlFile_Data.ReadXml(strXmlFilePath)

还有个直接读的,asp中
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.Load(filename)
Set objNodeList = objXML.DocumentElement.ChildNodes
If objNodeList.Length > 0 Then

ReDim Table_Name(objNodeList.Length-1)
ReDim Lad_Update(objNodeList.Length-1)
ReDim Compare_Flag(objNodeList.Length-1)
For i = 0 To objNodeList.Length - 1
Set objNode = objNodeList.nextNode()

Table_Name(i) = Trim(objNode.SelectSingleNode("NAME").text)

Lad_Update(i) = Trim(objNode.SelectSingleNode("LAD_UPDATE").text)
Set objNode = Nothing
Next

vb.net里一样的

更新节点值就是直接符值

参考一下
objChildNode = objXML.CreateNode(Xml.XmlNodeType.Element, "LAD_UPDATE", "")
objNode.AppendChild(objChildNode)
objChildNode.InnerText = IIf(Trim(ObjRst_MastDB.Fields("LAD_UPDATE").Value & "") <> "", _
Trim(ObjRst_MastDB.Fields("LAD_UPDATE").Value & ""), Now)

追加节点,符值都有了。

16,553

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧