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

以下是实现该功能的VB.NET代码：

Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "path\to\pm_file.txt" ' PM文件路径
        Dim data As List(Of List(Of Char)) = ReadPMFile(filePath)
        
        ' 打印读取的数据
        For i As Integer = 0 To data.Count - 1
            For j As Integer = 0 To data(i).Count - 1
                Console.Write(data(i)(j))
            Next
            Console.WriteLine()
        Next
        
        Console.ReadLine()
    End Sub
    
    Function ReadPMFile(filePath As String) As List(Of List(Of Char))
        Dim data As New List(Of List(Of Char))()
        
        ' 读取文件内容
        Dim lines As String() = File.ReadAllLines(filePath)
        
        ' 从第4行开始读取一行7个字符，之后每隔3行读取一行的7个字符，直至最后一行都为0时结束
        For i As Integer = 3 To lines.Length - 1 Step 3
            Dim line As String = lines(i)
            
            If line = "0000000" Then
                Exit For ' 最后一行都为0时结束
            End If
            
            Dim chars As New List(Of Char)()
            
            ' 过滤空格并存入2维数据
            For j As Integer = 0 To line.Length - 1
                If line(j) <> " "c Then
                    chars.Add(line(j))
                End If
            Next
            
            data.Add(chars)
        Next
        
        Return data
    End Function
End Module

请将 path\to\pm_file.txt 替换为实际的PM文件路径。该代码会读取PM文件，从第4行开始每隔3行读取一行的7个字符，直到最后一行都为0时结束。读取的数据会存入一个2维列表中，并过滤掉空格。

要查阅2维数据中的第几行第几个字符，可以使用索引。例如，要查阅第1行第3个字符，可以使用 data(0)(2)。请注意，索引是从0开始的，所以第1行对应的索引是0