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

Question

CyberPapy67

CyberPapy67 · Accepted Answer

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

jrivet · Answer

Salut,
Est ce que tu aurais oublier de décrire un peu ton problème.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

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

CyberPapy67 · Answer

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

CyberPapy67 · Answer

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

Sauvegarde d'un texte dans un fichier au format utf-8

5 réponses

Votre réponse

Discussions similaires