Format sortie ANSI vs UTF8 [Résolu]

Signaler
Messages postés
96
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
17 août 2020
-
Messages postés
2224
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
4 septembre 2020
-
Bonjour à tous :

J'écris 2 fichiers en format CSV à partir d'une base Access. Le code est pratiquement le même mais un fichier est en encodage ANSI et l'autre en UTF-8. Ce dernier format pose des problèmes au destinataire.

Voici une partie du code :

Private Sub mnu_mos_csv_Click()
rec = App.Path & "\JAM_Export.csv"
Set tb = db.OpenRecordset("SELECT * FROM mots ORDER BY mots ASC")
Open rec For Output As #1
tb.MoveFirst
X = 1
Y = 1
Do Until tb.EOF
    work = tb("mots") & ";" & tb("auteur") & ";" & tb("page") & ";" & tb("nombre")
    Print #1, work
    tb.MoveNext
    work = ""
    X = 1
Loop
fin:
Close #1
tb.Close
MsgBox "Fichier JAM Export.txt créé.", vbInformation
End Sub


Private Sub mnu_posts_csv_Click()
Open App.Path & "\JAM_posts.csv" For Output As #3
cpt = 0
Set tb_pages = db.OpenRecordset("SELECT * FROM pages ORDER BY page ASC")
tb_pages.MoveFirst
Do Until tb_pages.EOF
    work = tb_pages("page")
    work = work & ";"
    work = work & tb_pages("mot")
    Print #3, work
    cpt = cpt + 1
    tb_pages.MoveNext
Loop
Close #3
tb_pages.Close
MsgBox "Fichier Jam _posts.csv créé.", vbInformation
End Sub


Le fichier JAM_Export.csv est en format ANSI alors que le fichier JAM_post.csv est en UTF-8.

Pourquoi alors que le code est pratiquement le même ?
Comment forcer l'écriture en encodage ANSI ?

Merci d'avance

Notpa

4 réponses

Messages postés
2224
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
4 septembre 2020
113
Bonjour
Peut-être une solution ici : https://codes-sources.commentcamarche.net/forum/affich-220964-transformer-du-texte-en-utf-8-avec-vb6 ( avec la fonction UTF8_Decode )
A +
Messages postés
96
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
17 août 2020
1
Hello !

J'avais utilisé ce code pour faire une conversion ANSI vers UTF-8 et qui fonctionne, mais je n'avais pas vu l'inverse (DeCode) !

Merci !

Je teste ça dans la journée.
Messages postés
96
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
17 août 2020
1
Parfait !

Mon programme crée bien le fichier en encodage ANSI !

Merci 1000 fois ! Toujours aussi efficace, vb95 !

Bonne semaine
Messages postés
2224
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
4 septembre 2020
113
De rien ! ( bien que je ne fais plus de VB6 depuis plus de 10 ans )
Bonne semaine à toi aussi