suppression caractère dans une listeboxRésolu

Question

Bonjour,

J'importe dans une listbox tous les fichiers .htm d'un répertoire. Je souhaiterai supprimer l'extension ".htm" des éléments de la listbox.

Merci par avance de votre aide,

manhino · Accepted Answer

bonjour, 

Tu peut  utiliser la fonction split:

titi = split(Chaine,".")
fichier = titi(0) 

---------
Manhino
---------

gillardg · Answer

split fonctionne à condition que tu n'aies pas des fichiers genre "mon.fichier.html.htm"

le mieux c'est  

Dim nomfichier 
As
String = IO.Path.GetFileNameWithoutExtension("
FilepathAsString"
)

Dim Extension 
As
String = IO.Path.GetExtension(
("FilepathAsString"
)

bonjour chez vous!
< body>

dsigmoun · Answer

désolé je suis débutant, je ne comprend pas trop.

Voici ce que j'ai actuellement ; 

' recherche des fichiers .htm
        Dim dirInfo As New System.IO.DirectoryInfo(IO.Directory.GetCurrentDirectory & "\elearning")
        Dim file As System.IO.FileInfo
        Dim files() As System.IO.FileInfo = dirInfo.GetFiles("*.htm")

        If (files IsNot Nothing) Then
            For Each file In files
                ListBox1.Items.Add(file.Name)
                ListBox2.Items.Add(file.Name)
            Next
        End If

Qu'est ce que je dois modifier pour que dans ma listbox2, les extensions n'apparaissent plus ?

Merci,

gillardg · Answer

'recherche des fichiers .htm








Dim

 dirInfo 


As





New

 System.IO.DirectoryInfo(IO.Directory.GetCurrentDirectory & 


"\elearning"

)



Dim

 file 


As

 System.IO.FileInfo



Dim

 files() 


As

 System.IO.FileInfo = dirInfo.GetFiles(


"*.htm"

)



If

 (files 


IsNot





Nothing

) 


Then








For





Each

 file 


In

 filesListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(file.Name))

ListBox2.Items.Add(IO.Path.GetFileNameWithoutExtension(file.Name))



Next








End





If















bonjour chez vous!
< body>

dsigmoun · Answer

J'ai trouvé comment faire.

 Dim i As Integer
        Dim separateur As Char = "."
        For i = 0 To ListBox1.Items.Count - 1
            Dim s As String = ListBox1.Items(i)
            Dim nom() As String

            nom = s.Split(separateur)
            ListBox2.Items(i) = nom(0)

        Next

dsigmoun · Answer

nos réponses se sont croisées [auteur/GILLARDG/1360034.aspx gillardg]. Merci, les 2 solutions fonctionnent.

gillardg · Answer

fais attention avec split  !

bonjour chez vous!
< body>

Suppression caractère dans une listebox

7 réponses

Votre réponse