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