Discussion :

[Delphi-ne]

Bonjour,

Je voudrais ouvrir un fichier texte et le lire ligne par ligne
Pour information le fichier de test comprend 3 lignes

Code :

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

1
2
3
p1;1
p2;2
p3;3

J'ai donc écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
	LN_FH = fOuvre(LC_Fichier)
	SI LN_FH < 0 ALORS
		RETOUR
	FIN
	BOUCLE
		LC_Ligne = fLitLigne(LN_FH)
		SI LC_Ligne = EOT ALORS SORTIR
	FIN	
	fFerme(LN_FH)

Dès la première ligne j'obtiens un EOT. Le traitement s'arrête alors que le fichier comprend 3 lignes.

J'ai modifié mon code de la façon suivante :

Code :

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

1
2
3
4
5
6
7
	LC_Lecture = fChargeTexte(LC_Fichier)
	ChaîneVersTableau(LC_Lecture, LT_Lecture, RC)
	i est un entier
	POUR i = 1 _A_ TableauOccurrence(LT_Lecture)
		LC_Ligne = LT_Lecture[i]
		ChaîneVersTableau(LC_Ligne, LT_Ligne, ";")
	FIN

Et là cela fonctionne. Les 3 lignes sont bien lues.
Je voudrais comprendre la différence entre ces deux traitements : pourquoi l'un fonctionne pas l'autre.

[midou23175]

Bonjour,

Concernant la première méthode, ça fonctionne correctement.
La valeur EOT concerne le renvoi de la fin du fichier.
Faire un Trace() pour voir les 3 premières lignes

Code :

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

1
2
3
4
5
6
 
BOUCLE
	LC_Ligne = fLitLigne(LN_FH)
	Trace(LC_Ligne)
        SI LC_Ligne = EOT ALORS SORTIR
FIN

Une autre façon de faire, en mettant le contrôle,
juste après la lecture de la 1ère ligne.

Code :

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

1
2
3
4
5
6
7
8
 
LC_Ligne = fLitLigne(LN_FH)
 
TANTQUE LC_Ligne <> EOT
        Trace(LC_Ligne)
        LC_Ligne = fLitLigne(LN_FH)
FIN
fFerme(LN_FH)

[Delphi-ne]

Bonjour,

Merci.
J'avais déjà essayé la seconde méthode mais le résultat est le même.
Sur le premier point je n'avais pas mis de trace mais un point d'arrêt. J'ai vu EOT. C'est bien ce qui me préoccupe.

Je précise que mon logiciel est programmé en WinDev Mobile 20 et que le projet est orienté vers des tablettes Android.

[frenchsting]

