Ouvrir des fichiers lst dans combobox et enregistrer en txtRésolu

Question

Bonjour, 

Si j'ai 100 dossiers dans lesquels j'ai des fichiers .lst et que je desire pourvoir les charger dans les combobox et les visualiser avec les accents, comment feriez-vous ?

Car je ne souhaite pas ouvrir les 100 dossiers pour enregistrer chaque fichier .lst en UTF8 !

collargol123 · Answer

Fais suite à la question ci-dessous

http://codes-sources.commentcamarche.net/forum/affich-10014395-pas-d-accent-dans-une-combobox#p10014479

cs_ShayW · Answer

Bonjour 
je recopie de l'autre post 

pas clair 

Tu as dit que tu as ouvert ton fichier.lst avec le blocknote 
Et effectivement je n'arrive pas à lire les accents. 

ensuite tu as du corrigé le text en remettant les accents et 
sauvegardé avec format utf8 

le format utf8 ne corrige pas ton texte mais permet de sauvegarder le texte en conservant les accents

maintenant tu as 100 fichiers à corriger 
tu seras obligé de les corriger car aucun code ne pourra remettre 
les accents

collargol123 · Answer

Et avec ce code ci-dessous :

Public Sub SaveComboBox(ByRef oLst As System.Windows.Forms.ComboBox, ByVal sPath As String)


        Dim sw As New System.IO.StreamWriter(sPath)
        For Each o As Object In oLst.Items
            sw.WriteLine(o.ToString)
        Next
        sw.Close()
    End Sub

peut-on enregistrer sous forme d'un fichier.lst ?

cs_ShayW · Answer

non 
le problème est que tous tes fichiers ont été sauvegardés avec 
un format autre que utf8 
donc les accents sont remplacé par d' autres caractères
meme si tu charges un fichier avec
Dim reader As New System.IO.StreamReader(spath, System.Text.Encoding.UTF8)
cela n'aidera pas 
à moins qu'il y ait une solution magique

collargol123 · Answer

fonctionne sous vbexpress 2010

oLst.Items.AddRange(System.IO.File.ReadAllLines(sPath, System.Text.Encoding.Default))

Ouvrir des fichiers lst dans combobox et enregistrer en txt

5 réponses

Votre réponse