Lire fichier CSV qui contient une info

Version imprimable

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:

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

08/03/2022, 16h43
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
08/03/2022, 17h38
trucss

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

Merci
08/03/2022, 18h54
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.

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:

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:

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

09/03/2022, 12h24
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:

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

Merci pour le conseil popo pour l'indexof

Je liste tout les fichiers qui on l'info et aprés je dois lire le contenue de chaque fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For Each fichier As String In IO.Directory.GetFiles(Form2.cheminapprobarre.Text, "*.csv")
            Dim info As New IO.DirectoryInfo(Form2.cheminapprobarre.Text)
 
            If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
 
                Dim listefichierbon As New List(Of String)
                listefichierbon.Add(fichier)
            Else
 
            End If
 
        Next

Pour chaque fichier je dois lire et je les ranges dans un tableau final est ce bien ça ?

Code:

1
2
3
4
5
6
 
For Each fichierbon As String In listefichierbon
            'Lecture des fichiers
            Dim triefinal = File.ReadAllLines(fichierbon)
 
        Next

Bonjour,

Je viens de m'apercevoir que je compte pas bien la quantite mais les lignes Comment dois je faire ? Je dois pas y être loin, je sèche
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For Each fichierbon As String In listefichierbon
            'Lecture du fichier
            Dim lecturefichierselectionne = File.ReadAllLines(fichierbon)
 
            'Récupération des informations du fichiers
            'Dim contenudesfichiers = New List(Of article)
            For Each item In lecturefichierselectionne
                Dim parts = item.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)
                contenudesfichiers.Add(New article With {.Nom = parts(0), .Couleur = parts(1), .quantite = parts(2)})
            Next
        Next
 
        'Regroupement et comptage des objets
        Dim objets_group = contenudesfichiers _
                .GroupBy(Function(objet) New With {Key objet.Nom, Key objet.Couleur}) _
                .Select(Function(groupe) New With {.Nom = groupe.Key.Nom, .Couleur = groupe.Key.Couleur, .quantite = groupe.Count()})
 
        'Affichage des noms groupés et comptés
        For Each objet In objets_group      
            Dim LVI As ListViewItem = achatlvcontenubarre.Items.Add(objet.Nom)
            LVI.SubItems.Add(objet.Couleur)
            LVI.SubItems.Add(objet.quantite)
        Next

Ce code ne fera pas ce que tu veux car tu écrases listefichierbon à chaque fois:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
       For Each fichier As String In IO.Directory.GetFiles(Form2.cheminapprobarre.Text, "*.csv")
            Dim info As New IO.DirectoryInfo(Form2.cheminapprobarre.Text)
 
            If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
 
                Dim listefichierbon As New List(Of String)
                listefichierbon.Add(fichier)
            Else
 
            End If
 
        Next

Il faut déclarer listefichierbon avant la boucle.
En plus, il y a plus simple car GetFiles te permet de filtrer.

Code:

1
2
Dim filter as String = "*" + tbachatdate.Text + "*.csv"
Dim listefichierbon As New List(Of String) = IO.Directory.GetFiles(Form2.cheminapprobarre.Text, filter)

Pour ton problème de quantité, cela va compliqué de t'aider sans savoir ce que tu as dans tes fichiers ni ce que tu veux obtenir.

Le code c'est celui ci je me suis trompé sur le code du dessus.
Je vais regarder avec GetFiles pour filtrer.
Mes fichiers sont de la forme ex : Nom ;couleur;quantite;;
ex: fichier1
guitare;bleue;1;;
guitare;rouge;5;;

Fichier2
guitare;jaune;1;;
guitare;rouge;5;;

et dans la listview (achatlvcontenubarre)
guitare bleue 1
guitare rouge 6
guitare jaune 1

Avec ce code ça m'affiche
guitare;jaune;1
guitare;rouge;2 au lieu de 6
guitare;bleue;2

Code:

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
32
33
34
35
36
37
38
39
40
41
42
Dim contenudesfichiers = New List(Of article)
        achatlvcontenu.Items.Clear()
        Dim listefichierbon As New List(Of String)
 
        For Each fichier As String In IO.Directory.GetFiles("C:\test", "*.csv")
            Dim info As New IO.DirectoryInfo("C:\tes")
 
            If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
                listefichierbon.Add(fichier)
 
                Dim a() As String
                a = fichier.Split("\")
                ltlistfichier.Items.Add(a(5))
            End If
        Next
        If ltlistfichier.Items.Count = 0 Then
            MsgBox("Pas de sortie a faire pour cette date ou déja faite")
        End If
        'Lecture de tout les fichiers
        For Each fichierbon As String In listefichierbon
            'Lecture du fichier
            Dim lecturefichierselectionne = File.ReadAllLines(fichierbon)
 
            'Récupération des informations du fichiers          
            For Each item In lecturefichierselectionne
                Dim parts = item.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)
                contenudesfichiers.Add(New article With {.Nom = parts(0), .Couleur = parts(1), .quantite = parts(2)})
            Next
        Next
 
        'Regroupement et comptage des objets
        Dim objets_group = contenudesfichiers _
                .GroupBy(Function(objet) New With {Key objet.Nom, Key objet.Couleur}) _
                .Select(Function(groupe) New With {.Nom = groupe.Key.Nom, .Couleur = groupe.Key.Couleur, .quantite = groupe.Count()})
 
        'Affichage des noms groupés et comptés
        For Each objet In objets_group
            'achatlvcontenu.Items.Add($"{objet.Nom},{objet.Couleur}, {objet.quantite}")
            Dim LVI As ListViewItem = achatlvcontenu.Items.Add(objet.Nom)
            LVI.SubItems.Add(objet.Couleur)
            LVI.SubItems.Add(objet.quantite)
        Next

