Discussion :

[trucss]

Bonjour,

J'ai un dossier dans lequel j'ai des fichiers .csv au format ( test test1 07032022 100037.csv 08032022 085230.csv )
Je voudrais lire tout les fichiers qui contienne l'info rouge = textbox1 est les ajouter a une listview1.


Dans mon code ci dessous je liste tout les fichiers et non ceux qui contienne l'info (fichier.Split("\")(5))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each fichier As String In IO.Directory.GetFiles("c:\test, "*.csv")
            Dim info As New IO.DirectoryInfo("c:\test")
 
            listview1.Items.Add(New ListViewItem({fichier, File.GetCreationTime(fichier)}))
 
        Next

[popo]

Tu n'as pas le choix.
Pour déterminer si un fichier contient l'information recherchée, il faut le lire.

Tu devras donc lire chaque fichier.
Pour chaque fichier lire les lignes.
Pour chaque ligne faire un split et comparer la valeur de la 4ème valeur.
Et si cette valeur contient l'info que tu cherches alors ajouter au listview

[trucss]

Merci j'ai réussie
Est il possible de regrouper les lignes identiques en modifiant la quantité ?

Merci

[popo]

Regrouper les lignes identiques c'est exactement ce que je t'ai montré dans cette discussion avec les fruits.

https://www.developpez.net/forums/d2...tems-listview/

Il suffit d'adapter.

[trucss]

Merci j'ai reussi pour grouper les mêmes lignes d'un fichier mais comment faire pour regrouper les mêmes lignes de plusieurs fichiers ( prendre en compte que les fichiers qui contiennent la valeur textbox1 dans le nom )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Class Barre
        Public Property Nom As String
        Public Property Couleur As String
        Public Property quantite As String
    End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim recup As String
 
        For Each fichier As String In IO.Directory.GetFiles("C:\test", "*.csv")
            Dim info As New IO.DirectoryInfo("C:\test")
 
            recup = fichier.Split(" ")(8)
 
            If recup = tbachatdate.Text Then
 
                'Lecture du fichier
                Dim fruits_fichier = File.ReadAllLines(fichier)
 
                'Récupération des informations du fichiers
                Dim fruits_list_origin = New List(Of fruit)
                For Each item In fruits_fichier
                    Dim parts = item.Split(New Char() {";"}, StringSplitOptions.RemoveEmptyEntries)
 
                    fruits_list_origin.Add(New fruit With {.Nom = parts(0), .Couleur = parts(1)})
                Next
 
                'Regroupement et comptage des fruits
                Dim fruits_group = fruits_list_origin _
                    .GroupBy(Function(fruit) New With {Key fruit.Nom, Key fruit.Couleur}) _
                    .Select(Function(groupe) New With {.Nom = groupe.Key.Nom, .Couleur = groupe.Key.Couleur, .Nombre = groupe.Count()})
 
                'Affichage des fruits groupés et comptés
                'A remplacer par l'insertion de ListViewItem
                For Each fruit In fruits_group
                    'MessageBox.Show($"{fruit.Nom}, {fruit.Couleur}, {fruit.Nombre}")
                    achatlvcontenubarre.Items.Add($"{fruit.Nom}, {fruit.Couleur}, {fruit.Nombre}")
                Next

[popo]

Le nom d'un fichier est une simple chaine.
Nul besoin de le splitter pour savoir si une chaine est présente dans une autre, il suffit d'utiliser IndexOf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
End If

Et si tu dois avoir les infos de tous les fichiers avant de regrouper, il suffit de créer la liste avant de boucler sur les fichiers