ASP.NET VB中ReadFields读取txt时如何逐行访问所有行字段

你现有代码只能读取第一行的核心原因是：TextFieldParser.ReadFields() 每次调用仅读取指针当前位置的单行内容，读取完成后指针自动下移一行，单次调用自然无法覆盖后续行。只要通过循环判断文件读取终点，逐行处理即可完成全量字段赋值。

推荐实现：逐行循环读取（适配任意大小文件） #

该方式内存占用稳定，适合几百MB以上的大文件读取，同时自带错误行兼容能力：

• 不要硬编码A1/A2/A3这类零散变量存储多行数据：如果文件有多行，零散变量只会保留最后一次赋值的内容，无法存储全量数据，建议用集合结构统一存储所有行的字段
• 增加异常捕获，避免某一行格式错误（缺列、分隔符异常）导致整个读取流程中断

' 定义集合存储所有行的3个字段，可根据业务替换为自定义实体类
Dim allRecords As New List(Of (FieldA As String, FieldB As String, FieldC As String))()

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("SomePath\SomeFile.txt")
    MyReader.TextFieldType = FileIO.FieldType.Delimited
    MyReader.SetDelimiters(",")

    ' 循环直到读取到文件末尾
    While Not MyReader.EndOfData
        Try
            Dim currentRow As String() = MyReader.ReadFields()
            ' 校验当前行列数，避免索引越界
            If currentRow.Length >= 3 Then
                ' 给当前行三个字段赋值，加入集合
                allRecords.Add((
                    FieldA:=currentRow(0).Trim(),
                    FieldB:=currentRow(1).Trim(),
                    FieldC:=currentRow(2).Trim()
                ))
            End If
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            ' 此处可添加日志逻辑，记录格式错误的行号和内容，跳过错误行继续读取
        End Try
    End While
End Using

读取完成后，你可以通过遍历allRecords集合拿到任意行的三个字段值。

轻量实现：小文件一次性读取 #

如果你的TXT文件体积在10MB以内，可以直接一次性拉取所有内容再拆分，代码更简洁：

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("SomePath\SomeFile.txt")
    MyReader.TextFieldType = FileIO.FieldType.Delimited
    MyReader.SetDelimiters(",")
    ' 直接拿到所有行的二维数组：第一维对应行序号，第二维对应列序号
    Dim allRowData As String()() = MyReader.ReadToEnd() _
        .Split({vbCrLf, vbLf}, StringSplitOptions.RemoveEmptyEntries) _
        .Select(Function(lineStr) lineStr.Split(","c)) _
        .Where(Function(cols) cols.Length >=3) _
        .ToArray()
End Using

特殊场景适配 #

• 如果文件第一行是表头不是有效数据：在进入循环前加一行MyReader.ReadFields()跳过首行即可
• 如果你明确知道文件的固定行数，必须给零散变量赋值：可以在循环外增加行号计数器，每读一行计数器+1，根据计数器值给对应序号的变量赋值即可

内容的提问来源于stack exchange，提问作者amelia zaripova