Visual Basic代码生成XML文件无输出问题求助

问题描述 #

运行以下VB代码，向lstF25添加若干项后点击quit按钮，既无报错也未生成XML文件，需定位并解决该问题。

核心错误点 #

• 数据未持久化到存储容器：点击btnAdd时仅向列表框添加了显示文本，但未将姓名、班级、对应事件存储到Fullname、homeroom、Event1数组中，导致生成XML时无有效数据可写入。
• XmlTextWriter初始化时机错误：在类级别提前初始化writer，程序启动时就创建了空文件，后续写入操作可能因文件状态异常失效，应在btnQuit事件内动态创建写入器。
• XML结构逻辑错误：createNode方法每次调用都创建<Participants>根元素，不符合XML单一根节点的规范，应将根节点在外部只写一次，内部生成<Participant>子节点。
• 重复关闭写入器：btnQuit中连续两次调用writer.Close()，会引发IO异常（因第一次关闭后写入器已释放），虽End语句终止程序未抛出，但属于错误逻辑。
• 循环无有效数据：数组未存储任何数据，即使循环执行，写入的也是空字符串，无法生成有效XML内容。
• 固定数组限制：Fullname等数组固定大小为7，超过7条数据会引发溢出错误，建议改用动态集合。

修正后的代码 #

Imports System.Xml
Public Class Form1
    Dim F25int As Integer = 0
    Dim F50int As Integer = 0
    Dim B25int As Integer = 0
    Dim B50int As Integer = 0
    ' 改用动态List存储数据，避免固定大小限制
    Dim Fullname As New List(Of String)()
    Dim homeroom As New List(Of String)()
    Dim Event1 As New List(Of String)()
    Dim F25I As Integer
    Dim F50I As Integer
    Dim B25I As Integer
    Dim B50I As Integer
    Dim xmlDoc As New XmlDocument()

    Private Sub createNode(ByVal pEvent As String, ByVal pName As String, ByVal pHomeroom As String, ByVal writer As XmlTextWriter)
        ' 生成单个参与者节点，而非根节点
        writer.WriteStartElement("Participant")
        writer.WriteStartElement("Event")
        writer.WriteString(pEvent)
        writer.WriteEndElement()
        writer.WriteStartElement("Name")
        writer.WriteString(pName)
        writer.WriteEndElement()
        writer.WriteStartElement("Homeroom")
        writer.WriteString(pHomeroom)
        writer.WriteEndElement()
        writer.WriteEndElement()
    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim fullNameText As String = txtName.Text & " " & txtSurname.Text
        Dim homeroomText As String = cmbHomeroom.Text

        If chkF25.Checked Then
            lstF25.Items.Add(fullNameText & " " & homeroomText)
            ' 将数据存入List
            Fullname.Add(fullNameText)
            homeroom.Add(homeroomText)
            Event1.Add("F25")
            F25int = F25int + 1
        End If
        If chkF50.Checked Then
            lstF50.Items.Add(fullNameText & " " & homeroomText)
            Fullname.Add(fullNameText)
            homeroom.Add(homeroomText)
            Event1.Add("F50")
            F50int = F50int + 1
        End If
        If chkB25.Checked Then
            lstB25.Items.Add(fullNameText & " " & homeroomText)
            Fullname.Add(fullNameText)
            homeroom.Add(homeroomText)
            Event1.Add("B25")
            B25int = B25int + 1
        End If
        If chkB50.Checked Then
            lstB50.Items.Add(fullNameText & " " & homeroomText)
            Fullname.Add(fullNameText)
            homeroom.Add(homeroomText)
            Event1.Add("B50")
            B50int = B50int + 1
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cmbHomeroom.Items.AddRange({"7.1", "7.2", "7.3", "7.4", "7.5", "7.6", "7.7", "7.8", "7.9"})
    End Sub

    Private Sub btndeleteF25_Click(sender As Object, e As EventArgs) Handles btndeleteF25.Click
        If lstF25.SelectedIndex >= 0 Then
            lstF25.Items.RemoveAt(lstF25.SelectedIndex)
            ' 删除对应索引的List数据
            Fullname.RemoveAt(lstF25.SelectedIndex)
            homeroom.RemoveAt(lstF25.SelectedIndex)
            Event1.RemoveAt(lstF25.SelectedIndex)
            F25int = F25int - 1
            F25()
        End If
    End Sub

    Private Sub F25()
        If lstF25.Items.Count > 0 Then
            lstF25.SelectedIndex = lstF25.Items.Count - 1
        End If
    End Sub

    ' 其余删除事件同理，需同步删除List中的数据，此处省略重复代码

    Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
        ' 在退出事件内创建XmlTextWriter，避免提前初始化问题
        Using writer As New XmlTextWriter("participants.xml", System.Text.Encoding.UTF8)
            writer.Formatting = Formatting.Indented
            writer.Indentation = 2
            ' 写入唯一的根节点
            writer.WriteStartElement("Participants")
            ' 循环写入所有参与者数据
            For i As Integer = 0 To Fullname.Count - 1
                createNode(Event1(i), Fullname(i), homeroom(i), writer)
            Next
            writer.WriteEndElement()
            ' Using块会自动释放writer，无需手动Close
        End Using

        ' 可选：验证XML文件是否生成
        If System.IO.File.Exists("participants.xml") Then
            xmlDoc.Load("participants.xml")
            MsgBox("XML文件生成成功")
        Else
            MsgBox("XML文件未生成")
        End If

        Me.Close()
    End Sub
End Class

关键修正说明 #

1. 改用动态List存储数据：替代固定大小数组，避免溢出问题，同时方便添加/删除操作。
2. btnAdd时同步存储数据：点击添加按钮时，将姓名、班级、事件类型存入对应的List中，确保生成XML时有数据可用。
3. 调整XML结构：根节点<Participants>只写一次，createNode生成单个<Participant>子节点，符合XML规范。
4. Using块管理XmlTextWriter：自动处理资源释放，避免重复Close的错误，同时确保文件写入完成后正确关闭。
5. 修正循环逻辑：遍历所有存储的参与者数据，若需单独处理F25类型，可在循环中判断Event1(i)是否为"F25"。
6. 删除操作同步更新List：删除列表项时同步删除对应索引的List数据，保持数据一致性。

内容的提问来源于stack exchange，提问作者Edward Gibson