Imports System.Text
Imports System.Xml
Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
SavePath = FolderBrowserDialog1.SelectedPath
End If
Dim name As String = TextBox1.Text
Dim number As String = TextBox2.Text
Dim classroom As String = TextBox3.Text
Dim face As String = TextBox4.Text
Dim moblie As String = TextBox5.Text
WriteXML(name, number, classroom, face, moblie)
MessageBox.Show("保存成功!")
End Sub
Dim SavePath As String = String.Empty
Private Sub WriteXML(name As String, number As String, classroom As String,
face As String, moblie As String)
Dim path As String = SavePath
If String.IsNullOrWhiteSpace(path) Then
MessageBox.Show("请先选择路径")
Return
End If
Try
Dim filename As String = path + "\\" + DateTime.Now.ToString("yyyyMMddHHssmm") + ".xml"
Dim xml As XmlTextWriter = New XmlTextWriter(filename, Encoding.UTF8)
xml.Formatting = Formatting.Indented
xml.WriteStartDocument()
xml.WriteStartElement("记录")
xml.WriteStartElement("姓名")
xml.WriteCData(name)
xml.WriteEndElement()
xml.WriteStartElement("学号")
xml.WriteCData(number)
xml.WriteEndElement()
xml.WriteStartElement("班级")
xml.WriteCData(classroom)
xml.WriteEndElement()
xml.WriteStartElement("政治面貌")
xml.WriteCData(face)
xml.WriteEndElement()
xml.WriteStartElement("联系方式")
xml.WriteCData(moblie)
xml.WriteEndElement()
xml.WriteEndDocument()
xml.Flush()
xml.Close()
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
SavePath = OpenFileDialog1.FileName
End If
Try
Dim doc As XmlDocument = New XmlDocument
Dim path As String = SavePath
doc.Load(path)
Dim name As String = doc.GetElementsByTagName("姓名").Item(0).InnerText
Dim number As String = doc.GetElementsByTagName("学号").Item(0).InnerText
Dim classroom As String = doc.GetElementsByTagName("班级").Item(0).InnerText
Dim face As String = doc.GetElementsByTagName("政治面貌").Item(0).InnerText
Dim mobile As String = doc.GetElementsByTagName("联系方式").Item(0).InnerText
TextBox1.Text = name
TextBox2.Text = number
TextBox3.Text = classroom
TextBox4.Text = face
TextBox5.Text = mobile
Catch ex As Exception
End Try
End Sub
Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
Dim close As DialogResult
close = MsgBox("确定关闭窗口?", MsgBoxStyle.OkCancel, "提示")
If close = 2 Then
e.Cancel = True
End If
End Sub
End Class