Récupérer données d'un fichier texte

[john]

Bonjour,

J'ai un soucis lors de la récupération de données à partir d'un fichier texte.

J'utilise la fonction split et je n'arrive pas à bien séparer les différentes parties de ma chaîne !!!

Je joins le fichier texte qui pose problème.

Mon fichier aura toujours le même format et c'est à partir de la 8ième ligne que je dois récupérer les données (les premières aussi, mais là j'ai pas de soucis).

Voici un exemple de données dans le fichier :
0,5 68 -69 -21 -8
1,0 59 -64 -12 -7
1,5 52 -56 -1 -12
2,0 38 -42 -2 -12
2,5 24 -30 -5 -10
3,0 45 -52 -28 16
3,5 69 -74 -44 38
4,0 75 -80 -32 18
4,5 78 -84 -29 11
5,0 106 -109 -39 16
5,5 130 -135 -51 44
6,0 135 -139 -61 53
6,5 136 -141 -66 57
7,0 142 -146 -71 60
7,5 148 -153 -82 65
8,0 149 -154 -74 56
8,5 119 -124 -59 48
9,0 121 -126 -56 48
9,5 119 -124 -53 49
10,0 115 -121 -52 49
10,5 110 -115 -54 50

Je dois récupérer séparément toutes les valeurs (avec le négatif), je sais ça à l'air simple ça marchait avant, mais du coup ça marche plus, donc j'essaie de faire un line input#1 et ensuite avec un split pour extraire les données, mais ça me mets des caractères spéciaux bizaroïdes 🙁

Je vous remercie d'avance pour votre aide.

John

 

[tototiti2008]

Re : Récupérer données d'un fichier texte

Bonjour john,

et si tu nous fournissais le code qui lit les données et qui ne fonctionne pas bien ?

 

[john]

Re : Récupérer données d'un fichier texte

Re,

Voilà le fichier en question.

Dans ce fichier je n'utilise pas encore la fonction split car avant ça marchait comme ça et plus maintenant 🙁

Merci 🙂

John

 

[tototiti2008]

Re : Récupérer données d'un fichier texte

Re,

Visiblement il y a un soucis sur la ligne

Input #1, col1, col2, col3, col4, col5

Je ne maîtrise pas cette écriture donc je ne sais pas trop bien pourquoi, mais si tu la remplace par

Dim texte as string
Line Input #1, texte
            col1 = Split(texte, Chr(9))(0)
            col2 = Split(texte, Chr(9))(1)
            col3 = Split(texte, Chr(9))(2)
            col4 = Split(texte, Chr(9))(3)
            col5 = Split(texte, Chr(9))(4)

ça a l'air de passer

 

[john]

Re : Récupérer données d'un fichier texte

Ok merci beaucoup ça à l'air de marcher 🙂

Je refais un test demain pour être sûr.

John

 

[john]

Re : Récupérer données d'un fichier texte

Bonjour,

Je confirme, c'est ok pour moi ça marche.

Encore un grand merci.

John