Débutant extreme ou extreme débutant ( comme vous le souhaitez) je cherche de l'aide pour pouvoir lire un fichier .Txt en colonne et non en ligne (Obsur ma question ?) je m'explique :
pour l'heure j'utilise un fichier .txt (bloc notes) pour créer un "tableau", voici le code :
'déclaration des variables tableau
Dim Nom(0 To 100), Prénom(0 To 100), Adresse(0 To 100), Ville(0 To 100) As String
'J'ouvre mon fichier TXT
Dim i AsInteger = 1
Try
FileOpen(1, "D:\Mes documents\ApplicationVB\Essais.TXT", OpenMode.Input)
Do
Nom(i) = LineInput(1) 'ligne fichier Nom
Prenom(i) = LineInput(1) 'ligne fichier prenom
Adresse(i) = LineInput(1) 'ligne fichier poids du metal
Ville(i) = LineInput(1) 'ligne fichier adresse
CoutVal(i) = LineInput(1) 'ligne fichier Ville
CmbNom.Items.Add(Struct(i)) ' je remplis la combobox par la liste de tous les noms existants dans le fichier text
i = i + 1
LoopUntil EOF(1)
FileClose()
Catch ex As Exception
MsgBox("Le fichier référencé pour votre agenda n'existe pas", MsgBoxStyle.Exclamation, "Fichier introuvable")
EndTry
Max = i - 1
'je recupere les donnés par le code suivant
'insertion des valeurs correspondant à l'item du combobox
TxtPrenom.Text = Prenom(CmbNom.SelectedIndex + 1)
TxtAdresse.Text = Adresse(CmbNom.SelectedIndex + 1)
TxtVille.Text = Ville(CmbNom.SelectedIndex + 1)
Voila , cela fonctionne j'arrive bien à lire mes differentes lignes.
Par contre mes données étant très importante, je souhaite faire la même chose mais en colonnes et là : je suis un petit chouia perdu. Que faut il faire ?
Y a t'il une solution ? Pouvez vous m'aider ?
Merci d'avance pour votre aide précieuse
