Muszę napisać plik tekstowy w VB6. Muszę to zrobić w dołączeniu i zakodować utf-8.Napisz plik tekstowy w dołączaniu (kodowany utf-8) w VB6
Próbowałem dwa rozwiązania, jeden z "TextStream" i inny z "ADODB.Stream".
Pierwszy:
Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
fsoFile.Close
działa dobrze w dołączanie ale jak mogę napisać to kodowanie UTF-8?
drugi:
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
poprawnie pisać w UTF-8, ale nie mogę napisać plik w dołączanie ale tylko z „adSaveCreateOverWrite”.
Jak mogę to zrobić? Czy istnieje inny sposób?
Dziękuję bardzo.
pośrednictwem swojego obiektu ADODB Stream, jeśli plik jesteś dołączanie do nie jest zbyt duży, można go otworzyć, przeczytać istniejący tekst do zmienna, następnie zapisz zmienną, a nowy tekst wycofaj. Za każdym razem możesz otworzyć nowy plik, zapisać istniejący tekst, a następnie nowy tekst. Zabij bieżący plik i zmień nazwę nowego pliku. Skomplikowane, ale działa wystarczająco szybko dla mniejszych plików, na które użytkownik nie czeka. – jac
Niestety pracuję z dużym plikiem tekstowym. Myślę, że otwarcie i przeczytanie istniejącego tekstu do każdej pętli będzie ciężką pracą dla mojej aplikacji. – epi82