[Résolu] Ecrire un fichier au format UTF-8

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Ecrire un fichier au format UTF-8

didier1809

${citation_perso}

:hello:

Je cherche à écrire des fichiers au format utf-8, mais avec la méthode

Code :

object.OpenTextFile (filename [, iomode[, create[, format]]])

Le format n'est 'que' Unicode ou ASCII ...

Avez vous une solution ?

Merci d'avance

Message édité par didier1809 le 30-03-2006 à 10:45:40

---------------
.

Publicité

didier1809

${citation_perso}

:sweat:

---------------
.

didier1809

${citation_perso}

Apparement, ca n'a pas l'air bien répendu ce type de question

---------------
.

didier1809

${citation_perso}

:hello:

---------------
.

didier1809

${citation_perso}

Pas de solution ?

(Je ne veux pas ouvrir chaque fichier avec notepad++ pour l'encoder en UTF-8, j'ai plus de 10.000 fichiers à écrire [:psywalk] )

---------------
.

didier1809

${citation_perso}

J'ai trouvé la solution :

1. The old visual basic file commands shouldn't be used. If I remember correctly, Microsoft didn't even provide documentation for those command in VB6. They want you to use FSO or ADODB

2. Unicode is a collection of character sets (e.g. UTF-16, UTF-8). Each encoding will produce a different file (i.e. size and contents)

3. StrConv(strText, vbUnicode) produces UTF-16 (the default Windows Unicode format) not UTF-8

4. Set objTextStream = objFSO.CreateTextFile(strFile, , True) outputs as UTF-16 not UTF-8

There's only one way to do what your asking. Use a stream.

For example ...

Code :

Private Sub CreateFile(ByVal pstrFile As String, ByVal pstrData As String)
Dim objStream As Object
'Create the stream
Set objStream = CreateObject("ADODB.Stream" )
'Initialize the stream
objStream.Open
'Reset the position and indicate the charactor encoding
objStream.Position = 0
objStream.Charset = "UTF-8"
'Write to the steam
objStream.WriteText pstrData
'Save the stream to a file
objStream.SaveToFile pstrFile
End Sub

---------------
.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Ecrire un fichier au format UTF-8

Sujets relatifs
[Résolu] [Batch] [Newbies] Diverses questions au sujet du Batch	[VBA] [Résolu] Liste de choix
[Résolu] Créer un objet à partir du nom de son type	[résolu] Problème bouton / javascript
Problème de ponctuation ds un fichier texte dynamique ds flash	[résolu] !! interprétation IE / Firefox !!
[Résolu] code instable	[résolu] Frames vs css ? mise a jour de mon site...
recuperer chemin fichier	[resolu]Problème d'alignement
Plus de sujets relatifs à : [Résolu] Ecrire un fichier au format UTF-8

Page générée en 0.055 secondes