Ich muss eine Textdatei in VB6 schreiben. Ich muss es anhängen und utf-8 kodieren.Schreibe Textdatei in Anhängen (UTF-8 codiert) in VB6
Ich habe zwei Lösungen ausprobiert, eine mit "TextStream" und eine andere mit "ADODB.Stream".
Die erste:
Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
fsoFile.Close
gute Werke in anhängt, aber wie kann ich schreibe es utf-8 codiert?
Die zweite:
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
schreiben korrekt in utf-8, aber ich die Datei nicht schreiben kann, sondern nur mit "adSaveCreateOverWrite" in anhängt.
Wie kann ich das tun? Gibt es eine andere Art und Weise?
Vielen Dank.
Ihre ADODB Stream-Objekt verwenden, wenn die Datei, die Sie anhängen nicht zu groß ist, dass Sie es öffnen kann, lesen Sie den vorhandenen Text in eine Variable, dann schreibe die Variable und den neuen Text zurück. Sie können auch jedes Mal eine neue Datei öffnen, indem Sie den vorhandenen Text und anschließend den neuen Text schreiben. Töte die aktuelle Datei und benenne die neue Datei um. Kompliziert, funktioniert aber schnell genug für kleinere Dateien, auf die der Benutzer nicht warten muss. – jac
Leider arbeite ich mit großer Textdatei. Ich denke, dass es öffnen und den vorhandenen Text zu jeder Schleife lesen wird eine schwere Arbeit für meine Anwendung sein. – epi82