Problème affichage du text dans un fichier après OpenTextFile

Marsh Posté le 07-12-2007 à 17:19:05

Dans mon code je crée un fichier txt dans lequel j'écris certaines lignes qui s'affiche correctement, puis referme le fichier.

Code :

Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.CreateTextFile("C:\Pulsar\" & nomdufichier, True, True)
a.WriteLine ("<?xml version=""1.0"" encoding=""utf-8"" ?>" )
a.WriteLine (" <XML>" )
a.WriteLine (" <SCHEMA object=""Organization"" ifc=""IfcOrganization"" />" )
a.Close

Plus tard dans mon code, dans une autre fonction, je souhaite ouvrir à nouveau ce fichier pour ajouter une ou plusieurs lignes en fin de document de la manière suivante:

Code :

Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.OpenTextFile("C:\Pulsar\" & nomdufichier, 8, -1)
a.WriteLine (" <INSERT>" )

Voila ce qui s'affiche:

Code :

<?xml version="1.0" encoding="utf-8" ?>
<XML>
<SCHEMA object="Organization" ifc="IfcOrganization" />††††䤼华剅㹔਍†††††††刼坏椠㵤ㄢㄳ〰〰∰渠浡㵥䈢䑄⁆‭䅂兎䕕䐠⁅䕄䅔䱉䔠⁎剆乁䕃•牣慥整慤整∽㜰ㄭⴲ〲㜰ㅔ㨶㤵〺∴瀠牡湥㵴伢杲湡穩瑡潩≮⼠ാ ††††††㰠佒⁗摩∽㌱ㄱ㈲〷•慮敭∽呉⁐‭䵉塅ⴠ䤠䵍䉏䱉䕉

Savez pourquoi j'ai ces caractères bizarres?

Marsh Posté le 07-12-2007 à 17:19:05

Marsh Posté le 09-12-2007 à 13:24:26

Salut,
Après avoir essayé de faire comme toi, j'ai été confronté au même problème. j'ai pas d'explication sur ça.
J'ai quand même trouvé une solution en utilisant la méthode OpenAsTextStream. (remplace ton 2eme code par celui-ci, cela fonctionne parfaitement)

set fichier = fs.getFile("C:\Pulsar\" & nomdufichier)
set a = fichier.openAsTextStream(8,-1)
a.WriteLine(" <INSERT> " )
a.Close

Marsh Posté le 10-12-2007 à 09:37:08

Merci scriptozorus, ca marche très bien avec ton astuce.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *