Dim?xmlDoc?As?New?System.Xml.XmlDocument
xmlDoc.Load("c:\xml.xml")?'载入xml文件
Dim?Items?As?Xml.XmlNodeList?=?xmlDoc.DocumentElement.SelectNodes("//record/item")?'参数为xpath查询串,前面斜杠,//:表示任何结点,/：表示根结点
For?Each?s?As?Xml.XmlNode?In?Items
Console.WriteLine(s.Attributes.GetNamedItem("id").Value?vbTab?s.InnerText)
Next
DataSet 和 DataTable都有现成的方法：WriteXml
DataTable tb = this.dataGridView1.DataSource as DataTable;
if(tb != null)
{
tb.WriteXml(@"C:\table.xml",true);
return;
}
DataView dv = this.dataGridView1.DataSource as DataView;
if(dv != null)
dv.Table.WriteXml(@"C:\table.xml",true);
IList list = this.dataGridView1.DataSource as IList;
if(list != null)
//to do,如果是IList,就要你自己想办法导出了
//XmlDocument or XmlWriter都可以考虑
先读取节点Match,然后读取节点内的各个属性值.
再进行节点中的子节点SetSetName的读取,读取方式也是直接读取各个属性值.
DataSet
和
DataTable
都有现成的方法：WriteXml
tb
=
this.
dataGridView
①DataSource
as
DataTable;
if(tb
!=
null)
DataView
dv
this.dataGridView1.DataSource
DataView;
if(dv
IList
list
IList;
if(list
//to
do,如果是IList,就要你自己想办法导出了
//XmlDocument
or
XmlWriter
都可以考虑
Dim path As String = PDA_PATH "ife.XML" 'PDA_PATH 为路径
Dim ds As New DataSet
ds.ReadXml(path)
Dim dt As DataTable = ds.Tables.Item(0)
Dim blnY As Boolean = True
For Each row As DataRow In dt.Rows
If row.Item("Translation").ToString.ToUpper ="确认"Then
row.Item("Translation") ="替换"
blnY = False
Exit For
End If
If blnY Then
MsgBox("输入的XXX不存在,请重新输入！ ")
Return
ds.WriteXml(path)
MessageBox.Show("修改数据并保存成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
或者
Dim xmlDoc As New XmlDocument()
'Dim nodeList As New XmlNodeList
xmlDoc.Load("life..xml") '加载
Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNod.("UITranslations").ChildNodes '获取bookstore节点的所有子节点
Dim xn As XmlNode
For Each xn In nodeList '遍历所有子节点
Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型
Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点
Dim xn1 As XmlNode
For Each xn1 In nls '遍历
'Exit For Each '找到退出来就可以了
Next xn1
Next xn
xmlDoc.Save("life.xml") '保存.
MessageBox.Show("修改XML成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
看能不能帮到你！
使用DataSet类来完成这项任务.
DataSet对象在传输时,是以XML流的形式而不是以COM形式传输的.DataSet对象可以读取XML数据文件或者数据流,从而将树型结构的XML数据转换成关系型的数据,如表(DataTable)、列(DataColumn)、行(DataRow)等.
在这个实例中,我们将XML文件命名为"xmlfile．xml",具体内容如下：
xml version=\"1．0\"standalone="yes"?
Detail
Person
NameManish/Name
/Person
/Detail \'用VB．NET读写XML文件
C1aSS WriteXML
Shared Sub main()
Dim obj DataSet As New System．Data．DataSet()
Dim strVirtualPath As String="t．xml"
\'载入XML文件DataSet
objDataSet．ReadXml("xmlfile．xml")
\'通过控制器读取XML内容
Console．Write(objDataSet．GetXml)
\'从原XML文件中得到数据
ConSOle．Write("Enter Name：")
Dim fname,age As String
fname=ConS01e．ReadLine
\'写入你希望的代码
ConS01e．Write("Enter Age：")
age=Console．ReadLine
ConS0le．Write(fname＆age)
Dim v(1)As String
v(0)=fname
V(1)=age
\'增加数据DataSet
objDataSet．Tables(0)．Rows．Add(V)
\'更新XML文件
objDataSet．WriteXml("xmlfile．xml")
Console．Write(obj DataSet．GetXml)
End Sub
End C1ass
运行该程序有两种方式,一种是在Microso~VS．NET框架中编译完后运行；另一种则是在仿DOS的Command窗口中运行.在第一种方式中,必须加上System、System．Data、System．xML的引用.具体方法为：先创建一个空的项目,然后加入这个文件名字；在"解决方案资源管理器"中加入引用,此时需要选择相应的．dll文件；注意,xmlfile．xml文件应该放在工程的/bin目录下面.我们可以输出结果也可以用浏览器直接查看改变后的XML文件.在第二种方式中,选择桌面的"程序"一"Microso~Visual Studio．NET"一"VisualStudio．NET工具"一"Visual Studio．NET命令提示"命令,在DOS命令提示框敲入命令：[Page]
以上就是土嘎嘎小编为大家整理的关于vb.netxml文件的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！