如何：在 Visual Basic 中读取逗号分隔的文本文件

  • 项目

TextFieldParser 对象提供一种可以轻松而高效地分析结构化文本文件（如日志）的方法。 TextFieldType 属性用于定义文件是带分隔符的文件还是具有固定宽度文本字段的文件。

分析逗号分隔的文本文件

  1. 创建新的 TextFieldParser。 下面的代码创建名为 MyReader 的 TextFieldParser，并打开 test.txt 文件。

    Using MyReader As New Microsoft.VisualBasic.
                      FileIO.TextFieldParser(
                        "C:\TestFolder\test.txt")

  2. 定义 TextField 类型和分隔符。 下面的代码将 TextFieldType 属性定义为 Delimited，并将分隔符定义为“,”。

    MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(",")

  3. 循环访问文件中的各个字段。 如果遇到任何损坏的行，则报告错误，然后继续分析。 下面的代码循环访问该文件，依次显示各字段并报告所有格式不正确的字段。

    
Dim currentRow As String()
While Not MyReader.EndOfData
    Try
        currentRow = MyReader.ReadFields()
        Dim currentField As String
        For Each currentField In currentRow
            MsgBox(currentField)
        Next
    Catch ex As Microsoft.VisualBasic.
                FileIO.MalformedLineException
        MsgBox("Line " & ex.Message &
        "is not valid and will be skipped.")
    End Try

  4. 用 End While 和 End Using 结束 While 和 Using 块。

        End While
End Using

示例

此示例读取文件 test.txt。

Using MyReader As New Microsoft.VisualBasic.
                      FileIO.TextFieldParser(
                        "C:\TestFolder\test.txt")
    MyReader.TextFieldType = FileIO.FieldType.Delimited
    MyReader.SetDelimiters(",")
    Dim currentRow As String()
    While Not MyReader.EndOfData
        Try
            currentRow = MyReader.ReadFields()
            Dim currentField As String
            For Each currentField In currentRow
                MsgBox(currentField)
            Next
        Catch ex As Microsoft.VisualBasic.
                    FileIO.MalformedLineException
            MsgBox("Line " & ex.Message &
            "is not valid and will be skipped.")
        End Try
    End While
End Using

可靠编程

以下情况可能会导致异常：

另请参阅