Discussion :

[debutVBA]

Bonjour à tous et à tous,


J'ai un fichier .txt qui se présente avec pour chaque ligne des données séparés par un point virgule,je souhaiterai récupéré pour chaque ligne la 3 eme donné.


toto;titi;papi;popo;allo
papa;lolo;coco;jojo;momo
bébé;pépé;mémé;pupu;bobo
soso;sasa;susu;sousou;coca
toto;titi;papi;il;ken,barbie
je;tu;il;elle;vous;nous


Donc ensuite en résultat je devrai obtenir :
papi coco mémé susu papi elle


Quelqu'un aurait une idée


Merci par avance

[ProgElecT]

Salut

Ouvrir le fichier, lire chaque lignes en l'éclatant avec Split et récupérer l'information de l'indice 2 (vue que l'indice commence par zéro).

[debutVBA]

Re,

Merci pour l'algo =)

Voici ce que j'ai codé:

Par conttre j'obtiens une erreur sur cette ligne wscript.echo TblColonne
en m'indiquant incompatibilité de type.
je ne comprends pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim FSO, LeFichier
	Dim CheminNomFichier, PourTbl, TblLigne, TblColonne
        Dim T
        Dim Champs1
        Dim compteur 
        compteur = 1 
 
 
 
 
 
'Pour accéder au fichier 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "c:\Dossier1\Dossier2\monFichier.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
 
 
        'ajout d'un retour chariot à la derniere ligne pour le Splitage
             PourTbl = PourTbl & vbclrf
	TblLigne = Split(PourTbl,vbCrLf)
 
 
        'pour obtenir le nombre de ligne du fichier 
         T = Ubound(TblLigne)
 
        'dimensionne chaque variable
        redim Champs1(T)
 
 
         'Pour T = 0 jusqu'a la derniere ligne
        for T =0 to ubound(TblLigne)
 
         TblLigne(T) = TblLigne(T) & ";"
         TblColonne = Split(TblLigne(T) ,";",2)
 
 
          wscript.echo TblColonne
 
        next

[ProgElecT]

Ligne 37, TblColonne devient une variable tableau, donc au minimum ligne 40 wscript.Echo TblColonne (N).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim SimuleLefichier, TblLignes, TblColonnes, Extraction, T
SimuleLefichier = "toto;titi;papi;popo;allo" & vbCrlf _
& "papa;lolo;coco;jojo;momo" & vbCrlf _
& "bébé;pépé;mémé;pupu;bobo" & vbCrlf _
& "soso;sasa;susu;sousou;coca" & vbCrlf _
& "toto;titi;papi;il;ken,barbie" & vbCrlf _
& "je;tu;il;elle;vous;nous"
 
TblLignes = Split(SimuleLefichier,vbCrlf)
For t = lbound(TblLignes) to ubound(TblLignes)
        TblColonnes = Split(TblLignes(t),";")
        Extraction = Extraction & TblColonnes(2) & Chr(32)
Next
MsgBox Extraction

[debutVBA]

Re,

Effectivement,la solution proposé fonctionne ,mais si mon fichier fait 10 000 lignes,cela implique que je dois faire un copier coller de tout mon fichier ? et ajouté des VBCRLF a chaque ligne??


MErci à toi

[pitchalov]

Bonjour,
Le plus simple serait de lire le fichier ligne par ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Set LeFichier = objFso.OpenTextFile(CheminNomFichier,1)
Do Until LeFichier.AtEndOfStream
  strLine = LeFichier.ReadLine
  If Trim(strLine) <> "" Then strResult = strResult & Split(strLine , ";")(2) & " "
Loop
MsgBox strResult

Bonne continuation.