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

以下是一个示例代码，可以实现读取PM文件并将数据存入2维数组：

Dim filePath As String = "C:\path\to\your\file.pm" ' PM文件路径
Dim data As New List(Of List(Of String)) ' 2维数组

' 读取PM文件内容
Dim lines As String() = File.ReadAllLines(filePath)

' 遍历每一行
For i As Integer = 3 To lines.Length - 1 Step 3
    Dim line As String = lines(i) ' 当前行
    Dim rowData As New List(Of String) ' 当前行的数据
    
    ' 遍历每一个字符
    For Each c As Char In line
        If Not Char.IsWhiteSpace(c) AndAlso Not c.Equals(vbTab) Then ' 过滤制表符和空格
            rowData.Add(c.ToString())
        End If
    Next
    
    ' 如果当前行的数据不为空，则加入到2维数组中
    If rowData.Count > 0 Then
        data.Add(rowData)
    End If
    
    ' 如果当前行的数据都为0，则结束循环
    If rowData.All(Function(x) x.Equals("0")) Then
        Exit For
    End If
Next

' 输出2维数组中的数据
For i As Integer = 0 To data.Count - 1
    Dim rowData As List(Of String) = data(i)
    For j As Integer = 0 To rowData.Count - 1
        Console.WriteLine($"2维数组第{i + 1}行第{j + 1}个字符：{rowData(j)}")
    Next
Next

请注意，以上代码假设PM文件的编码为UTF-8，并且每行以换行符结束。如果PM文件的编码不同，请根据实际情况进行调整。另外，代码中的路径是示例路径，请将filePath变量的值修改为实际的PM文件路径