Bonjour à tous
je bute sur le PB suivant et comme je suis a la bourre j'ai pris la version
brute mais pas mieux ...
j'essaye de lire un fichier qui peut avoir un nombre lignes quelqonques cidessous
"0561342011121","24/10/2006","11:50:14","0561342011121","24/10/2006","14:05:28",2,15,14,
"0561342011121","24/10/2006","19:00:39","01361302111714","24/10/2006","23:25:47",4,25,8,1
"0561342011121","24/10/2006","11:50:14","0561342011121","24/10/2006","14:05:28",2,15,14,
"0561342011121","24/10/2006","19:00:39","01361302111714","24/10/2006","23:25:47",4,25,8,1
"0561342011121","24/10/2006","11:50:14","0561342011121","24/10/2006","14:05:28",2,15,14,
Seules les 4 dernieres valeurs entre virgules m'interresse pour cela
Dim tabtrait(100) As String
employ3 = "c:\point\toto.txt"
Dim dureerepas0() As String
Dim dureerepas1() As String
Dim dureerepas2() As String
Dim dureerepas3() As String
Dim dureerepas4() As String
Dim tabresulat(20, 20) As Integer
'je lie le fichier employ3 et mets ligne a ligne dasn "tabtrait"
Open employ3 For Input As #5
i = -1
While Not EOF(5)
i = i + 1
Line Input #5, tabtrait(i)
Wend
Close #5
'je split chaque ligne et affecte a un tableau "dureerepasX" (j'ai essaye d'incrementer l'indice de "dureerepas" mais cela bugé un max donc j'ai declarer x variables tableau , la honte je sais, mais fallait que ça avance, enfin vous connaissez le PB, comme il reste un peu de T je reviens sur mes solutions pas belles)
dureerepas0 = Split(tabtrait(0), ",")
dureerepas1 = Split(tabtrait(1), ",")
dureerepas2 = Split(tabtrait(2), ",")
dureerepas3 = Split(tabtrait(3), ",")
dureerepas4 = Split(tabtrait(4), ",")
de chaque "dureerepasX" contenant une ligne splité j'en extrait les 4 derniers carateres
et les transforme en numerique(j'ai des calculs a faire dessus) et les affecte dasn un tableau a deux dimensions
Dans ces conditions lorsque je lance le prog j'ai un message OUT of RANGE
sur la ligne ci dessous. Si mon fichier contient le nombre de ligne attendu(5 dasn l'exemple) pas de PB ça marche...
tabresulat(0, 0) = Val(dureerepas0(6))
tabresulat(0, 1) = Val(dureerepas0(7))
tabresulat(0, 2) = Val(dureerepas0(8))
tabresulat(0, 3) = Val(dureerepas0(9))
tabresulat(1, 0) = Val(dureerepas1(6))
tabresulat(1, 1) = Val(dureerepas1(7))
tabresulat(1, 2) = Val(dureerepas1(8))
tabresulat(1, 3) = Val(dureerepas1(9))
tabresulat(2, 0) = Val(dureerepas2(6))
tabresulat(2, 1) = Val(dureerepas2(7))
tabresulat(2, 2) = Val(dureerepas2(8))
tabresulat(2, 3) = Val(dureerepas2(9))
tabresulat(3, 0) = Val(dureerepas3(6))
tabresulat(3, 1) = Val(dureerepas3(7))
tabresulat(3, 2) = Val(dureerepas3(8))
tabresulat(3, 3) = Val(dureerepas3(9))
tabresulat(4, 0) = Val(dureerepas4(6))
tabresulat(4, 1) = Val(dureerepas4(7))
tabresulat(4, 2) = Val(dureerepas4(8))
tabresulat(4, 3) = Val(dureerepas4(9))
Voili si il vous manque quelque chose dite moi !!
merci d'avance
