Muszę napisać plik tekstowy w VB6. Muszę to zrobić w dołączaniu i kodowaniu utf-8.

Wypróbowałem dwa rozwiązania, jedno z „TextStream”, a drugie z „ADODB.Stream”.

Pierwszy:

<code>    Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
    fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
    fsoFile.Close
</code>

Działa dobrze w dołączaniu, ale jak mogę napisać kodowanie utf-8?

Drugi:

<code>Dim ST As ADODB.Stream

Set ST = New ADODB.Stream
ST.Mode = adModeReadWrite
ST.Type = adTypeText
ST.Charset = "UTF-8"

ST.Open
ST.LoadFromFile FileIn(fi)
ST.Position = ST.Size
ST.WriteText "<tag>kkkjòòkkkkjlòlk</tag>"
ST.SaveToFile FileIn(fi)
ST.Close
</code>

Napisz poprawnie w utf-8, ale nie mogę zapisać pliku w dołączeniu, ale tylko z „adSaveCreateOverWrite”.

Jak mogę to zrobić? Czy jest inny sposób?

Dziękuję Ci bardzo.