WM17-Lecture d'un fichier texte : probleme de caractère

**Totik** · 21/12/2016, 03h25

Bonjour ;

J'ai essayé avec le code suivant de lirer un fichier texte dans un apareil mobile ( PDA) et d'affichier le résultat de lecture dans un champ de saisie et j'ai un probleme d'affichage de caratères parfois j'ai des rectangles , parfois des points d'interogation (??????).

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
 
// Déclaration des variables
NomCheminFichier est une chaîne
IDFichier est un entier
LigneLue est une chaîne
 
// Sélection du nom et du chemin du fichier
NomCheminFichier ="\Temp\Inventaire.txt"
// Ouverture du fichier
IDFichier = fOuvre(NomCheminFichier,foUnicode)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IDFichier = -1 ALORS
	Erreur(ErreurInfo(errMessage))
SINON
	BOUCLE
		// Lecture de la première ligne du fichier
		LigneLue = fLitLigne(IDFichier)
		SI ErreurDétectée ALORS
			Erreur(ErreurInfo())
			SORTIR
		FIN
		// Fin de fichier ?
		SI LigneLue = EOT ALORS SORTIR
		// Traitement de la ligne lue
		// Ici ajout à la fin d'un champ de saisie
		SAI_S = UnicodeVersAnsi(LigneLue)
	FIN
	// Fermeture du fichier
	fFerme(IDFichier)
FIN

des pistes de correction et merci d'avance.