VB.NET 读取 SUM 文件数据并存储到二维数组，实现任意查找

本文将使用 VB.NET 代码实现读取 SUM 文件，并根据特定条件将数据存入二维数组，最后实现任意查找数组中数据内容的功能。

代码示例：

Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = 'C:\path\to\file.sum'
        Dim dataArray As New List(Of List(Of String))()

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

        ' 判断第一行是否为'HINTCAD5.83_PM_SHUJU_PM'
        If lines(0) = 'HINTCAD5.83_PM_SHUJU_PM' Then
            ' 从第4行开始读取数据，每隔3行读取1行数据，直至最后一行都为0时结束
            For i As Integer = 3 To lines.Length - 1 Step 3
                ' 判断当前行是否为0
                If lines(i) = '0' Then
                    Exit For
                End If

                ' 将每行的7个数据存入二维数组
                Dim rowArray As New List(Of String)()
                Dim rowData As String = lines(i)
                Dim rowDataArray As String() = rowData.Split(' 'c)

                ' 去除空格符号并存入二维数组
                For Each data In rowDataArray
                    If Not String.IsNullOrWhiteSpace(data) Then
                        rowArray.Add(data)
                    End If
                Next

                dataArray.Add(rowArray)
            Next

            ' 输出数组表
            For i As Integer = 0 To dataArray.Count - 1
                Dim row As List(Of String) = dataArray(i)
                For j As Integer = 0 To row.Count - 1
                    Console.WriteLine('第 ' & (i + 1) & ' 行第 ' & (j + 1) & ' 个数据: ' & row(j))
                Next
            Next
        Else
            Console.WriteLine('第一行数据不是 HINTCAD5.83_PM_SHUJU_PM')
        End If

        Console.ReadLine()
    End Sub
End Module

代码说明：

将 filePath 变量替换为你的 SUM 文件路径。
代码首先读取 SUM 文件内容，并判断第一行是否为 'HINTCAD5.83_PM_SHUJU_PM' 。
从第 4 行开始，每隔 3 行读取一行数据，直到遇到值为 '0' 的行。
将每行数据分割并去除空格后存入二维数组 dataArray 中。
最后输出二维数组的内容，实现任意查找数据的功能。

总结：

该代码展示了如何使用 VB.NET 读取 SUM 文件，并根据条件提取数据，最终存入二维数组方便查找。你可以根据实际需求修改代码，例如更改读取条件或数据格式。