使用 TextFieldParser 从文本文件中读取

如何解决使用 TextFieldParser 从文本文件中读取

当使用 textfieldparser 读取固定字段宽度的文本文件（3 个字段，分别为 17、90 和 120 个字符，即 227 个字符）时，一旦我将最后一个文本框留空（TextBox4），我就会收到错误消息。 在我看来，这种情况正在发生，因为字段长度比预期的要短。

 Using Reader As New Microsoft.VisualBasic.FileIO.
       textfieldparser(OuvrirFichier,Encoding.UTF8)

                Reader.TextFieldType =
           Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
                Reader.SetFieldWidths(227)
                Dim currentRow As String()
                While Not Reader.EndOfData
                    Try
                        currentRow = Reader.ReadFields()
                        Dim currentField As String
                        For Each currentField In currentRow
                            TextBox2.Text = currentField.Substring(0,17)
                            TextBox1.Text = currentField.Substring(17,90)
                            TextBox4.Text = currentField.Substring(107) ',120))
                            Dim node As TreeNode = Me.TreeView1.Nodes(0)
                            TreeView1.Nodes(0).Nodes.Add(New TreeNode(TextBox1.Text))
                            ListBox2.Items.Add(TextBox1.Text)
                        Next
                    Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                        MsgBox("La ligne " & ex.Message &
                    " n'est pas valide et sera ignorée.")
                    End Try
                End While
            End Using

'保存

Dim fileName As String = OuvrirFichier
                Dim bt As New article With {
                        .Title = TextBox2.Text,.Name = TextBox1.Text,.Charge = TextBox4.Text
                }

                Using fs As New FileStream(fileName,FileMode.Append)
                    Using writer As New StreamWriter(fs,Encoding.UTF8)
                        If fs.Length > 0 Then writer.WriteLine()
                        writer.Write($"{bt.Title,-17}{bt.Name,-90}{bt.Charge,-120}")
                    End Using
                End Using