VB读取多文本文件指定行报错：索引超出范围，求解决方案

错误根源 #

你遇到的索引越界错误，核心原因有两个：

1. .NET集合是0起始索引：你要读取的第2行（LastName）对应索引1，第4行（Status）对应索引3，而不是你写的2和4。
2. 未校验文件行数：如果目录里有某个文件不足4行，读取时会直接触发索引越界。

另外，你每次读取行都调用File.ReadAllLines，会重复读取同一个文件，完全没必要，还降低效率。

修复后的代码 #

' 获取目录下所有文件
Dim DirActiveMembers() As String = Directory.GetFiles("C:\SPCMembership\Active\")

For Each MemberPath In DirActiveMembers
    ' 一次性读取所有行，避免重复IO操作
    Dim allLines As String() = File.ReadAllLines(MemberPath)
    
    ' 先判断文件是否至少有4行，避免索引越界
    If allLines.Length >= 4 Then
        ' 第2行对应索引1，第4行对应索引3
        Dim LastName As String = allLines(1)
        Dim Status As String = allLines(3)
        
        ListBox1.Items.Add(LastName)
        ListBox2.Items.Add(Status)
    Else
        ' 可选：处理行数不足的文件，比如输出调试提示
        Debug.WriteLine($"文件 {MemberPath} 行数不足4行，已跳过")
    End If
Next

关键改进点 #

• 修正索引值：把原来的Line2=2、Line4=4换成1和3，符合.NET的0起始索引规则。
• 一次性读取文件：用allLines变量存储文件所有行，只读取一次，提升性能。
• 增加行数校验：通过allLines.Length >=4判断，避免因文件格式错误导致的程序崩溃。
• 变量命名优化：把Member改成MemberPath，语义更清晰，避免和VB关键字/常用类名冲突。

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