vbnet 读取PM文件 从第4行开始读取一行7个包含负数的字符之后每隔3行读取一行的7个字符直至最后一行都为0时结束读取的数据存入一个2维数据过滤制表符。可以查阅2维数据第几行第几列的字符

以下是一个示例代码，演示如何读取PM文件并将数据存入一个2维数组中：

Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "path\to\pm_file.txt"
        Dim data As New List(Of List(Of String))

        Using sr As New StreamReader(filePath)
            Dim lineCount As Integer = 1

            While Not sr.EndOfStream
                Dim line As String = sr.ReadLine()

                If lineCount >= 4 AndAlso line.Split(vbTab).Any(Function(x) IsNumeric(x) AndAlso CDbl(x) < 0) Then
                    Dim row As New List(Of String)

                    For Each item As String In line.Split(vbTab)
                        row.Add(item.Trim())
                    Next

                    data.Add(row)
                End If

                lineCount += 1

                If lineCount Mod 3 = 1 AndAlso data.Count > 0 AndAlso line.Split(vbTab).All(Function(x) CDbl(x.Trim()) = 0) Then
                    Exit While
                End If
            End While
        End Using

        ' 输出读取到的数据
        For i As Integer = 0 To data.Count - 1
            For j As Integer = 0 To data(i).Count - 1
                Console.WriteLine("第" & (i + 1) & "行第" & (j + 1) & "列的字符: " & data(i)(j))
            Next
        Next

        Console.ReadLine()
    End Sub
End Module

请将filePath变量更改为你的PM文件的路径。这段代码会从第4行开始读取一行中包含负数的字符，并且每隔3行读取一行的7个字符，直到最后一行都为0才结束。读取到的数据会存储在data变量中，你可以通过索引来查找2维数据中的字符