.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
vb.net 读写xml方法(1)

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

    Dim domXmlDocument As System.Xml.XmlDocument
    Dim tmpPath As String = AppTempFilePath
    Dim xmlFile As String = tmpPath + "\testXml.xml"


'窗体加载事件
    Private Sub TestXml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '读xml过程测试通过
        Dim domXmlDocument As System.Xml.XmlDocument
        Dim tmpPath As String = AppTempFilePath
        Dim xmlFile As String = tmpPath + "\testXml.xml"
        Dim reader As System.Xml.XmlReader = Nothing
        Try
            reader = New Xml.XmlTextReader(xmlFile)
            'reader.
            While reader.Read
                Me.lboxXml.Items.Add(reader.Name + reader.Value)
            End While

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If Not (reader Is Nothing) Then
                reader.Close()
            End If
        End Try

    End Sub

    '载入xml事件
    Private Sub btnXmlLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXmlLoad.Click
        'Me.lboxXml.Items.Clear()
        ''读xml过程测试通过

        'Dim reader As System.Xml.XmlReader = Nothing
        'Try
        '    reader = New Xml.XmlTextReader(xmlFile)
        '    While reader.Read
        '        Me.lboxXml.Items.Add(reader.Name + ":" + reader.Value)
        '    End While
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'Finally
        '    If Not (reader Is Nothing) Then
        '        reader.Close()
        '    End If
        'End Try
        Dim ds As New DataSet
        Try
            '如果直接使用ds做datasource则不会展开datagrid,用dv则可以直接显示正确。
            ds.ReadXml(xmlFile)
            Dim tb As DataTable
            Dim dv As DataView
            tb = ds.Tables(0)
            dv = New DataView(tb)
            DataGrid1.DataSource = dv
            'DataGrid1.DataMember = "testXmlMember"
            'DataGrid1.DataMember = "employeefname"
            'Dim dxd As New XmlDataDocument
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End Sub

    '保存新建xml内容事件
    Private Sub btnSaveNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveNew.Click

        Dim myTW As New XmlTextWriter(tmpPath + "\testXmlWrite.xml", Nothing)

        myTW.WriteStartDocument()
        myTW.Formatting = Formatting.Indented

        myTW.WriteStartElement("Team")

        myTW.WriteStartElement("player")
        myTW.WriteAttributeString("Name", "George Zip")
        myTW.WriteAttributeString("Position", "QB")
        myTW.WriteElementString("Nickname", "Zippy")
        myTW.WriteElementString("JerseyNumber", XmlConvert.ToString(7))

        myTW.WriteEndElement()

        myTW.WriteEndElement()

        myTW.WriteEndDocument()

        myTW.Close()

    End Sub


对于修改datagrid中指定内容并保存到xml中还不会,弄明白了,在vb.net与xml读写的2中写出来!




相关文章

相关软件