-- 作者：yerendao
-- 发布时间：3/15/2006 12:55:00 PM
-- [求助]用VB.NET编写了个写XML文件,请指导下有没有问题,急需 。谢谢
[求助]编写了个写XML文件,请指导下有没有问题,急需 。谢谢 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim myTW As New Xml.XmlTextWriter("c:\xdj.xml", Nothing)
Dim a1 = TextBox1.Text
Dim a2 = TextBox2.Text
Dim a3 = TextBox3.Text
Dim a4 = TextBox4.Text
Dim a5 = TextBox5.Text
Dim a6 = TextBox6.Text
Dim a7 = TextBox7.Text
Dim a8 = TextBox8.Text
Dim a9 = TextBox9.Text
Dim a10 = TextBox10.Text
Dim a11 = TextBox11.Text
myTW.WriteStartElement("OKCALL")
myTW.WriteStartElement("ERROR")
myTW.WriteElementString("RETRY", "XmlConvert.ToString(a1)")
myTW.WriteEndElement()
myTW.WriteStartElement("LOGFILE")
myTW.WriteElementString("LOGLEVEL", "XmlConvert.ToString(a2)")
myTW.WriteElementString("OKCALL", "XmlConvert.ToString(a3)")
myTW.WriteElementString("AUTOCALL", "XmlConvert.ToString(a4)")
myTW.WriteElementString("AutoReserve", "XmlConvert.ToString(a5)")
myTW.WriteElementString("FILESIZE", "XmlConvert.ToString(a6)")
myTW.WriteElementString("BACKUP", "XmlConvert.ToString(a7)")
myTW.WriteEndElement()
myTW.WriteStartElement("TIME")
myTW.WriteElementString("AUTORESERVE", "XmlConvert.ToString(a8)")
myTW.WriteElementString("AUTOCALL", "XmlConvert.ToString(a9)")
myTW.WriteElementString("CheckInterval", "XmlConvert.ToString(a10)")
myTW.WriteElementString("PlayWait", "XmlConvert.ToString(a11)")
myTW.WriteEndElement()
myTW.Close()
End Sub
|