Importation de fichier CSV

Bonjour,
J'ai essayé d'importer un fichier CSV mais je ne sais pas il est le problème dans mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

//Importation de la liste des clients IdFichierXLS est un entier i,NbLigne,NbColonne est un entier NbColonne = 2 sFichier est une chaîne   // Ouvre le sélecteur de fichiers sFichier = fSélecteur("", "", "Sélectionnez un fichier.....", "FichierCVS.CSV" + TAB + "*.CSV", "*.CSV") SI fFichierExiste(sFichier) ALORS   IdFichierXLS = xlsOuvre(sFichier) NbLigne=xlsNbLigne(IdFichierXLS)   POUR i=0 A NbLigne   SI IdFichierXLS <> -1 ALORS POUR j=1 A NbColonne Info( xlsDonnée (IdFichierXLS,i,j,Vrai)) FIN FIN FIN SINON Erreur("Le fichier CSV n'existe pas") FIN

---

Merci de m'aider

J'ai pu comprendre que je dois utiliser fOuvre pour manipuler un fichier TXT ou CSV au lieu de xlsOuvre, mais c'est quoi l'équivalent de la fonction xlsNbLigne pour manipuler un fichier TXT ou CSV

Bonjour,

Comme vous l'avez constaté, d'un point de vue informatique un fichier CSV est un fichier TEXTE.

Donc toutes les commandes XLSxxx de Windev ne peuvent pas s'appliquer.

Il vous faudra créer un petit algo pour compter le nombre de ligne.
Il y a plusieurs possibilité, je vous oriente vers une des possibilités, libre à vous de faire autrement :

vous pouvez charger le fichier CSV directement en mémoire pour un traitement ultérieur avec ces 2 fonctions :

chargement : http://doc.pcsoft.fr/fr-FR/?3036006&name=fChargeTexte
conversion pour manipulation : http://doc.pcsoft.fr/fr-FR/?10000170...CSVVersTableau

enfin par ce biais vous aurez accès à toute la panoplie des fonctions de gestion d'un tableau en WLangage : TableauRecherche(), TableauOccurrence(), TableauXXX()....

http://doc.pcsoft.fr/fr-FR/?3075006&...n_des_tableaux

Salut,

Un fichier CSV est un fichier texte, donc en effet il faut l'ouvrir avec fOuvre() ou fChargeTexte()
Il n'y a pas de fonction pour récupérer le nombre de ligne, à ma connaissance, mais tu peux parcourir le fichier avec fLitLigne() si tu utilise fOuvre ou, beaucoup plus simplement en chargeant le fichier dans une variable avec fChargeTexte()
puis en faisant un parcours avec POUR TOUT

Code:

---

1 2 3 4 5 6 7

MaChaine est une chaine = fChargeTexte(MonFichier)   POUR TOUTE CHAÎNE sousChaine DE MaChaine SEPAREE PAR RC // Traitement   FIN

---

Tu peux aussi compter le nombre de RC avec ChaineOccurence() et donc récupérer le nombre de lignes.

Merci pour vos réponse, voila l'une des manières pour le faire :

Code:

---

1 2 3

maChaine = fChargeTexte(sFichier) NbLigne = ChaîneOccurrence(maChaine,RC) + 1

---

alors maintenant, je souhaite lire mes données.
En fait, j'ai un fichier de cette forme :

vlr11;vlr12;vlr13
vlr21;vlr22;vlr23
vlr31;vlr32;vlr33
...
...

Maintenant je souhaite lire mes données en récupérant chaque élément à l'aide d'une boucle.
pour un fichier excel, j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

POUR i=0 A NbLigne   SI IdFichierXLS <> -1 ALORS POUR j=1 A NbColonne Info( xlsDonnée (IdFichierXLS,i,j,Vrai)) FIN FIN FIN

---

Pour un fichier CSV comment faire ça.
En cherchant, j'ai trouvé la fonction fLitLigne(), mais cette fonction je suppose elle lit la ligne entière.
Avez vous une idée ?

En cherchant dans l'aide en ligne les fonctions de gestion des chaines de caractères, tu devrais trouver ton bonheur.

Tatayo.

Salut,

Code:

---

1 2 3 4 5 6 7 8

POUR TOUTE CHAINE sLigne DE maChaine SEPAREE PAR RC // Parcours des colonnes POUR TOUTE CHAINE sColonne DE sLigne SEPAREE PAR ";" info(sColonne) // Contient vlr11 puis vlr12 puis vlr13 à chaque boucle FIN FIN

---

basam95: si je n'ai pas donné la solution à notre amis, c'est justement pour le pousser à faire des recherches dans l'aide en ligne...
Tout débutant qu'il soit, le mieux je pense est qu'il apprenne à trouver l'information, surtout qu'ici c'est assez trivial.

Tatayo.

Salut Tatayo,

J'ai vu ta réponse après avoir postée la mienne, désolé.

Je suis d'accord sur le principe, c'est le meilleur moyen pour avancer, mais vu le nombre de question qu'il posait je crois qu'il tournait vraiment en rond.

A+
Basam95

Merci beaucoup,
En fait, je suis toujours en recherche, même si je pose des questions, je continue à rechercher.
En effet, j'ai réussi à trouver la solution
voila le code qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

//Importation de la liste des clients IdFichierXLS est un entier i,NbLigne,NbColonne est un entier NbColonne = 2 nature est un entier sFichier,maChaine est une chaîne enregistrement est une chaîne     // Ouvre le sélecteur de fichiers sFichier = fSélecteur("", "", "Sélectionnez un fichier.....", "FichierCVS.CSV" + TAB + "*.CSV", "*.CSV") SI fFichierExiste(sFichier) ALORS   IdFichierXLS = fOuvre(sFichier) maChaine = fChargeTexte(sFichier) NbLigne = ChaîneOccurrence(maChaine,RC) SI IdFichierXLS <> -1 ALORS POUR i=1 A NbLigne+1 enregistrement = fLitLigne(IdFichierXLS,RC)   info(iExtraitChaîne(enregistrement,1,";")) // traitement   FIN SINON Info(ErreurInfo) FIN SINON Erreur("Le fichier CSV n'existe pas") FIN

---

De toute façon, merci beaucoup pour vos remarques ;)

Il y a beaucoup à dire sur ton code...

• Tu utilises fChargeTexte et fOuvre/Flit. C'est un peu redondant
• Tu testes si le fichier est ouvert APRES avoir lu le contenu
• Le fichier est ouvert, mais jamais fermé
• Et si l'utilisateur ne sélectionne aucun fichier, tu renvoies une erreur indiquant que le fichier n'existe pas

Tatayo.

Remarques prises en considération
Merci beaucoup :)