Compter les lignes CSV en VB6

Citation:

---

Envoyé par iclic

Overflow c'eqt un autre type d'erreur

1.Quelle est la valeur de nbligne?
Quel type de variable est nbligne?

2.Pourquoi nepeux tu pas déclaré le tableau Tldonnee comme Double?

---

nbligne est un integer.
il me permet à l'ouverture du fichier de savoir le nombre de ligne du csv. ( le nombre d'enregistrements en somme)

parce que si je déclare tbldonnees en double il faut alors que je déclare tblLigneData en double et aussi strLigneData en double ce qui pose un problème pour cette dernière.

Code:

---

Line Input #numFic, strLigneData

---

Tu peux faire ceci:

Code:

---

1 2 3 4

Dim Enregistrement As String Line Input #numFic, Enregistrement strLigneData = Val(Enregistrement) 'si strLigneData déclaré Double

---

Iclic et les autres, merci de votre aide.

A force de relire mon code, j'ai trouvé la dernière faille à savoir que je ne ré-initialisais jamais ma variable "nbligne" au départ de la lecture d'un nouveau fichier !!

Une fois que je le fais ça marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Open nomFic For Input As #numFic nbligne = 0 i = 0 Do Until EOF(numFic) Line Input #numFic, strLigneData tblLigneData() = Split(strLigneData, ",") Debug.Print UBound(tblLigneData) tblDonnees(i, 0) = tblLigneData(1) tblDonnees(i, 1) = tblLigneData(2) tblDonnees(i, 2) = tblLigneData(0) 'tblDonnees(i, 3) = tblLigneData(3) i = i + 1 nbligne = nbligne + 1 Loop Close #numFic

---

Maintenant je peux lire et traiter les fichiers de tous mes patients à la suite!

Encore merci.