vbnet 把读取SUM文件的数据判断第一行数据是否为HINTCAD583_PM_SHUJU_PM然后从第4行开始读取数据每隔3行读取1行数据直至最后一行都为0时结束将每行的7个数据存入二维数组空格符号不算

您可以使用以下代码来实现您的需求：

Dim filePath As String = "C:\path\to\sum_file.txt" ' 替换为SUM文件的路径
Dim dataArray As New List(Of String())

' 读取SUM文件的数据
Using reader As New StreamReader(filePath)
    Dim line As String = reader.ReadLine()
    If line IsNot Nothing AndAlso line.Trim() = "HINTCAD5.83_PM_SHUJU_PM" Then
        Dim lineNumber As Integer = 0
        While Not reader.EndOfStream
            line = reader.ReadLine()
            lineNumber += 1

            If lineNumber >= 4 AndAlso line.Trim() <> "0" Then
                If lineNumber Mod 3 = 1 Then
                    Dim data As String() = line.Split(" "c, StringSplitOptions.RemoveEmptyEntries)
                    dataArray.Add(data)
                End If
            Else
                Exit While
            End If
        End While
    End If
End Using

' 将二维数组的数据打印出来
For Each row As String() In dataArray
    For Each item As String In row
        Console.Write(item & " ")
    Next
    Console.WriteLine()
Next

请注意，您需要将filePath变量替换为您SUM文件的实际路径。此代码首先检查第一行是否为“HINTCAD5.83_PM_SHUJU_PM”，然后从第4行开始读取数据，每隔3行读取1行数据，直到最后一行为0为止。每行的数据将存储在dataArray二维数组中，并在最后打印出来