Lire fichier .txt avec séparateur VB6 [Résolu]

cs_alex333 5 Messages postés mardi 14 janvier 2003Date d'inscription 13 novembre 2004 Dernière intervention - 10 nov. 2004 à 06:59 - Dernière réponse : cs_rene38 1858 Messages postés samedi 29 juin 2002Date d'inscription 17 octobre 2013 Dernière intervention
- 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 !!!!!!

les commentaires n'aiderai énnormément ....

merci d'avance

alex
Afficher la suite 

6 réponses

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 10 nov. 2004 à 07:22
0
Utile
Récupère les lignes de ton fichier ligne par ligne tout d'abord par n Line Input dans une boucle.

Ensuite, découpe tes chaînes grâce à la fonction Mid en faisant des recherches dans chaque lignes sur la virgule (en utilise la fonction InStr).

Ensuite, il suffit de copier le contenu des sous-chaines récupérées dans tes controles.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 10 nov. 2004 à 09:12
0
Utile
Plutôt que mid et instr, je ferait plutot un Split, non ??

Christophe R.
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 10 nov. 2004 à 10:16
0
Utile
Oui exact on peux faire un split c'est vrai en prenant la virgule comme séparateur.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
cs_rene38 1858 Messages postés samedi 29 juin 2002Date d'inscription 17 octobre 2013 Dernière intervention - 10 nov. 2004 à 12:40
0
Utile
Bonjour
Avec la virgule comme séparateur, il suffit de lire par
Input #n°deFichier, Variable
au lieu de Line Input ....
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 10 nov. 2004 à 13:59
0
Utile
Oui rene, mais le problème qui se pose alors, c'est comment gérer les fin de lignes...
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
cs_rene38 1858 Messages postés samedi 29 juin 2002Date d'inscription 17 octobre 2013 Dernière intervention - 10 nov. 2004 à 15:51
0
Utile
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
Text1.Text = Text1.Text & Var & vbCrLf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.