Caractere spéciaux dans listbox [Résolu]
collargol123
- Messages postés
- 86
- Date d'inscription
- jeudi 24 octobre 2013
- Dernière intervention
- 2 avril 2014
- Messages postés
- 86
- Date d'inscription
- jeudi 24 octobre 2013
- Dernière intervention
- 2 avril 2014
A voir également:
- Caractere spéciaux dans listbox
- ListBox et caractére speciaux ✓ - Forum - Visual Basic
- Remplace les caractères spéciaux de pages web par leur entity - Codes sources - Visual Basic / VB.NET (Divers)
- Comparer une chaine a une autre avec des caracteres speciaux (style "coucou" = "cou*u" ?) - Codes sources - Visual Basic / VB.NET (Texte)
- Javascript : Affichage des caractères spéciaux dans un alert - CodeS SourceS - Guide
- Delphi / Pascal : Tdbgrid et caractères spéciaux - CodeS SourceS - Guide
7 réponses
/a360165c292b44bb88b98ddf4e61f830/auth-avatar/5c21291b7f747)
- Messages postés
- 12933
- Date d'inscription
- mardi 11 mars 2003
- Statut
Correction de la coloration syntaxique. Pour plus de lisiblité pense à spécifier le langage avec la liste déroulante (flèche vers le bas) à côté de <>. Détails ici.
- Messages postés
- 86
- Date d'inscription
- jeudi 24 octobre 2013
- Dernière intervention
- 2 avril 2014
- Messages postés
- 86
- Date d'inscription
- jeudi 24 octobre 2013
- Dernière intervention
- 2 avril 2014
Au lancement de l'exe, chargement des noms des fichiers text (nom.txt) dans la listbox grace à une procédure :
Ensuite je renomme le fichier text : je l'ouvre, je recupere des lignes, qui je m'en serrs pour renomme rle fichier :
Je renomme ensuite le fichier
Puis je relance la procédure MiseAjour
private sub MiseAjour
Listbox1.Items.Clear()
Dim sFiles() As String
Dim nbfiles As Integer
Dim i As Integer
sFiles = Directory.GetFiles(Chemin)
nbfiles = Directory.GetFiles(Chemin).Length()
For i = 0 To nbfiles - 1
Dim pathfile As String = sFiles(i)
Dim NomFichier As String = pathfile.Remove(0, InStrRev(pathfile, "\", -1))
Dim x As Integer = NomFichier.Length - 4
Dim fichier As String = NomFichier.Remove(x, 4)
Listbox1.Items.Add(fichier)
Next
Ensuite je renomme le fichier text : je l'ouvre, je recupere des lignes, qui je m'en serrs pour renomme rle fichier :
Dim Chaine As String
Dim Ar(15) As String
Dim ligne As String
Dim i As Integer
Dim selection As String
selection = Listbox1.SelectedItem
Dim sr As New StreamReader(Chemin & "\" & selection & ".txt")
'Do Until sr.Peek = -1
i = 1
Do Until i = 15
ligne = sr.ReadLine()
Ar(i) = ligne
i = i + 1
Loop
sr.Close()
bo = UCase(Ar(2))
bi = StrConv(Ar(3), vbProperCase)
bu = Ar(7)
Je renomme ensuite le fichier
My.Computer.FileSystem.RenameFile(Chemin & "\" & Listbox1.SelectedItem & ".txt",
bo & " " & bi & " " & bu & ".txt")
Puis je relance la procédure MiseAjour
- Messages postés
- 86
- Date d'inscription
- jeudi 24 octobre 2013
- Dernière intervention
- 2 avril 2014
bonsoir,
j'ai trouvé la solution de cette manière.
Le problème vient de la lecture du fichier texte, qui reconnait pas certains caracteres. J'ai rajouté " System.Text.Encoding.Default" et le tour est joué !
j'ai trouvé la solution de cette manière.
Le problème vient de la lecture du fichier texte, qui reconnait pas certains caracteres. J'ai rajouté " System.Text.Encoding.Default" et le tour est joué !
Dim sr As New StreamReader(CheminHprim & "\" & selection & ".txt", System.Text.Encoding.Default)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.