Gemme fil med UFT8 tegnsæt

sådan gøres det i C#
XmlTextWriter writer = new XmlTextWriter(fileStream, System.Text.Encoding.GetEncoding(850));

Der må være noget lignende i VB....

glemte lige : FileStream fileStream = new FileStream()

Det er en rigtig dårlig ide at benytte "strengbaseret" xml håndtering.

Benyt Microsoft's DOM i stedet. Den håndterer tegnsæt, specialtegn, og meget mere, og så er performance bedre end med simpel strenghåndtering (specielt med store filer).

eksempel:
Set xmldoc = New MSXML2.DOMDocument40
' opbyg dokument
xmldoc.Save filename

Der findes et SDK som hjælper dig igang på www.microsoft.com/xml (MSXML 4.0)

For at genere en txt-fil hvor man vil definere tegnsæt (f.eks. utf-8) kan gøres følgende:

Dim adoStreamOut As ADODB.Stream
Set adoStreamOut = New ADODB.Stream
adoStreamOut.Charset = "utf-8"
adoStreamOut.Open
adoStreamOut.WriteText "Indholdet i filen..."
adoStreamOut.SaveToFile c:\test.txt, adSaveCreateOverWrite

Der er skal være opretttet en reference til "Microsoft ActiceX Data Objects 2.8 Library". Der ud over skal charset værdien tilsyneladende angives med små bogstaver under nogle styresystemer, og med store under andre, for at det virker.

Filen man gemmer til skal selvfølgelig angives som en streng, så koden bliver:

Dim adoStreamOut As ADODB.Stream
Set adoStreamOut = New ADODB.Stream
adoStreamOut.Charset = "utf-8"
adoStreamOut.Open
adoStreamOut.WriteText "Indholdet i filen..."
adoStreamOut.SaveToFile "c:\test.txt", adSaveCreateOverWrite