计算机科学论坛--[求助]用VB.NET编写了个写XML文件,请指导下有没有问题,急需。谢谢

贴子主题： [求助]用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


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	62.988ms