Bonjour à tous,

Je dois réaliser une transpostion de matrice après avoir chargé la matrice dans une textbox à l'aide d'une commande openfile dialog. Le programme que j'ai réalisé fonctionne avec une matrice défini en son sein , mais dès que j'essai de charger une matrice depuis un fichier extérieur le résultat est nul.

Pourriez-vous avoir la gentillesse de m'aider ? Voici le programme, c'est sur la partie rouge (plus bas) que je bloque :

Je suis à votre dispo si vous souhaitez + d'infos...merci pour votre aide !

Noé

Public Class Form1

    Dim arr0(i, j) As String
    Dim arr(i, j) As Double
    Dim arr2(i, j) As Double
    Dim i, j As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        RichTextBox2.Multiline = True
        RichTextBox1.Multiline = True
        RichTextBox1.MaxLength = 0

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
            RichTextBox1.Text = (sr.ReadToEnd)
            sr.Close()
        End If

        With OpenFileDialog1
            .Title = "Offnen"
            .InitialDirectory = "c:\"
            .Filter = "Fichiers txt|*.txt"
            .Multiselect = False
            .CheckFileExists = True
            .ValidateNames = True
            .AddExtension = True
        End With

        arr0(i, j) = RichTextBox1.Text

        For i = 1 To arr0.GetUpperBound(0)
            For j = 1 To arr0.GetUpperBound(1)
                If arr0(i, j) <> "" Then
                    arr(i, j) = arr0(i, j)
                End If
            Next j
        Next i


        Dim arr2(,) As Double = TransposeMatrix(arr)
        For i = 0 To arr2.GetUpperBound(0)
            For j = 0 To arr2.GetUpperBound(1)
                RichTextBox2.SelectedText = (arr2(i, j) & " - ")
            Next
        Next


    End Sub


    Function TransposeMatrix(ByVal arr(,) As Double) As Double(,)

        Dim startRow As Integer, startCol As Integer
        Dim endRow As Integer, endCol As Integer
        Dim row As Integer, col As Integer

        startRow = arr.GetLowerBound(0)
        endRow = arr.GetUpperBound(0)
        startCol = arr.GetLowerBound(1)
        endCol = arr.GetUpperBound(1)

        Dim res(endCol, endRow) As Double

        For row = startRow To endRow
            For col = startCol To endCol
                res(col, row) = arr.GetValue(row, col)
            Next
        Next

        Return res
    End Function

End Class