vbnet 读取PM文件判断第一行是否为HINTCAD583_PM_SHUJU_PM不是则提示文件格式不对。从第4行开始只读取7个数据空格不算存入数组。从第4行开始每间隔3行读取一组。如果1行数据都为0时停止并将读取的数据写入文件

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

Imports System.IO

Module Module1
    Sub Main()
        ' 读取PM文件路径
        Dim filePath As String = "path_to_pm_file.pm"

        ' 判断文件是否存在
        If File.Exists(filePath) = False Then
            Console.WriteLine("文件不存在")
            Return
        End If

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

        ' 判断文件格式是否正确
        If fileContent(0) <> "HINTCAD5.83_PM_SHUJU_PM" Then
            Console.WriteLine("文件格式不正确")
            Return
        End If

        ' 存储读取的数据
        Dim data As New List(Of String)()

        ' 从第4行开始读取数据
        Dim lineIndex As Integer = 3

        ' 读取数据并判断是否满足停止条件
        While lineIndex < fileContent.Length
            Dim line As String = fileContent(lineIndex)

            ' 判断一行数据是否都为0
            If line.Replace(" ", "") = "0" Then
                Exit While
            End If

            ' 读取7个数据，空格不算
            Dim values As String() = line.Split(" "c, StringSplitOptions.RemoveEmptyEntries)

            ' 存储数据
            For Each value As String In values
                data.Add(value)
            Next

            ' 每间隔3行读取一组
            lineIndex += 3
        End While

        ' 将读取的数据写入文件
        File.WriteAllLines("path_to_output_file.txt", data)

        Console.WriteLine("数据已写入文件")
    End Sub
End Module

请将代码中的path_to_pm_file.pm替换为实际的PM文件路径，将path_to_output_file.txt替换为输出文件的路径