Imports System.IO 'Il faut l'importer Public Class Form1 'on crée un tableau publique de string vide: Public Texte(0) As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Exemple de lecture d'un fichier texte Dim i As Integer = 0 Dim FichierTexte As String = "c:\Users\Fichier.txt" For Each Ligne As String In File.ReadAllLines(FichierTexte) 'on augmente le tableau de 1 à chaque donnée reçue: ReDim Texte(Texte.GetUpperBound(0) + 1) Next 'on incrit les valeurs dans le tableau For Each Ligne As String In File.ReadAllLines(FichierTexte) Texte(i) = Ligne i += 1 Next 'On crée une listbox pour y afficher le tableau Texte() 'on va chercher la dernier index utilisé dans le tableau texte() Dim Dernier As Integer = Texte.GetUpperBound(0) Dim Liste As ListBox = New ListBox Controls.Add(Liste) Liste.BringToFront() For i = 0 To Dernier - 1 If IsNothing(Texte(i)) = True Then Exit For Liste.Items.Add(Texte(i)) Next Me.Text = "Le tableau 'Texte()' contient " & Texte.GetUpperBound(0) & " données" End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question