使用VB.NET读取PM文件并提取数据

以下是一个VB.NET代码示例，用于读取PM文件，判断第一行是否为“HINTCAD5.83_PM_SHUJU_PM”，如果不是则提示文件格式不对。从第4行开始只读取7个数据（空格不算），存入数组表，每行7个数据。从第4行开始每间隔3行读取一组。如果1行数据都为0时停止，并将读取的数据写入文件。

代码示例

Imports System.IO
Module Module1
Sub Main()
Dim filePath As String = "path\to\your\file.pm"
Dim outputFilePath As String = "path\to\your\output\file.txt"
    ' 读取PM文件内容
    Dim lines As String() = File.ReadAllLines(filePath)

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

    ' 读取数据并存入数组表
    Dim data As New List(Of String())
    Dim i As Integer = 3 ' 从第4行开始读取
    While i &lt; lines.Length
        Dim rowData As String() = lines(i).Split(" "c, StringSplitOptions.RemoveEmptyEntries)
        If rowData.Length <> 7 Then
            Console.WriteLine("第" & (i + 1) & "行数据格式不正确")
            Return
        End If

        data.Add(rowData)

        ' 每间隔3行读取一组
        i += 3

        ' 判断一行数据是否都为0，如果是则停止
        Dim allZero As Boolean = True
        For Each value In rowData
            If value <> "0" Then
                allZero = False
                Exit For
            End If
        Next
        If allZero Then
            Exit While
        End If
    End While

    ' 将读取的数据写入文件
    Using writer As New StreamWriter(outputFilePath)
        For Each rowData In data
            writer.WriteLine(String.Join(" ", rowData))
        Next
    End Using

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

End Module

说明

• 将代码中的 "path\to\your\file.pm" 替换为你实际的PM文件路径。
• 将代码中的 "path\to\your\output\file.txt" 替换为你要保存输出文件的路径。

本代码示例展示了如何使用VB.NET读取PM文件，验证文件格式，提取特定数据并写入新文件。你可以根据实际情况调整代码逻辑，例如修改读取数据的位置、数量和间隔。