Questions à 2 sous :
- As-tu regardé le format de ton fichier (les RC sont bien des RC ?) avec un éditeur Hexa par exemple ou notepad++ (en activant l'option afficher tous les caractères) ?
- Je te conseille également de regarder au niveau de la tablette, quels sont les caractères utilisés : Pas sûr que le RC soit bien interprété. Le jeu de caractères tablette n'est sûrement pas celui de Windows.

Pour en revenir à la question de départ, la différence entre les 2 méthodes : tu va avoir 3 accès en lecture dans le premier cas (sans compter ouverture et fermeture), un seul dans le 2°.
Pour l'avoir testé sur PC, j'ai rapidement opté pour le fchargetexte, beaucoup plus rapide (fchargetexte + pour toute chaine sMachaine de sChaineTotale separée par RC).

[Delphi-ne]

As-tu regardé le format de ton fichier (les RC sont bien des RC ?)

Non (et je ne peux pas essayer maintenant) mais vu que dans la seconde méthode j'utilise RC pour splitter la chaine reçue en tableau je pense que ce sont bien des retours chariot.
Je n'ai pas installé sur la tablette. J'ai fait mes tests avec l'émulateur.
Le fichier de test a été saisi avec le bloc note de Windows.

Ma question entre les 2 méthodes était plus sur l'aspect technique.
Sur le principe je connais. J'ai eu le cas d'une application sur laquelle j'ai dû intervenir et où un petit malin avait chargé tout le fichier en mémoire. Ca a fonctionné 2 ans. Un jour le client a voulu traiter un fichier très gros et le traitement a éclaté.
C'est pour l'anecdote : je ne vois pas ce genre de chose sur une tablette mais ça m'a fait réfléchir.
Mais j'essaie de comprendre et WinDev me déroute souvent.

[tbc92]

Avec flitligne, je n'ai jamais rencontré le problème que tu signales.

Dans fOuvre(), j'ai pour habitude de préciser foLecture. Le paramètre par défaut est foLectureEcriture. Je ne vois pas pourquoi ça changerait le résultat ... mais peut-être.
Et je boucle systématiquement comme dans le code proposé par Midou23175 (Tantque lig <> EOT ...) . Là encore, je ne vois pas pourquoi ça changerait le résultat, ce serait même encore plus inquiétant.

Dans le tout premier code que tu donnes, tu as bien une instruction en plus entre la ligne 6 et la 7, pour concrétiser ton traitement ... et c'est cette instruction qui ne s'exécute qu'une fois ?

[Delphi-ne]

Oui, moi aussi dans FOuvre j'avais le paramétre foLecture. Je l'ai retiré au cours de mes différents essais.
Dans mon code j'avais mis le traitement entre les lignes 7 et 8, APRES le test si EOT

Je ne pense pas que le fait de "réparer" le projet change quelque chose mais j'essaierai ce soir ou demain.
J'ai eu 2 cas comme celui-ci, totalement illogiques ce week-end. A chaque fois j'ai trouvé une solution de contournement mais cela me fait peur.

[Programming-Z]

Essaye avec ce code :

Code :

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

1
2
3
4
5
6
7
LC_Lecture = fChargeTexte(LC_Fichier)
 
POUR TOUT CHAÎNE sLigne DE LC_Lecture SEPAREE PAR RC
	SI sLigne=EOT CONTINUE
 
	//Traitement de la ligne
FIN

[Delphi-ne]

J'avais mis le projet entre parenthèses pour avancer sur ce que je dois livrer.
Je vais poursuivre mes essais dès que je peux mais, à première lecture, pour un 'non WinDev' lire "Si EOT Alors Continue" ça peut choquer...

A bientôt

[frenchsting]

Effectivement, ça me choque aussi. Du coup, en modifiant le code de Programming-Z

Code :

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

1
2
3
4
5
6
LC_Lecture = remplace(fChargeTexte(LC_Fichier), EOT,"")
 
POUR TOUT CHAÎNE sLigne DE LC_Lecture SEPAREE PAR RC
 
	//Traitement de la ligne
FIN

Çà doit revenir au même mais ça pique moins les yeux.

[jurassic pork]

hello,
dans ton fichier texte, il n'y a aucune raison qu'il y ait le caractère EOT. C'est en fait la fonction fLigne qui renvoit un EOT (caractère 4) quand elle détecte une fin de fichier. Donc dans ton cas :
Soit il y a un ou des caractère(s) parasite(s) dans ton fichier (caractère 4) ou soit c'est la fonction fLigne qui détecte mal la fin du fichier.
Normalement le code de Programming-Z devrait fonctionner sans test de l' EOT.

Code :

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

1
2
3
4
5
 
LC_Lecture est une chaine  = fChargeTexte(LC_Fichier)
POUR TOUT CHAÎNE sLigne DE LC_Lecture SEPAREE PAR RC
	//Traitement de la ligne
FIN

Ami calmant, J.P

[philouZ]

Bonjour,

Je pense que ce qui t'arrive est tout à fait normal. Tu as du créer ton fichier sous Windows donc en ANSI. Or Android travaille en Unicode et donc ton fichier est ouvert en Unicode. Le codage étant différent, le résultat est différent.

Lorsque tu fais un fChargeTexte, le texte est automatiquement transformé en Unicode et donc ton test fonctionne.

Il faut faire attention aux différentes plateformes qui n'utilisent pas toutes le même codage.