VB.NET中二维数组读写文本文件及数组访问问题求助

代码中的核心错误 #

• 变量未赋值：你写了file.ReadAllLines("R\TxtFile.csv").Length -1但没把结果存入LineCount变量，导致循环边界无效。正确写法是LineCount = File.ReadAllLines("R:\TxtFile.csv").Length - 1（注意File首字母大写，路径统一用R:\）。
• 文件名拼写错误：StreamReader里的文件名是.scv，实际应该是.csv，且前后路径格式不一致（前面是R\后面是R:\）。
• 二维数组未初始化：CRSFile2DArray直接使用前没有声明和初始化，必须先根据行数和列数创建数组：Dim CRSFile2DArray(LineCount, 62) As String。
• 循环语法错误：第二个循环For y = 0 62缺少To，且这个循环完全多余——你只需要取第0列，不需要遍历y。
• 变量类型错误：MonitorIDColumn如果要存储所有行的第0列数据，应该声明为数组，而非单个变量，否则每次赋值都会覆盖之前的数据：Dim MonitorIDColumn(LineCount) As String。

修正后的代码示例 #

' 获取总行数并初始化数组
Dim LineCount As Integer = File.ReadAllLines("R:\TxtFile.csv").Length - 1
Dim CRSFile2DArray(LineCount, 62) As String
Dim MonitorIDColumn(LineCount) As String

' 用StreamReader读取文件并填充二维数组
Using reader As New StreamReader("R:\TxtFile.csv")
    Dim Linie As String
    Dim x, y As Integer
    For x = 0 To LineCount
        Linie = reader.ReadLine()
        ' 拆分每行数据，避免索引越界
        Dim splitData As String() = Split(Linie, ",")
        For y = 0 To 62
            CRSFile2DArray(x, y) = If(y < splitData.Length, splitData(y), String.Empty)
        Next
    Next
End Using

' 提取第0列数据
For x = 0 To LineCount
    MonitorIDColumn(x) = CRSFile2DArray(x, 0)
Next

' 实现目标：找到第一列为"xyz"的行并写入新文件
Using writer As New StreamWriter("R:\TargetFile.txt")
    For x = 0 To LineCount
        If CRSFile2DArray(x, 0) = "xyz" Then
            ' 将该行所有列拼接成逗号分隔字符串写入
            Dim lineContent As String = String.Join(",", CRSFile2DArray(x, 0 To 62))
            writer.WriteLine(lineContent)
            ' 若只需第一个匹配行，可添加Exit For跳出循环
            ' Exit For
        End If
    Next
End Using

额外优化建议 #

• 用File.ReadAllLines直接读取所有行更简洁，无需手动处理StreamReader：

  Dim allLines As String() = File.ReadAllLines("R:\TxtFile.csv")
  LineCount = allLines.Length - 1
  Dim CRSFile2DArray(LineCount, 62) As String
  For x = 0 To LineCount
      Dim splitData As String() = Split(allLines(x), ",")
      For y = 0 To 62
          CRSFile2DArray(x, y) = If(y < splitData.Length, splitData(y), String.Empty)
      Next
  Next
  

• 避免硬编码列数62，可通过拆分后的数组动态获取列数，增强代码灵活性。

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