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?
FORUM HardWare.fr