23/03/2022, 14h47
popo

Citation:

Envoyé par trucss

ex: fichier1
guitare;bleue;1;;
guitare;rouge;5;;

Fichier2
guitare;jaune;1;;
guitare;rouge;5;;

Citation:

Envoyé par trucss

et dans la listview (achatlvcontenubarre)
guitare bleue 1
guitare rouge 6
guitare jaune 1

pourquoi 6 pour guitare rouge ?
J'aurais dit 10 par rapport à ce que j'ai compris et au contenu des fichiers que tu présentes.
23/03/2022, 15h07
trucss

oui désole c'est bien 10

Tu n'est effectivement pas loin.
Il faut utiliser groupe.Sum() à la place de groupe.Count().

Par ailleurs, tu n'est pas obligé de faire une liste des fichiers pour ensuite reparcourir cette liste pour les lire
Tu peux parcourir les fichier et les lire dans la même boucle.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
        Dim articles = New List(Of Article)
        For Each filename In Directory.GetFiles(".\", "music*.txt")
            For Each line In File.ReadAllLines(filename)
                Dim parts = line.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)
                articles.Add(New Article With {.Name = parts(0), .Color = parts(1), .Quantity = parts(2)})
            Next
        Next
 
        Dim grouped = articles _
        .GroupBy(Function(article) New With {Key article.Name, Key article.Color}) _
        .Select(Function(selected) New With {.Name = selected.Key.Name, .Color = selected.Key.Color, .Quantity = selected.Sum(Function(it) it.Quantity)})
 
 
        For Each group In grouped
            Console.WriteLine($"{group.Name}, {group.Color}, {group.Quantity}")
        Next
 
        Console.ReadKey()

Merci popo c'est super.
J'ai une erreur sur For Each line In File.ReadAllLines(filename) sur filename normal car il n'ai pas déclaré, comment je peux faire, ça me le fait souvent.

Code:

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
32
33
34
35
36
Dim listefichierbon As New List(Of String)
 
        Dim articles = New List(Of article)
        For Each filename In Directory.GetFiles(Form4.cheminapprobarre.Text, "*.csv")
 
            Dim info As New IO.DirectoryInfo(Form4.cheminapprobarre.Text)
 
            If (filename.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
                listefichierbon.Add(filename)
 
                Dim a() As String
                a = filename.Split("\")
                ltlistfichier.Items.Add(a(5))
            End If
        Next
        If ltlistfichier.Items.Count = 0 Then
            MsgBox("Pas de sortie a faire pour cette date ou déja faite")
        End If
 
        For Each line In File.ReadAllLines(filename)
            Dim parts = line.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)
            articles.Add(New article With {.Nom = parts(0), .Couleur = parts(1), .quantite = parts(2)})
        Next
 
 
        Dim grouped = articles _
        .GroupBy(Function(article) New With {Key article.Nom, Key article.Couleur}) _
        .Select(Function(selected) New With {.Name = selected.Key.Nom, .Color = selected.Key.Couleur, .Quantity = selected.Sum(Function(it) it.quantite)})
 
 
        For Each group In grouped
            'achatlvcontenubarre.Items.Add($"{group.Name}, {group.Color}, {group.Quantity}")       
            Dim LVI As ListViewItem = achatlvcontenubarre.Items.Add(group.Name)
            LVI.SubItems.Add(group.Color)
            LVI.SubItems.Add(group.Quantity)
        Next

24/03/2022, 14h59
popo

Je te suggère de lire un tutoriel sur la notion de portée des variables en VB.Net...

Dans ton code filename est déclaré DANS la première boucle For Each.
Cela implique que la portée de cette variable est limitée à cette boucle et uniquement cette boucle.

Mais sur le fond, ton problème n'est pas la portée de la variable.
Le vrai problème est tu as placé l'appel à File.ReadAllLines(filename) en dehors de la boucle qui parcourt les fichiers.
24/03/2022, 15h54
trucss

Ah oui super merci ça fonctionne.
Merci pour la doc je vais y regarder de plus prêt.

Petite question est il possible de garder en memoire la valeur d'une textbox par exemple, malgré que l'on éteint et rallume l'application.
24/03/2022, 16h53
popo
En mémoire, non.
Lorsque tu fermes l'application, la mémoire est libérée.

Mais tu peux stocker une informations sur un autre support.
- Fichier déposé dans le répertoire retourné par Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "MyApplication")
- Base de registre sous HKey_CurrentUser\Sofware\MyApplication
- Base de données (un peu too much pour simplement stocker une chaine)
27/04/2022, 21h12
Mario Rousson

Salut Trucs

je sais pas si ça peut t'aidé moi j'utilise souvent my.setting pour conserver certaine valeurs
dans my.project sous l'onglet paramètre

Code:

My.Settings.Txt1