1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Ouvrir des fichiers lst dans combobox et enregistrer en txt [Résolu]

Signaler
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
 -
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
 -
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 !

5 réponses

Réponse 1 / 5
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
Fais suite à la question ci-dessous

http://codes-sources.commentcamarche.net/forum/affich-10014395-pas-d-accent-dans-une-combobox#p10014479
Réponse 2 / 5
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
 50
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
Réponse 3 / 5
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
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 ?
Réponse 4 / 5
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
 50
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
Réponse 5 / 5
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
fonctionne sous vbexpress 2010

oLst.Items.AddRange(System.IO.File.ReadAllLines(sPath, System.Text.Encoding.Default))
Répondre Posez votre question