LECTURE D'UN FICHIER TEXTE - TABLEAU 1 DIMENSION - INSCRIPTION DU FICHIER DANS UN TEXTBOX

Imports System.IO
Public Class Form1

Public AppPath As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FichierTexte As String
        Dim i As Integer
        Dim Tableau(0) As String
        Try
            Dim ObjetFichier As StreamReader = New StreamReader(AppPath & "\Coord.txt")

            Do
                FichierTexte = ObjetFichier.ReadLine()

                If FichierTexte Is Nothing Then
                    i = i - 1
                Else
                    If i = 0 Then
                        ReDim Tableau(i)
                    Else
                        ReDim Preserve Tableau(i)
                    End If
                    Tableau(i) = FichierTexte
                End If

                If i = 0 Then
                    TextBox1.Text = Tableau(i)
                Else
                    TextBox1.Text = TextBox1.Text & vbCrLf & Tableau(i) 'vbCrLf = Changement de ligne
                End If
                i = i + 1
            Loop Until FichierTexte Is Nothing
            ObjetFichier.Close()
            i = i - 1
        Catch exc As Exception
            MsgBox("Fichier inexistant")
        End Try

    End Sub
End Class