groupement fichiers puis donnéesRésolu

Question

Bonjour, 
Je voudrais grouper tout les fichiers csv qui contiennent l'info  tbachatdate.Text dans le nom, les lires, modifier la quantité pour les items identique et afficher dans une listview.
J'ai réussi a faire cela est ce bon pour le debut ?

format des fichier csv
instrument;couleur;quantité;;



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
For Each fichierbon As String In listefichierbon
            'Lecture des fichiers
            Dim triefinal = File.ReadAllLines(fichierbon)
 
        Next

Whismeril · Answer

Bonjour 

Avant de passer du temps sur ce nouveau problème, as tu fait l’effort de lire le cours de Tahé ? 
Si oui, as tu résolu ton problème de Split?
Si oui merci de marquer le sujet résolu.

trucss · Answer

On peut visualiser la new list pour controler avec visual studio ?
J'ai l'impression que j'ai un bug il me regroupe pas et me modiife pas les quantités

Dim listefichierbon As New List(Of String)

For Each fichier As String In IO.Directory.GetFiles(Form2.cheminapprobarre.Text, "*.csv")
            Dim info As New IO.DirectoryInfo(Form2.cheminapprobarre.Text)
'Controle selon critére (textbox)
            If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
'Ajout dans la list listefichierbon
                listefichierbon.Add(fichier)
            End If

Next
'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 des fichiers et ecriture dans une list contenudesfichiers

Dim contenudesfichiers = New List(Of objet)
            For Each item In lecturefichierselectionne
'Décompose le fichier selon carractére (;)
                Dim parts = item.Split(New Char(){";"}, StringSplitOptions.RemoveEmptyEntries)
                contenudesfichiers.Add(New objet With {.Nom = parts(0), .Couleur = parts(1),.quantite = parts(2)})
            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, .Nombre = groupe.Count()})

'Affichage des fruits groupés et comptés

For Each objet In objets_group
                achatlvcontenubarre.Items.Add($"{objet.Nom}, {objet.Couleur}, {objet.Nombre}")
            Next

Whismeril · Answer

Très bien.
Que tu n’aies pas tout acquis et qu’il faille pratiquer pour ça, c’est normal.
Mais au moins tu as vu les notions essentielles et tu peux retourner dans le cours en cas de doute.
Et on va pouvoir dialoguer plus efficacement.

Par contre là, je ne peux pas tester ton code maintenant.
Ce soir peut-être, mais probablement plutôt ce week-end.


Pour optimiser un peu, ici  fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0)   utilise la méthode Contains, il y a aussi une surcharge avec laquelle tu peux indiquer d’ignorer la casse et ça fait une instruction de moins car le résultat est directement un booléen.

Par contre ni Contains, ni IndexOf ne vont fonctionner s’il y a des diacritiques différents

Whismeril · Answer

Bonjour

en fait je ne peux pas essayer ton code.
La première raison est que, malgré le fait qu'on te l'ai dit plusieurs fois, tu n'as pas activé option Strict et Option Explicit. Ne pas activer ces options c'est laisser à Visual Studio le choix de faire ce qu'il veut quand tu n'as pas coder correctement et qu'il "croit" pouvoir  corriger à ta place. Des fois ça marche, mais des fois non.
C'est comme le cours de Tahé, si tu veux que je continue à t'aider, tu actives ces options et tu reviens avec un code corrigé en conséquence.

La deuxième raison c'est cette ligne (entre autre) Dim contenudesfichiers = New List(Of objet) , d'abord nommer une classe objet n'est pas une bonne idée, un objet en vb.net ça a un sens précis. Nomme cette classe en fonction de ce qu'elle représente vraiment (il me semble en fonction de tes questions précédentes que Article serait adapté). Mais surtout tu n'as pas fourni le code de cette classe et ça pourrait être important

trucss · Answer

non pas identique
de la forme : 
Fichier1
guitare;noire;1;;
saxo;vert;2;;

fichier2
guitare;noire;1;;
saxo;bleue;2;;

Whismeril · Answer

ET donc le code corrigé et la classe "objet" ?

trucss · Answer

Bonjour,
Si j'ai bien les options a "on" Je ne comprend pas

trucss · Answer

Jusque la j'ai récupéré les noms des fichiers  et la je dois les lire et les ranger pour après les regrouper c'est bien ça ?
Je regroupe bien dans le fichier mais pas sur l'ensemble des fichiers.

'Récupération des informations du fichiers

            
'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
Dim contenudesfichiers = New List(Of article)
            For Each item In lecturefichierselectionne
                Dim parts = item.Split(New Char(){";"}, StringSplitOptions.RemoveEmptyEntries)
                contenudesfichiers.Add(New article With {.Nom = parts(0), .Couleur = parts(1), .quantite = parts(2)})
            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 nom groupés et comptés

