extraire les données d'un fichier texte

Version imprimable

22/11/2008, 16h04
klue_

extraire les données d'un fichier texte

Bonjour, je voudrais récupérer les données d'un fichier texte séparé par des points virgules et attribué à chacune de ces données une variable. comment faire ?

je sais qu'il faut utiliser la fonction mid (données si ; ) et len (de la chaine) mais je vois pas du tout comment on peut attriuber à une variable la/les données extraites. :(

Je sais que le sujet a largement été évoquer et qu'une petite recherche sur ce forum permet de trouver la solution.
Pour preuve, voilà mon premier Script VB :aie:, conçut a l'aide d'un des outils (VBS Factory) proposé ICI et de recherche avec les mots: Split, OpenTextFile et MsgBox, mots qu'il faut connaître bien sûr (je programme en VB6 donc des mots en communs).
J'utilise donc une variable tableau.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim FSO, LeFichier Dim CheminNomFichier, MeTbl, PourTbl, T Set fso = CreateObject("Scripting.FileSystemObject") CheminNomFichier = "C:\PersoFrancis\FichierArray.txt" Set LeFichier = fso.OpenTextFile(CheminNomFichier,1) PourTbl = LeFichier.ReadAll LeFichier.Close 'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;" MeTbl = split(PourTbl,";") for T = 0 to ubound(MeTbl)-1 MsgBox "la variable MeTbl indice(" & T & ") contient: " & MeTbl(T) next

22/11/2008, 19h53
klue_

J'ai aussi penser à faire un tableau pour séparer les données, mais le problème c'est que je veux à chacune de ces données leur mettre une variable propre.
..
je sais pas si je suis très clair.:roll:

Citation:

mais le problème c'est que je veux à chacune de ces données leur mettre une variable propre

Ce qui sous entend que le nombre d’éléments dans ton fichier doit être connu et toujours égal.
Si oui, pourquoi dans ton code, ne pas déclarer ces variables, et attribuer à chacune la variable tableau?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim Var0, Var1, Var2, Var3, Var4 ' ....................... 'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;" MeTbl = split(PourTbl,";") 'for T =0 to ubound(MeTbl)-1 ' MsgBox "la variable MeTbl indice(" & T & ") contient: " & MeTbl(T) 'next var0 = MeTbl(0) var1 = MeTbl(1) var2 = MeTbl(2) var3 = MeTbl(3) var4 = MeTbl(4) MsgBox "var0 contient: " & var0 & vbcrlf _ & "var1 contient: " & var1 & vbcrlf _ & "var2 contient: " & var2 & vbcrlf _ & "var3 contient: " & var3 & vbcrlf _ & "var4 contient: " & var4
A moins que justement, par ta question, tu cherches à savoir si il est possible de créer des variables différentes par code.

Moi en VB6 (que je métrise un peu) je ne saurai le faire que par une gymnastique qui serait des plus pénalisante pour la performance du code.

c'est bien ça que je veux faire, mais je voudrais incrémenter les variables, exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 MonTableau = Split(Flignefichier,";") Nom = MonTableau(0) Prenom = MonTableau(1) login = MonTableau(2) MotDePasse = MonTableau(3) Supprimer = MonTableau(4) Nom2 = MonTableau(5) Prenom2 = MonTableau(6) login2 = MonTableau(7) MotDePasse2 = MonTableau(8) Supprimer2 = MonTableau(9)
mais la faire en sorte qu'a la place du 2 je mette un i+1 pour éviter de mettre nom3, nom4 etc.. meme chose pour le nom du talbeau mettre un i+1 a la place.

...ça a l'air bien compliqué mon truc 8O

23/11/2008, 10h45
SfJ5Rpw8

Citation:

Envoyé par klue_

...ça a l'air bien compliqué mon truc 8O

je confirme.. :mouarf:

pourquoi vouloir passer par des variables intermédiaires et ne pas utiliser directement les variables tableaux..

autre chose, dans ton fichier texte tes enregistrements sont-'ils tous sur la même ligne ? où bien as tu une ligne par enregistrement...?

Peut être un compromis, avec des variables tableau plus parlantes, qui n'ont d'interet que pour la lecture/maintenance du code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
        Dim FSO, LeFichier
	Dim CheminNomFichier, PourTbl, TblLigne, TblColonne
        Dim T
        Dim Nom, Prenom, login, MotDePasse, Supprimer
 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "C:\PersoFrancis\FichierNewArray.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
'PourTbl contient:  Dupond;Pierre;TropDur;1234;non
'                   Tarraga;Mario;SuperFoot;PasseLeMot;oui
'                   Rodolphe;Vilpierre;Stagiaire;coucou;non
'                   Wangu;Migum;Admin;abc15;oui
 
        'ajout d'un retour chariot à la derniere ligne pour le Splitage
        PourTbl = PourTbl & vbclrf
	TblLigne = Split(PourTbl,vbCrLf)
	'pour obtenire le nombre de ligne
        T = Ubound(TblLigne)
        'dimensionne chaque variable
        redim Nom(T)
        redim Prenom(T)
        redim login(T)
        redim MotDePasse(T)
        redim Supprimer(T)
 
        for T =0 to ubound(TblLigne)
         TblLigne(T) = TblLigne(T) & ";"
         TblColonne = split(TblLigne(T),";")
         Nom(T)= TblColonne(0)
         Prenom(T)= TblColonne(1)
         login(T)= TblColonne(2)
         MotDePasse(T)= TblColonne(3)
         Supprimer(T)= TblColonne(4)
 
	 MsgBox "Nom(" & T & ") contient: " & Nom(T) & vbcrlf _
	 & "Prenom(" & T & ") contient: " & Prenom(T) & vbcrlf _
	 & "login(" & T & ") contient: " & login(T) & vbcrlf _
	 & "MotDePasse(" & T & ") contient: " & MotDePasse(T) & vbcrlf _
	 & "Supprimer(" & T & ") contient: " & Supprimer(T)
 
        next

23/11/2008, 13h59
klue_

C'est bien une ligne par enregistrement.
et oui je voudrais utiliser la variable des données pour les réutiliser ensuite.

mais ça fait rien je vais m'en tenir à mon code.

Merci pour votre aide :)