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

以下是一个示例代码，用于实现从第4行开始读取一行7个字符，之后每隔3行读取一行的7个字符，直至最后一行都为0时结束，并将读取的数据存入一个2维数据，并过滤制表符和空格。你可以使用data(row, column)来查阅2维数据的第几行第几个字符。

Dim filePath As String = "your_file_path"
Dim data(,) As Char

Using sr As New StreamReader(filePath)
    Dim lineCount As Integer = 0
    Dim rowIndex As Integer = 0
    Dim columnIndex As Integer = 0

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

        If lineCount >= 4 AndAlso line.Trim() <> "0" Then
            For i As Integer = 0 To 6
                If columnIndex > 6 Then
                    columnIndex = 0
                    rowIndex += 3
                End If

                If data Is Nothing Then
                    ReDim data(rowIndex, columnIndex)
                ElseIf rowIndex > data.GetUpperBound(0) Then
                    ReDim Preserve data(data.GetUpperBound(0) + 3, 6)
                End If

                data(rowIndex, columnIndex) = line.Substring(i, 1).Trim()
                columnIndex += 1
            Next
        End If
    End While
End Using

在上述代码中，你需要将your_file_path替换为你要读取的PM文件的路径。读取的数据将存储在data数组中，你可以使用data(row, column)来查阅2维数据的第几行第几个字符