PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV (versiones precedentes) → [WD23] Caractère non souhaité lors importation fichier texte
[WD23] Caractère non souhaité lors importation fichier texte
Iniciado por Mandin Claude, 25,sep. 2022 09:28 - 2 respuestas
Publicado el 25,septiembre 2022 - 09:28
Bonjour

J'ai un petit soucis ou je n'arrive pas a trouvé la solution ou le problème.

Voila j'ai créer un logiciel de gestion, (Bancaire) (créé en 2010 et qui a évolué au fil du temps). Version actuelle WINDEV 23
Mon problème est lorsque j'importe un fichier au format OFX , Je me retrouve parfois avec des caractères accentués alors qu'auparavent cela ne le faisait pas.
EX:
MAINTENANT
REMISE CHEQUES N° 0596601 REMIS LE 16/09/2022 RUELLE
AVANT
REMISE CHEQUES N° 0596601 REMIS LE 16/09/2022 RUELLE

Dans le fichier OFX ce caractère n'apparait pas. Si je fait un copier /coller dans un traitement de texte , il n'apparait pas.
Donc je présume que c'est dans mon code de traitement que le soucis réside.
J'ai essayé en parametrant

sTexte est une chaîne ANSI= fChargeTexte("C:\MesFichiers\MonFichier.OFX")
puis
sTexte est une chaîne ANSI= fChargeTexte("C:\MesFichiers\MonFichier.OFX",,foAnsi)

MonBuffer est un Buffer
sTexte est une chaîne UNICODE
MonBuffer = fChargeTexte(_Nom_Fichier,foUnicode )
sTexte = MonBuffer

Mais cela ne change en rien

Si vous avez un peu de temps et des suggestions, je suis tout ouie !
Par avance je vous remercie
Miembro registrado
21 mensajes
Popularité : +5 (5 votes)
Publicado el 25,septiembre 2022 - 16:24
Bon, je me réponds a moi même, et pour le cas au cela pourrait satisfaire une autre personne !
J'ai créé une simple procèdure excluant les caractères Majuscule accentués dans un texte

Procedure OFX_VerifieChaine(_Chaine)

schainetemp est une chaîne = ""

POUR T = 1 _À_ Taille(_Chaine)
SELON CaractType(Milieu(_Chaine,T,1))
CAS ctAccent+ctMajuscule+ctLettre
// On ne prend pas en compte le caractère
AUTRES CAS //
schainetemp+=Milieu(_Chaine,T,1)
FIN
FIN
RENVOYER schainetemp


Cela fonctionne parfaitement, mais je recherche dans mes paramètrages si je ne suis pas passé à côté de quelque chose.

--
Il vaut mieux plusieurs têtes qui trouvent, qu'une seule tête qui cherche !

On trouve des chercheurs qui cherchent, mais on cherche des chercheurs qui trouvent !
Miembro registrado
21 mensajes
Popularité : +5 (5 votes)
Publicado el 25,septiembre 2022 - 17:23
OU, Après reflexion

Procedure OFX_VerifieChaine(_Chaine)

schainetemp est une chaîne = ""

POUR T = 1 _À_ Taille(_Chaine)
SI CaractType(Milieu(_Chaine,T,1))<>ctAccent+ctMajuscule+ctLettre ALORS
schainetemp += Milieu(_Chaine,T,1)
FIN
FIN
RENVOYER schainetemp


--
Il vaut mieux plusieurs têtes qui trouvent, qu'une seule tête qui cherche !

On trouve des chercheurs qui cherchent, mais on cherche des chercheurs qui trouvent !