arrays - ファイルから 2 次元配列に読み込む場合

Question

ファイルを読み込んで、異なるラベルにデータを表示する方法を知りたいです。誰かが100ファイルの場所がわかりにくい場合にこの項目を実行する効率的な方法を提案できる場合は、それが割り当てられます.

 Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click         If RadFriday.Checked = True Then
            Select Case Row 
                Case 0 
                    Customer(0, 0) = New StreamWriter("D:\theater seats\friday\A1Seat.txt") 
                    Customer(0, 0).Write(ArrayFS(0, 0, 0) & (" ") & ArrayFS(0, 0, 1) & (", ") & ArrayFS(0, 0, 2) & (", ") & ArrayFS(0, 0, 3) & (", ") & ArrayFS(0, 0, 4) & (", ") & ArrayFS(0, 0, 5) & (", ") & ArrayFS(0, 0, 6) & (", ") & ArrayFS(0, 0, 7))
                    MsgBox("Data has been stored.") 
                    Customer(0, 0).Close() 
            End Select 
  End If

    End Sub
Private Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.Click 
            Select Case Row 
                Case 0 
                    LblName.Text = "" 
                    CustomerLoad(0, 0, 0) = New StreamReader("D:\theater seats\friday\A1Seat.txt")
                    LblName.Text = CustomerLoad(0, 0, 0).ReadToEnd
                    If LblName.Text = "" Then
                        MsgBox("There is no data stored for this seat!")
                    Else
                        CustomerLoad(0, 0, 0).Close()
                    End If
            End Select
        ElseIf RadSaturday.Checked = True Then

        End If
End Sub