VB.NET读取PM文件并存入二维数据表

本文介绍如何使用VB.NET读取PM文件并将数据存入二维数据表。示例代码从第4行开始，每隔3行读取一行7个数据，直至最后一行都为0时结束，并过滤空格和符号只保留数字。最后，展示了如何遍历数据表并输出数据。

代码示例

Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim filePath As String = "C:\path\to\pmFile.txt" ' PM文件路径
Dim dataTable As New DataTable() ' 2维数据表
    ' 添加7个列到数据表
    For i As Integer = 1 To 7
        dataTable.Columns.Add("Column " & i)
    Next

    ' 读取PM文件
    Using sr As New StreamReader(filePath)
        Dim lineCount As Integer = 0

        ' 跳过前3行
        For i As Integer = 1 To 3
            sr.ReadLine()
        Next

        ' 读取数据行
        Dim line As String = sr.ReadLine()
        While line IsNot Nothing AndAlso Not line.Trim().Equals("0")
            ' 过滤空格及其它符号，只保留数字
            Dim matches As MatchCollection = Regex.Matches(line, "\d+")

            ' 读取7个数据
            If matches.Count >= 7 Then
                Dim row As DataRow = dataTable.NewRow()
                For i As Integer = 0 To 6
                    row(i) = matches(i).Value
                Next
                dataTable.Rows.Add(row)
            End If

            ' 跳过下两行
            For i As Integer = 1 To 2
                sr.ReadLine()
            Next

            line = sr.ReadLine()
        End While
    End Using

    ' 使用数据表进行操作（示例：输出数据）
    For Each row As DataRow In dataTable.Rows
        For Each item As Object In row.ItemArray
            Console.Write(item.ToString() & " ")
        Next
        Console.WriteLine()
    Next
End Sub

End Class

代码说明

1. 将示例代码中的"C:\path\to\pmFile.txt"替换为实际的PM文件路径。

2. 代码从第4行开始读取数据，每隔3行读取一行7个数据。

3. 读取的数据将存入一个二维数据表dataTable。

4. 代码过滤空格和符号，只保留数字。

5. 代码使用dataTable进行操作，例如输出数据表中的数据。

总结

本文介绍了使用VB.NET读取PM文件并存入二维数据表的示例代码。你可以根据实际需求修改代码来满足你的需求。