加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

vb.net 读写xml方法(1)

发布时间:2020-12-16 22:43:37 所属栏目:大数据 来源:网络整理
导读:DimdomXmlDocumentAsSystem.Xml.XmlDocument DimtmpPathAsString=AppTempFilePath DimxmlFileAsString=tmpPath+"testXml.xml" ’窗体加载事件 PrivateSubTestXml_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load ’读xml过程

DimdomXmlDocumentAsSystem.Xml.XmlDocument DimtmpPathAsString=AppTempFilePath DimxmlFileAsString=tmpPath+"testXml.xml" ’窗体加载事件 PrivateSubTestXml_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load ’读xml过程测试通过 DimdomXmlDocumentAsSystem.Xml.XmlDocument DimtmpPathAsString=AppTempFilePath DimxmlFileAsString=tmpPath+"testXml.xml" DimreaderAsSystem.Xml.XmlReader=Nothing Try reader=NewXml.XmlTextReader(xmlFile) ’reader. Whilereader.Read Me.lboxXml.Items.Add(reader.Name+reader.Value) EndWhile CatchexAsException MsgBox(ex.Message) Finally IfNot(readerIsNothing)Then reader.Close() EndIf EndTry EndSub ’载入xml事件 PrivateSubbtnXmlLoad_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnXmlLoad.Click ’Me.lboxXml.Items.Clear() ’’读xml过程测试通过 ’DimreaderAsSystem.Xml.XmlReader=Nothing ’Try ’reader=NewXml.XmlTextReader(xmlFile) ’Whilereader.Read ’Me.lboxXml.Items.Add(reader.Name+":"+reader.Value) ’EndWhile ’CatchexAsException ’MsgBox(ex.Message) ’Finally ’IfNot(readerIsNothing)Then ’reader.Close() ’EndIf ’EndTry DimdsAsNewDataSet Try ’如果直接使用ds做datasource则不会展开datagrid,用dv则可以直接显示正确。 ds.ReadXml(xmlFile) DimtbAsDataTable DimdvAsDataView tb=ds.Tables(0) dv=NewDataView(tb) DataGrid1.DataSource=dv ’DataGrid1.DataMember="testXmlMember" ’DataGrid1.DataMember="employeefname" ’DimdxdAsNewXmlDataDocument CatchexAsException MsgBox(ex.Message.ToString) EndTry EndSub ’保存新建xml内容事件 PrivateSubbtnSaveNew_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnSaveNew.Click DimmyTWAsNewXmlTextWriter(tmpPath+"testXmlWrite.xml",Nothing) myTW.WriteStartDocument() myTW.Formatting=Formatting.Indented myTW.WriteStartElement("Team") myTW.WriteStartElement("player") myTW.WriteAttributeString("Name","GeorgeZip") myTW.WriteAttributeString("Position","QB") myTW.WriteElementString("Nickname","Zippy") myTW.WriteElementString("JerseyNumber",XmlConvert.ToString(7)) myTW.WriteEndElement() myTW.WriteEndElement() myTW.WriteEndDocument() myTW.Close() EndSub 对于修改datagrid中指定内容并保存到xml中还不会,弄明白了,在vb.net与xml读写的2中写出来!

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读