vbnet 读取PM文件 从第4行开始读取一行7个字符之后每隔3行读取一行的7个字符直至最后一行都为0时结束读取的数据存入一个2维数据过滤空格及其它符号只保留数字。可以查阅2维数据第几行第个数据

以下是一个示例代码，可以读取PM文件并存储数据到一个2维数组中：

Dim filePath As String = "C:\path\to\file.pm" ' PM文件路径
Dim dataArray As New List(Of List(Of Integer))() ' 存储数据的2维数组

' 逐行读取PM文件内容
Using sr As New StreamReader(filePath)
    Dim lineCount As Integer = 0 ' 行计数器
    Dim shouldRead As Boolean = False ' 是否应该读取该行数据

    While Not sr.EndOfStream
        Dim line As String = sr.ReadLine() ' 读取一行数据
        lineCount += 1

        ' 从第4行开始读取一行7个字符，之后每隔3行读取一行的7个字符
        If lineCount >= 4 AndAlso (lineCount - 4) Mod 3 = 0 Then
            shouldRead = True
        Else
            shouldRead = False
        End If

        ' 过滤空格及其它符号，只保留数字
        If shouldRead Then
            Dim row As New List(Of Integer)()
            For Each c As Char In line
                If Char.IsDigit(c) Then
                    row.Add(CInt(c.ToString()))
                End If
            Next
            dataArray.Add(row)
        End If

        ' 当最后一行都为0时结束
        If lineCount > 4 AndAlso line.All(Function(c) c = "0"c) Then
            Exit While
        End If
    End While
End Using

' 可以查阅2维数据第几行第几个数据
Dim rowNumber As Integer = 2 ' 第几行
Dim columnNumber As Integer = 3 ' 第几个数据

If rowNumber >= 0 AndAlso rowNumber < dataArray.Count AndAlso columnNumber >= 0 AndAlso columnNumber < dataArray(rowNumber).Count Then
    Dim data As Integer = dataArray(rowNumber)(columnNumber)
    Console.WriteLine("第" & rowNumber & "行第" & columnNumber & "个数据: " & data)
Else
    Console.WriteLine("无效的行号或列号")
End If

请根据实际情况替换filePath变量的值，该变量指定了PM文件的路径。读取到的数据将存储在dataArray变量中，使用dataArray(rowNumber)(columnNumber)可以查阅2维数据中的某个数据