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