Discussion :

[jaybriss]

Salut!!! J'ai fait quelque recherche (sur ce forum et d'autres...) et je n'ai pas trouver comment lire un fichier texte sans perdre les accents en vb. (Je voudrais faire une boucle qui remplace mes 'é' par '&#233' et ainsi de suite pour que mon .xml soit importable dans excel)

Quelqu'un peut-il m'aider??? J'utilise un filesystemobject mais peut-etre que je serais mieux avec un autre object? Voici mon code :

Code :

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

1
2
3
4
Set ts = fs.OpenTextFile(strPath & "\" & strNoEntr & ".xml", ForReading)
ts.SkipLine
strXML = ts.ReadAll
ts.Close

Dite moi le si cé impossible!!!! Je chercherais une autre solution...n

Jattend une réponse! MARCI!

[jaybriss]

Personne?

[Phifi]

Code :

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

je n'ai pas trouver comment lire un fichier texte sans perdre les accents en vb.

En ouvrant ton fichier avec le bloc note, as-tu les accents ?

Sinon, si tu sais lire et écrire dans un fichier, tu peux toujours rechercher une chaine de caractère et la remplacer par une autre... (fonction Replace)

[Phifi]

Code :

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

Personne?

Et j'éviterai ce genre de message 13 minutes après ton post initial.
J'en connais qui ne vont pas apprécier (et je les comprends)

[jaybriss]

Oui je vois les accent en ouvrant le fichier avec BlocNote. Mais aussitot apres le .ReadAll, je vérifie le contenu de strXML et tous les accent on disparus. Je ne peu donc pas faire une boucle avec Replace.....

Bah... 13 minutes... cé pas si pire... Tu en a renvoyer un une minute apres
Et comme Homer S. dit si bien : "C'est ma première journée... "

Une autre idée?

[jaybriss]

J'ai trouver!! C'est tous ce qu'il y a de plus simple en plus...

Je voulais faire un Replace sur ma variable string strXML mais il suffit de le faire avant d'affecter la valeur à cette variable.

Code :

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

1
2
3
4
Set ts = fs.OpenTextFile(strPath & "\" & strNoEntr & ".xml", ForReading)
ts.SkipLine
strXML = Replace(ts.ReadAll,"é","&#233")
ts.Close

Merci a Phifi pour m'avoir répondu!!!

[AlainTech]

On ne dit pas:

Jattend une réponse!

On dit (et on fait):

Je cherche de mon côté.
Si je trouve avant que quelqu'un ait répondu, je viens poster ce que j'ai trouvé.

Plutôt que de crier "Personne?" après 13 minutes...

[jaybriss]

Bah. Ok...

MARCI!