Devo scrivere un file di testo in VB6. Ho bisogno di farlo in accodamento e codificato in utf-8.Scrivi file di testo in allegato (codifica UTF-8) in VB6
Ho provato due soluzioni, una con "TextStream" e un'altra con "ADODB.Stream".
Il primo:
Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
fsoFile.Close
Lavora bene in aggiungendo, ma come posso scriverlo codifica UTF-8?
Il secondo:
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
scrivere correttamente in UTF-8, ma non posso scrivere il file in aggiungendo, ma solo con "adSaveCreateOverWrite".
Come posso farlo? C'è un altro modo?
Grazie mille.
Utilizzando l'oggetto ADODB Stream, se il file che si desidera aggiungere i di non è troppo grande è possibile aprirlo, leggere il testo esistente in una variabile, quindi scrivere la variabile e il nuovo testo fuori. Puoi anche aprire un nuovo file ogni volta, scrivere il testo esistente, quindi il nuovo testo. Elimina il file corrente e rinomina il nuovo file. Complicato, ma funziona abbastanza velocemente per i file più piccoli che l'utente non è lasciato in attesa. – jac
Purtroppo sto lavorando con file di testo di grandi dimensioni. Penso che aprirlo e leggere il testo esistente in ogni ciclo sia un lavoro pesante per la mia applicazione. – epi82