Discussion :

[bouillaudmartin]

Bonjour,

Je développe une application type "Catalogue" pour une entreprise, je parcours des fichier "*.txt" et extrait différentes sous-chaines de caractère, (Code article, Désignation1, Designation2, Prix TTC, Unité...), j'utilise pour cela une procédure globale qui me permet d'extraire une sous chaine à partir d'un nom de référence mais lorsque j’extraie ma désignation2, le signe "€" apparait sous forme bizarre .. J'ai essayer de déclarer mes variables en ANSI, UNICODE ou normales mais rien n'y fait.
Le signe "€" m'est envoyé sous la forme : "€"

Quelqu'un aurait une solution ?

Cordialement,

[mail.spam]

Bonjour,

Peux tu nous dire comment tu ouvre ton fichier texte?

[bouillaudmartin]

J'ai une dizaine de fichier, et j'utilise la fonction suivante :

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
ListeFichiersArticle = fListeFichier("C:\POUR MARTIN\art*",frNonRécursif)
HCréation(ARTICLES)
POUR TOUTE CHAÎNE UnFichier DE ListeFichiersArticle SEPAREE PAR RC
	Trace(UnFichier)
	iDFIchier=fOuvre(UnFichier,foAnsi+foLecture)
	SI iDFIchier <> -1 ALORS
		sMonJSON = fLit(iDFIchier,10000000)
		sMonJSON = Remplace(sMonJSON,"},","}|")
		sMonJSON = Remplace(sMonJSON,RC,"")
	SINON
		Info("Impossible de lire le fichier source")
	FIN
sLigne=ExtraitChaîne(sMonJSON,rangPremier,"}|{")
	TANTQUE sLigne <> EOT
		Desi2Art=JsonTrouveChaineSpéciale(sLigne,"designation_2")	
		SI CodeArt="NONTROUVE" ALORS
			Info("ERREUR ! L'élément n'a pas pu être trouvé")
		SINON
			sLigne=ExtraitChaîne(sMonJSON,rangSuivant,"}|{")
			ARTICLES.ART_DESI2=Desi2Art
			Trace(Desi2Art)
			//HAjoute(ARTICLES)
			Multitâche(-1)
		FIN
	FIN	
	fFerme(iDFIchier)
FIN

Et j'utilise la procédure suivante :

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
PROCEDURE JsonTrouveChaineSpéciale(fichierJson,chaineRech sont des chaînes)
 
machaine est une chaîne
pos, posd, posf, grandeur, gr sont des entiers
 
chaineRech = Caract(34) + chaineRech + Caract(34) + ": " + Caract(34)
gr = Taille(chaineRech)
pos = Position(fichierJson,chaineRech)
 
SI pos = 0 ALORS
	machaine ="NONTROUVE"
SINON
	posd = pos + gr
	posf = Position(fichierJson,Caract(34), posd)
	grandeur = posf - posd
	machaine = Milieu(fichierJson,posd, grandeur)
FIN
 
RENVOYER machaine

[bouillaudmartin]

Grâce à une aide extérieure, j'ai la solution :

Code :

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

1
2
desi2art est une chaine ANSI
Desi2Art = UTF8VersChaîne(Desi2Art)