For Each objet In objets_group
                achatlvcontenubarre.Items.Add($"{objet.Nom}, {objet.Couleur}, {objet.quantite}")

trucss · Answer

framework 4.8

Whismeril · Answer

C’est étonnant.
Tu utilises quel visual studio ?
Parce que cette ligne, 
 Dim parts = item.Split(New Char(){";"}, StringSplitOptions.RemoveEmptyEntries) 
ne compile pas en 4.8 avec VS 2019 car tu essayes de créer un tableau de char rempli avec une string donc conversion implicite qui devrait être interdite par l’activation de Option Explicite

trucss · Answer

Je viens de le rectifier je regroupe bien les noms+couleurs identique dans le fichier mais pas sur l'ensemble des fichiers. Est ce que c'est un problème de boucle mal faite j'ai un peu de mal la.
contenudesfichiers.Add(New article With {.Nom = parts(0), .Couleur = parts(1), .quantite = parts(2)})

Dim listefichierbon As New List(Of String)
        For Each fichier As String In IO.Directory.GetFiles(c:	est, "*.csv")
            Dim info As New IO.DirectoryInfo(c:	est,.Text)
            If (fichier.IndexOf(tbachatdate.Text, StringComparison.OrdinalIgnoreCase) > 0) Then
                listefichierbon.Add(fichier)
            End If
        Next

'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
            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

'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
                achatlvcontenubarre.Items.Add($"{objet.Nom}, {objet.Couleur}, {objet.quantite}")
            Next
        Next

Whismeril · Answer

Je ne sais pas, tu n’as toujours pas donné le code de la classe « objet »

trucss · Answer

J'ai tout refait avec pour l'instant 1 fichier

Public Class Form1

Private Sub ok_Click(sender As Object, e As EventArgs) Handles ok.Click
        'on va lire le fichier d'un coup avec la classe File et en faire un tableau dont chaque ligne est une entrée
        Dim lignes As String() = File.ReadAllLines("C:	est	est1.csv")

'on va créer une List de DataTrucss et la remplir     
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

For Each l In lignes
            datas.Add(New DataTrucss(l))
        Next

'regrouper les données par article et par couleur
        Dim regroupement = datas.GroupBy(Function(x) x.ToString)

For Each groupe In regroupement
            listview1.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next
    End Sub
End Class


Class DataTrucss
    Public Sub New(ByVal LigneCsv As String)
        Dim l As String() = LigneCsv.Split(";"c)
        Article = l(0)
        Couleur = l(1)
    End Sub

Public Property Article As String
    Public Property Couleur As String

Public Overrides Function ToString() As String
        Return $"{Article}, {Couleur}"
    End Function
End Class

Class DatasTriees
    Public Sub New(ByVal Combinaison As DataTrucss, ByVal LaQuantite As Integer)
        Donnee = Combinaison
        Quantite = LaQuantite
    End Sub

'1 combinaison Article / Couleur
    Public Property Donnee As DataTrucss

'la quantité de cette combinaison
    Public Property Quantite As Integer

Public Overrides Function ToString() As String
        Return $"{Donnee.Article}, {Donnee.Couleur} x{Quantite}"
    End Function
End Class

Whismeril · Answer

Puisque maintenant tu reviens à ce que je t'avais donné au départ...
Je t'avais donné ça aussi
https://codes-sources.commentcamarche.net/forum/affich-10107359-modifier-la-quantite-si-article-et-couleur-identique?page=2#49

trucss · Answer

Désolé j'ai pas eu le temps de finir mon message je voudrais lire plusieurs fichiers mais surtout trouver une solution pour dire que l'on a déjà charger c'est fichier ou lu, ou genre un calendrier avec des points sur les dates deja charger ou autre idée.

Whismeril · Answer

Et bien tu regardes déjà le message de l'autre fois

trucss · Answer

Bonjour,
Avant de cloturer, comment je peux faire pour afficher nom colonne1 couleur colonne 2 et quantite colonne3 car actuelement j'affiche tout colonne1
 achatlvcontenubarre.Items.Add($"{objet.Nom}, {objet.Couleur}, {objet.quantite}")
Merci

Whismeril · Answer

Bonsoir
Il faut créer un listviewitem, ajouter chaque élément à sa collection Subitems et ensuite l'ajouter à la listview

trucss · Answer

Merci

Dim LVI As ListViewItem = achatlvcontenubarre.Items.Add(objet.Nom)
            LVI.SubItems.Add(objet.Couleur)
            LVI.SubItems.Add(objet.quantite)

trucss · Answer

Je viens de tester et je m'aperçois que ça n'additionne pas la quantité
Je voudrais pour chaque nom et couleur on additionne les quantitées

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, Key objet.quantite}) _
                .Select(Function(groupe) New With {.Nom = groupe.Key.Nom, .Couleur = groupe.Key.Couleur, .quantite = groupe.Key.quantite})

'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

Groupement fichiers puis données

23 réponses

Votre réponse