Remplir un tableau qu'avec les valeurs numériques d'un fichier txt

Question

Bonjour, 

Voici ce que j'ai, écrit afin d'insérer des valeurs provenant d'un fichier txt dans la colonne de mon tableau MSHFlexgrid.
Cela fonctionne sauf qu'il prend en compte la 1ère ligne de mon fichier txt qui est l'en tête...Comment faire pour ne pas toucher à l'entête (TEnsion (mV) dans mon fichier txt et insérer toutes les autres lignes dans mon tableau?

Voilà la partie de mon programme en question:  
dim L as string ...
Open "C:\Documents \Mes documents\Titrage l\résultats.txt" For Input As #1
    
'Remplissage du tableau avec les valeurs importées du fichier texte et les paramétres
        
For i = 1 To MSHFlexGrid1.Rows - 1          'Tension
    Line Input #1, L
    MSHFlexGrid1.TextMatrix(i, 1) = L
    MSHFlexGrid1.TextMatrix(i, 1) = MyVal(MSHFlexGrid1.TextMatrix(i, 1))
   
Next
Close #1

 Mon fichier résultats.txt se présente ainsi :

Tension(mV)
0,008
0,008
0,01
0,0265
0,0385
0,0575
0,073
0,0935
0,1135
0,131
0,1505
…
Merci de votre aide

econs · Answer

Il te suffit de lire l'entete, mais de ne pas la traiter.

--------------------------------------------------------------

Open "C:\Documents \Mes documents\Titrage l\résultats.txt" For Input As #1

Line Input #1, L 'LIGNE RAJOUTEE POUR SHUNTER L'ENTETE

'Remplissage du tableau avec les valeurs importées du fichier texte et les paramétres

For i = 1 To MSHFlexGrid1.Rows - 1 'Tension
Line Input #1, L
MSHFlexGrid1.TextMatrix(i, 1) = L
MSHFlexGrid1.TextMatrix(i, 1) = MyVal(MSHFlexGrid1.TextMatrix(i, 1))

Next
Close #1

--------------------------------------------------------------

Manu

cs_rene38 · Answer

Autre solution :
"la 1ère ligne de mon fichier txt qui est l'en tête" tu la mets dans l'en-tête de la Grid :

Line Input #1, L
MSHFlexGrid1.TextMatrix(0, 1) = L
'la suite sans changement
For i = 1 To MSHFlexGrid1.Rows - 1 'Tension
Line Input #1, L
MSHFlexGrid1.TextMatrix(i, 1) = L
MSHFlexGrid1.TextMatrix(i, 1) = MyVal(MSHFlexGrid1.TextMatrix(i, 1))
Next
Close #1

cs_kate1 · Answer

merci ça fonctionne maintenant!

Remplir un tableau qu'avec les valeurs numériques d'un fichier txt

3 réponses

Discussions similaires