VB.NET 读取 SUM 文件数据并存入二维数组 - 示例代码 - 常规

VB.NET 读取 SUM 文件数据并存入二维数组 - 示例代码

本示例代码演示如何在 VB.NET 中读取 SUM 文件数据，判断第一行数据是否为 "HINTCAD5.83_PM_SHUJU_PM"，从第 4 行开始每隔 3 行读取 1 行数据，并将数据存入二维数组。

Dim filePath As String = \"C:\path\to\your\file.sum\"
Dim lines As String() = File.ReadAllLines(filePath)

If lines.Length > 0 AndAlso lines(0).Trim() = \"HINTCAD5.83_PM_SHUJU_PM\" Then
    Dim data As New List(Of String())

    For i As Integer = 3 To lines.Length - 1 Step 3
        Dim row As String = lines(i).Trim()
        If row = \"0\" Then
            Exit For
        End If

        Dim rowData As String() = row.Split(\" \"c, StringSplitOptions.RemoveEmptyEntries)
        If rowData.Length = 7 Then
            data.Add(rowData)
        End If
    Next

    ' 输出二维数组的数据
    For i As Integer = 0 To data.Count - 1
        For j As Integer = 0 To data(i).Length - 1
            Console.WriteLine(\"第{i + 4}行第{j + 1}个数据：{data(i)(j)}\")
        Next
    Next
End If

注意：

上述代码假定 SUM 文件中的数据是按行存储的，每行数据以空格分隔。
该代码使用了 File.ReadAllLines 方法来读取文件的所有行，因此需要引入 System.IO 命名空间。

示例：

假设 SUM 文件的内容如下：

HINTCAD5.83_PM_SHUJU_PM
...
1 2 3 4 5 6 7
...
0 0 0 0 0 0 0

执行上述代码后，将在控制台输出以下结果：

第4行第1个数据：1
第4行第2个数据：2
第4行第3个数据：3
...

其他功能：

除了将数据存入二维数组外，您还可以根据需要进行其他操作，例如：

查找特定行或列的数据。
对数据进行排序或过滤。
将数据保存到其他格式的文件。

进一步学习：