Sauvegarde d'un texte dans un fichier au format utf-8 [Résolu]

Signaler
Messages postés
11
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2008
-
Messages postés
11
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2008
-
CyberPapy67

5 réponses

Messages postés
11
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2008

Je voudrais sauvegarder le contenu du corps de message, il est au format xml, dans un fichier en utf-8

CyberPapy67
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,
Est ce que tu aurais oublier de décrire un peu ton problème.

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Re,
Oups, désolé j'ai écrit pendant que tu repostais...

Mais mon post est toujours valable

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
11
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2008

Mon problème est le suivant, mon site marchand m'envoie le détail des commandes dans un mail, mais au lieu de me mettre les donneés au format xml comme fichier joint, il me met les données directement dans le corps du message.
J'ai écrit un module qui me sauvegarde les données dans un fichier.
Le problème c'est que le fichier n'est pas exploitable directement comme un fichier xml, je suis obligé de l'ouvrir manuellement avec notepad et de le sauvegarder avec l'option utf-8
Après cela le fichier est exploitable comme un fichier xml

CyberPapy67
Messages postés
11
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2008

J'ai trouvé :

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

et ca marche

CyberPapy67