[VB 6] Scrivere in Unicode un file TXT

[GoldEmish]

Ciao a tutti, tempo fa ho chiesto in questo forum come si scrive un file TXT in Unicode.
Mi è stato risp che deve usare StrConv(stringa, vbUnicode)
io ho provato a convertire così la stringa prima di scriverla ma mi viene scritta con uno spazio tra ogni lettera:

es.
stringa="mese=settembre"
è diventato
"m e s e = s e t t e m b r e"
e poi se faccio:
MsgBox StrConv(stringa, vbUnicode)

il messaggio è solamente "m"

Perchè?

Grazie, ciao

[raffaeu]

Cosa usi per creare il File FSO o Print?

[GoldEmish]

Print

[raffaeu]

... ti posto quello che faccio io

    Open strFile For Append As #1
    Print #1, strText
    Close #1

[GoldEmish]

Mi disp ma così lo scrive in ANSII e non in Unicode...
E poi a me serve che lui sovrascriva il file, nn che aggiunga sotto i cambiamenti.

Io poi quel file devo leggerlo con un filmato flash SWF e se non è in Unicode lui al posto delle èàòìù mi fa tanti quadrattini...

Ho provato anche col blocco note, se codifico in ANSII mi da quel prob se codifico in Unicode va tutto bene.

Quindi come posso fare?

Grazie, ciao

[GoldEmish]

ciao, ho trovato questo:

 
Function saveUnicode(buffBody As String, fileName As String)
    On Error GoTo err1
    Dim fileHead(1) As Byte, fileBody() As Byte
    fileHead(0) = 255
    fileHead(1) = 254
    fileBody = buffBody
    Open fileName For Binary As #1
    Put #1, 1, fileHead
    Put #1, 3, fileBody
    Close #1
    saveUnicode = 0 'success
    GoTo over
err1:
    saveUnicode = 1 'fail
over:
End Function

Però il problema è che ora non so come fare più righe.
Cioè con questa Funz scrivo un unica riga nel file, non più di una!

[raffaeu]

perchè scrivi open file for binary ... se scrivi open file for append allora va a capo, altrimenti puoi provare con chr(13) oppure vbnewline che funziona sempre ...

[GoldEmish]

il probl è che con append continuava a riscrivere sotto, io invece dovevo scrivere più righe.

es: Print #1, riga1
Print #1, riga2
Close #1

invece con append quando riscrivo il file mi aggiunge SOTTO le modifiche.

Cmq ho riprovato e con vbNewLine funziona, mentre con Chr(13) su blocco note mi trova un quadrattino!

grazie a tutti, ciao

[raffaeu]

Beh la mitica costante vbNewLine funziona sempre, anche nelle richTextBox ...