VBA Lecture d'un fichier texte

Version imprimable

Bonjour à tous,

J'ai crée une petite appli sous Excel qui me permet de lire et d'extraire des données d'un fichier texte pour pouvoir travailler ensuite sur ces données.
Mes fichiers texte se présentent de la manière suivante :
Code1, 'Valeur1'
Code2, 'Valeur2'
…
Pour lire mon fichier et extraire les valeurs de mon fichier texte, je procède de la manière suivante :
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 Dim Id As String Dim valeur As String Dim n As Integer Dim i As Long 'Integer Depassement de capacité à 37323 n = FreeFile Open TxtCheminFichier For Input As #n Do While Not EOF(1) 'EOF = End Of File permet de lire le fichier jusqu'à la fin Input #n, Id, valeur 'Ajout des données fichier dans la ListView2 i = i + 1 With ListView2 With .ColumnHeaders .Clear .Add , , "Id", 100 .Add , , "Valeur", 400 End With With ListItems ListView2.ListItems.Add , , (Id) End With valeur = Replace(valeur, "'", "") .ListItems(i).ListSubItems.Add , , (valeur) End With Loop 'On ferme la connection au fichier Close #n
Mon code fonctionne dans la plupart des cas… en fait je viens de m'apercevoir que pour certain fichier la "valeur" peut contenir une virgule une virgule (normalement définit comme séparateur) :

Code1, 'Valeur1, ComplémentValeur1'
Code2, 'Valeur2'
Code3, 'Valeur3'
...

Dans ce cas là, j'ai une erreur d'exécution…
Je voudrais soit ignorer le texte placé derrière la seconde virgule (ce ne sont pas des données importantes), soit ajouter tout le texte dans la même colonne (il s'agit toujours de la même valeur).
Quelqu'un aurait il une idée ?
Merci

Lire la ligne entière puis la scinder en 2

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
Dim Contenu As String, Id As String, Valeur As String
Dim n As Integer
Dim i As Long   'Integer Depassement de capacité à 37323
 
With ListView2.ColumnHeaders
   .Clear
   .Add , , "Id", 100
   .Add , , "Valeur", 400
End With
n = FreeFile
Open TxtCheminFichier For Input As #n
Do While Not EOF(1)   'EOF = End Of File permet de lire le fichier jusqu'à la fin
   Line Input #n, Contenu
   Id = Left(Contenu, InStr(Contenu, ",") - 1)
   Valeur = Mid(Contenu, InStr(Contenu, ",") + 1)
   Valeur = Replace(Valeur, "'", "")
   'Ajout des données fichier dans la ListView2
   i = i + 1
   With ListView2
      .ListItems.Add , , Id
      .ListItems(i).ListSubItems.Add , , Valeur
   End With
Loop
'On ferme la connection au fichier
Close #n

15/02/2011, 23h09
pgz

Bonsoir.

Quelques pistes.
Si tu déclares

Code:

Dim LaLigne as string, Tableau() as string

Tu peux remplacer ton Input par

Code:

Line Input #n, LaLigne

Tu auras ainsi toute une ligne dans une variable.

Si tu veux récupérer tous les morceaux délimités par une virgule,

Code:

Tableau = split(LaLigne, ",")

Là tu regardes s'il y en a 2 ou 3 et tu fais comme tu veux. Mais probablement que

Code:

Id = Tableau(0)

Pour la Valeur, si tu peux récupérer 1 morceau

Code:

Valeur = replace(Tableau(1),"'","")

Si tu veux tout, avec la virgule et dans le cas ou Ubound(Tableau) = 2

Code:

Valeur = replace(Tableau(1) & "," & Tableau(2),"'","")

Tu devrais pouvoir obtenir exactement ce qui t'arrange.

Cordialement,

PGZ
17/02/2011, 16h08
loonasia41

Bonjour,
J'ai testé ta méthode Mercatog ca fonctionne à merveille!
Merci beaucoup :ccool: