- Код: Выделить всё
Dim s As New IO.MemoryStream
Dim xw As New Xml.XmlTextWriter(s, Text.UTF8Encoding.UTF8)
xw.WriteProcessingInstruction("xml", "version=""1.0"" encoding=""utf-8""")
...формирование данных и запись их в поток через xw...
Dim sw As New IO.StreamWriter("c:\data.xml")
sw.WriteLine(System.Text.ASCIIEncoding.ASCII.GetString(s.GetBuffer))
sw.Close()
s.Close()
хотел как лучше, а получилось плохо:
o;?<?xml version="1.0" encoding="utf-8"?> ...
и не весь документ записался.
FW1.1