Discussion :

[kariel]

J'essaye d'importer un fichier CSV et enregistrer les données dans un fichiers HyperFile.
mon fichier a la forme suivante :

Code :

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

1
2
3
4
5
 
col1;col2;col3;col4;col5
11;11;11+11+11;11;11
22;22;22+22+22+22+22;22;22
33;33;33+33+33+33+33+33+33+33;12;5

Mais je constate qu'une fois je dépasse une longueur donnée dans la 3 eme colonne, je me trouve avec le problème de mal reconnaissance de séparateur de ligne.
Cela veut dire, que des lignes ne s'enregistre pas dans la base de données ou le fichier HyperFile.
J'ai bien augmenté la taille de la colonne 3 de 100 à 200 ( colonne de type Texte), mais le problème persiste toujours.
Avez-vous une idée de la source du problème ?

[frenchsting]

Si tu nous mettais un peu de code, je pense que ça nous faciliterait la tâche...

[hpascal]

Bonjour à toi aussi

Avez-vous une idée de la source du problème ?

Oui bien sur ! L'erreur se trouve à la ligne 34 de ton code

[frenchsting]

Oui bien sur ! L'erreur se trouve à la ligne 34 de ton code

Je savais qu'on pouvait faire beaucoup de choses avec Windev, mais la j'en suis baba.

[kariel]

En fait, ce n'est pas un problème de code, parce que j'importe un fichier qui contient plus que 1000 lignes et ça marche.
Dés que j'intègre à mon fichier un enregistrement qui contient une chaine longue, le problème se crée

[hpascal]

En fait, ce n'est pas un problème de code

On veut bien te croire sur parole

Mais si la taille de la valeur est inférieure à celle de ta colonne destination c'est qu'il y a bien un problème quelque part
Dans ta boucle fais une trace de Taille(ta_chaine_a_intégrer), tu verras bien si ça dépasse 200 ou pas

[kariel]

Non ça dépasse pas, voila le 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
26
27
28
 
IdFichierXLS est un entier
i,NbLigne, idTab est un entier
sFichier,maChaine est une chaîne
enregistrement est une chaîne
sFichier = fRepExe() + "\MonFichier.csv"
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)
		HLitRecherche(Compte,idCompte,Val(ExtraitChaîne(enregistrement,1,";")))
		SI HTrouve(Compte) = Vrai ALORS
			idCpt = Compte.idCompte
		FIN
		maTable.col1 = idCpt
		maTable.col2 = Val(ExtraitChaîne(enregistrement,2,";"))
		maTable.col3 = ExtraitChaîne(enregistrement,3,";")
		maTable.col4 = Val(ExtraitChaîne(enregistrement,4,";"))
		maTable.col5 = Val(ExtraitChaîne(enregistrement,5,";"))
		maTable.col6= Val(ExtraitChaîne(enregistrement,6,";"))
		maTable.col7=  Val(ExtraitChaîne(enregistrement,7,";"))
		HAjoute(maTable)
	FIN	
SINON
	Info(ErreurInfo)
FIN

[hpascal]

Que de complication pour parcourir un fichier texte
Puisque tu connais fChargeTexte, autant l'utiliser directement pour lire le fichier texte :

Code :

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

1
2
3
4
5
6
maChaine = fChargeTexte(sFichier)
POUR TOUTE CHAÎNE enregistrement DE maChaine SEPAREE PAR RC
   HLitRecherche(...
   ...
   HAjoute(maTable)
FIN

Et si tu as besoin de connaitre le nombre de ligne tu ajoutes NbLigne++ dans ta boucle
Autre chose : si Compte n'est pas trouvé tu fais quand même ton ajout et de plus avec le compte précédent (car il n'y a pas de HRAZ)

Si tu tiens à utiliser fOuvre / fLitLigne voici des exemples de syntaxe : http://doc.pcsoft.fr/fr-FR/?10000030...ligne_fonction

C'est toujours utile de montrer son code même si il semble fonctionner

[kariel]

, je sais pas quoi dire, vous avez raison, de plus votre réponse était très utile, voila le code qui marche :

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
 
idTab est un entier
sFichier,maChaine est une chaîne
enregistrement est une chaîne
sFichier = fRepExe() + "\MonFichier.csv"
maChaine = fChargeTexte(sFichier)
POUR TOUTE CHAÎNE enregistrement DE maChaine SEPAREE PAR RC
                HLitRecherche(Compte,idCompte,Val(ExtraitChaîne(enregistrement,1,";")))
		SI HTrouve(Compte) = Vrai ALORS
			idCpt = Compte.idCompte
                         maTable.col1 = idCpt
		         maTable.col2 = Val(ExtraitChaîne(enregistrement,2,";"))
		         maTable.col3 = ExtraitChaîne(enregistrement,3,";")
		         maTable.col4 = Val(ExtraitChaîne(enregistrement,4,";"))
		         maTable.col5 = Val(ExtraitChaîne(enregistrement,5,";"))
		         maTable.col6= Val(ExtraitChaîne(enregistrement,6,";"))
		         maTable.col7=  Val(ExtraitChaîne(enregistrement,7,";"))
		         HAjoute(maTable)
                sinon
                        //Autre traitements
		FIN
 
	FIN
 
FIN

Merci beaucoup

[hpascal]

Avec plaisir

A noter que fChargeTexte peut ne pas fonctionner avec les très gros fichiers
Dans ce cas il renvoie une chaine vide

Sur mon poste, au delà de 60 ou 70Mo c'est le cas
Parfois ça passe avec plus ça dépend des jours et le message d'erreur indique un problème de mémoire

Dans ce cas il faut utiliser l'autre méthode