Discussion :

[kariel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kariel]

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

[Ry_Yo]

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

[basam95]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kariel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[tatayo]

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

Tatayo.

[basam95]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tatayo]

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.

[basam95]

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

[kariel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tatayo]

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.

[kariel]

Remarques prises en considération
Merci beaucoup