cs_alex333
Messages postés5Date d'inscriptionmardi 14 janvier 2003StatutMembreDernière intervention13 novembre 2004
-
10 nov. 2004 à 06:59
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 2013
-
10 nov. 2004 à 15:51
Bonjour, je suis débutant en vb et je souhaite récupérer les données d'un fichier texte dont les champs qui ne n'ont pas le même nombre de caractères à chaque enregistrement sont séparés par des virgules du style :
00002,T001,,,,21,05,,
2,T001,,,,2,05,Fi,2.50 Rou
Le but serait de lire ligne par ligne et de mettre le contenu de chaque champs dans un form comprenant deux bouton ( enreg suivant et précedent )
Je suis désolé , la question a été posée plusieur fois mais je n'y arrive pas !!!!!!
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 10 nov. 2004 à 15:51
Bonjour
Aucun problème :
Private Sub Command1_Click()
Dim Var As String
Open "H:\Sans.txt" For Input As #1
Do While Not EOF(1)
Input #1, Var
List1.AddItem Var
Loop
Close
End Sub
fonctionne parfaitement : retours à la ligne, ..., chaque texte avant une virgule ou un retour chariot étant reconnu comme une variable.
Si on met une textbox à la place de la listbox, il faut évidemment écrire