VB.NET 读取 PM 文件数据并存入二维数组 (全局变量)

在 VB.NET 中，可以使用 StreamReader 类来读取 PM 文件数据，并将数据存入一个二维数组。以下是示例代码：\n\nvb\nImports System.IO\n\nPublic Class Form1\n ' 定义二维数组为全局变量\n Dim data(,) As String\n\n Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load\n ' 读取 PM 文件数据\n ReadPMFile("path_to_pm_file.txt")\n End Sub\n\n Private Sub ReadPMFile(filePath As String)\n ' 使用 StreamReader 读取文件\n Dim reader As New StreamReader(filePath)\n Dim rowCount As Integer = 0\n Dim colCount As Integer = 0\n\n ' 逐行读取数据\n While Not reader.EndOfStream\n Dim line As String = reader.ReadLine()\n Dim values() As String = line.Split(","c)\n\n ' 初始化数组大小\n If rowCount = 0 Then\n rowCount = values.Length\n ReDim data(rowCount - 1, rowCount - 1)\n End If\n\n ' 存储数据到数组\n For i As Integer = 0 To values.Length - 1\n data(colCount, i) = values(i)\n Next\n\n colCount += 1\n End While\n\n ' 关闭 StreamReader\n reader.Close()\n End Sub\n\n Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\n ' 调用全局变量 data\n If data IsNot Nothing Then\n ' 在这里使用 data 进行操作\n ' 例如，输出数组中的数据\n For i As Integer = 0 To data.GetLength(0) - 1\n For j As Integer = 0 To data.GetLength(1) - 1\n Console.Write(data(i, j) & " " )\n Next\n Console.WriteLine()\n Next\n End If\n End Sub\nEnd Class\n\n\n在上面的示例代码中，ReadPMFile 函数用于读取 PM 文件数据并存入全局变量 data 中。Button1_Click 事件处理程序中，可以通过调用全局变量 data 来操作读取到的数据。请将 "path_to_pm_file.txt" 替换为实际的 PM 文件路径。