Output, EOF et Loop

Question

Bonjour,

J'ai fait un programme qui demande certaines information (Nom, Adresse etc.) Je suis capable de les placer dans une variable ce qui donne environ ceci : 

"Jérôme","7","Marine",1,1,1,1,1,1,1,"MTL",""

Maintenant, je veux modifier les informations présente. En cliquant sur le bouton Modifier, une page s'ouvre avec une ListBox qui est supposé affiché seulement les noms des clients (première variable dans la ligne de donné, qui dans l'exemple : Jérôme)

Je marque ceci comme code : 

Private Sub Command1_Click()
Open App.Path & "\gestion.dat" For Input As #1
Do While Not EOF(1)

Input #1, strNom

lstModifier.AddItem strNom
Loop
Close #1
End Sub


Mais ce n'est pas juste le nom qui apparait mes toute la ligne de data !

Exemple : (Dans la list box)
Jérôme
7
Marine
etc....

Qu'est-ce que je dois modifier dans le code pour avoir juste une liste de nom ?

Merci

cs_rene38 · Answer

Bonsoir
Essaie :


Do While Not EOF(1)
Line Input #1, Ligne
strNom = Left$(Ligne, Instr(Ligne, ",") - 1)
lstModifier.AddItem strNom
Loop

cs_CanisLupus · Answer

Bonjour,
Tu peux aussi essayer :

Do While Not EOF(1)
Line Input #1, Ligne
strNom = split(Ligne, ",")(0)
lstModifier.AddItem strNom
Loop

Pour avoir la 2ème info, tu codes
strVal = split(Ligne, ",")(1)
et ainsi de suite.

Cordialement

CanisLupus

Output, EOF et Loop

2 réponses

Discussions similaires