Modifier la quantité si article et couleur identiqueRésolu

Question

Bonjour,
J'ai un fichier .TXT j'arrive a le lire je  l'écris dans une listview (tableau)composée de 3 colonnes article, couleur, quantité.
Si on a le même article et couleur alors on fait +1 à la quantité sinon on le rajoute au tableau.
Avec ce code quand je veux modifier la quantité si article et couleur identique ça me le rajoute sur la ligne du dessous qui est vide ( pas d'article ni couleur)

Dim monStreamReader As New StreamReader("T:	est.TXT") 'Stream pour la lecture
 Dim article,, couleur, ligne As String
 Do
      ligne = monStreamReader.ReadLine
      If ligne <> "" Then
             article= ligne.Split(";")(3)
             couleur = ligne.Split(";")(4)
             If tableau.Items.Count = 0 Then
                      Dim str As String() = New String(2) {}
                      str(0) = article
                      str(1) = couleur
                      str(2) = +1
                      Dim lvi As New ListViewItem(str)
                      tableau.Items.Add(lvi)
             Else
                      With tableau
                               Dim itm As ListViewItem
                               itm = .FindItemWithText(ref, True, 0, True)
                               Dim itm1 As ListViewItem
                               itm1 = .FindItemWithText(couleur, True, 0, True)
                               If Not itm Is Nothing And Not itm1 Is Nothing Then
                                      MsgBox("est deja dans la liste")>
                                      Dim str As String() = New String(2) {}
                                      str(2) = +1
                                      Dim lvi As New ListViewItem(str)
                                     tableau.Items.Add(lvi)
                                Else
                                     Dim str As String() = New String(2) {}
                                     str(0) = article
                                     str(1) = couleur
                                     str(2) = +1
                                     Dim lvi As New ListViewItem(str)
                                     tableau.Items.Add(lvi)
                                End If
                      End With
             End If
      End If
Loop Until ligne Is Nothing
monStreamReader.Close()

Whismeril · Answer

Bonjour 

Pour poster un code merci d’utiliser les balises de codes, voir ce petit tuto https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
On pourra commencer à t’aider quand tu auras reposté ton code.

trucss · Answer

Dim monStreamReader As New StreamReader("T:	est.TXT") 'Stream pour la lecture
Dim article, couleur, ligne As String
Do
    ligne = monStreamReader.ReadLine
    If ligne <> "" Then
        article= ligne.Split(";")(3)
        couleur = ligne.Split(";")(4)
        If tableau.Items.Count = 0 Then
            Dim str As String() = New String(2) {}
            str(0) = article
            str(1) = couleur
            str(2) = +1
            Dim lvi As New ListViewItem(str)
            tableau.Items.Add(lvi)
        Else
            With tableau
                Dim itm As ListViewItem
                itm = .FindItemWithText(ref, True, 0, True)
                Dim itm1 As ListViewItem
                itm1 = .FindItemWithText(couleur, True, 0, True)
                If Not itm Is Nothing And Not itm1 Is Nothing Then
                    MsgBox("est deja dans la liste")>
                    Dim str As String() = New String(2) {}
                    str(2) = +1
                    Dim lvi As New ListViewItem(str)
                    tableau.Items.Add(lvi)
                Else
                   Dim str As String() = New String(2) {}
                   str(0) = article
                   str(1) = couleur
                   str(2) = +1
                   Dim lvi As New ListViewItem(str)
                   tableau.Items.Add(lvi)
                End If
            End With
        End If
    End If
Loop Until ligne Is Nothing
monStreamReader.Close()

Whismeril · Answer

Merci, mais tu as copié / collé le code posté au dessus et pas celui de ton IDE, donc y'a plus d'indentation, mais c'est déjà beaucoup plus lisible.

Bon avant tout, je ne peux que te conseiller vivement 2 choses

dans les références supprimer celle qui s'appelle "Visual Basic", là dans ton code y'a du VB6 et du VB.Net, sans cette référence, le VB6 ne sera plus accepté et donc tu pourras vraiment progresser en .Net.
prendre quelques jours pour lire ce cours en ligne, https://tahe.developpez.com/dotnet/vbnet/ afin d'apprendre les bases de Vb.Net et notamment l'objet qui est l'essence de .Net contrairement à VB6

Je vais te préparer un exemple de code utilisant l'objet et qui je crois répondra à ton besoin

Whismeril · Answer

Tout d'abord, j'ai écrit ce fichier texte en fonction de ce que j'ai vu dans ton code Colonne 0;Colonne 1;Colonne 2;Article;Couleur blabla;blublu;bleble;Article1;Rouge blabla;blublu;bleble;Article2;Rouge blabla;blublu;bleble;Article3;Rouge blabla;blublu;bleble;Article1;Bleu blabla;blublu;bleble;Article2;Bleu blabla;blublu;bleble;Article3;Bleu blabla;blublu;bleble;Article1;Vert blabla;blublu;bleble;Article2;Vert blabla;blublu;bleble;Article3;Vert blabla;blublu;bleble;Article1;Rouge blabla;blublu;bleble;Article2;Bleu blabla;blublu;bleble;Article3;Vert Ensuite j'ai écrit 2 classes '''

''' Classe représentant tes données '''

Class DataTrucss '''

''' Un constructeur qui prend une ligne issue du CSV comme paramètre d'entrée '''

''' Public Sub New(ByVal LigneCsv As String) Dim l As String() = LigneCsv.Split(";"c) Article = l(3) Couleur = l(4) End Sub 'les propriétés sont les données utiles de chaque ligne Public Property Article As String Public Property Couleur As String '''

''' Surcharge de ToString pour afficher un résumé parlant de l'instance, et qui va servir au tri '''

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

''' Classe qui représente ce que tu veux voir afficher '''

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

''' Surcharge de ToString pour afficher un résumé parlant de l'instance '''

''' Public Overrides Function ToString As String Return $"{Donnee.Article}, {Donnee.Couleur} x{Quantite}" End Function End Class Et le code qui va lire le fichier pour en faire une collection de DatasTriees '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("trucss.csv") 'on va créer une List de DataTrucss et la remplir 'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip Dim datas As List(Of DataTrucss) = New List(Of DataTrucss) For Each l In lignes.Skip(1) datas.Add(New DataTrucss(l)) Next 'on va utiliser une requette Linq qui permet de regrouper les données par article et par couleur Dim regroupement = datas.GroupBy(Fonction(x) x.ToString) 'on va enfin créer la liste résultat (même si en fait le regroupement pourrait suffire), en prenant le premier item de chaque groupe et le nombre d'items Dim donneeTriees As List(Of DatasTriees) = New List(Of DatasTriees) For Each groupe In regroupement donneeTriees.Add(New DatasTriees(groupe.First(), groupe.Count)) Next Tu peux ensuite alimenter ta listview avec la collection de DatasTriees Note que Linq est tellement puissant qu'on aurait pu lire le fichier, lister les données "brutes" et les trier dans une seule requête. Mais elle aurait probablement difficile à comprendre à ce stade de ta formation. ATTENTION suite à un bug en cours sur le site, j'ai du modifier un peu le code source et par conséquent, tu vas avoir quelques erreurs identifiées. partout où il y a ToString il te faudra ajouter () dans le mot clé Fonction, il te faudra remplacer le o par un u

Whismeril · Answer

Merci pour ta réponse qui est assez compliqué pour moi c'est pour cela que je t'ai conseiller de commencer par le cours de Tahé. Ce sera plus clair après.

Pour le code des 2 classes c’est à écrire dans module 1 ? non dans des fichiers de classe. En ajoutant un élément au projet tu peux choisir ce type de fichier. Tu verras plus tard que les Form et les controles sont des class particulières.

C,est pas gênant si dans le fichier .txt j,ai pas la première ligne mentionné colonne 0…., non il suffit d'enlever la requête Linq Skip(1) 

C’est juste pour l’exemple je suppose ? oui et au cas où je n'avais pas bien interprété la structure que tu puisses t'y retrouver.

Désolé mais je vois pas comment alimenter ma listview de 3 colonnes je compléterai l'exemple demain.

 car j ai jamais utiliser les datastriees. et personne d'autre d'ailleurs, j'ai écrit cette class exprès pour ton besoin. C'est ça tout le sens de l'objet.
Dans la vraie vie, si tu veux faire chauffer de l'eau, tu te sers d'un (ou plusieurs) objet fabriqué pour

une bouilloire
une casserole
un micro onde
etc..
En programmation, il faut virtualiser un outil qui répond à un besoin.

Whismeril · Answer

Bonjour
 
       'peuplement de la listview à partir de la collection de données triées
        For Each d In donneeTriees
            ListView1.Items.Add(New ListViewItem({d.Donnee.Article, d.Donnee.Couleur, d.Quantite.ToString()}))
        Next



Mais dans les commentaires, je t'ai dit que dans l'absolue, le passage par cette classe n'est pas nécessaire.
Je te montre donc le code directement à partir du regroupement

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            ListView1.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next

Et dans ce cas, la class DatasTriees ne sert plus à rien.
En fait je l'ai écrite pour détailler le cheminement.

D'une façon ou de l'autre le résultat est

trucss · Answer

Merci pour ton travail whismeri. Je commence un peu a comprendre la logique sur certain element.
Si je detaille j'ai placer se code dans mon action d'un bouton par exemple a l'ouverture du fichier il va cree un tableau virtuel avec les donnees du fichiers.
ignes.Skip(1) = C'est pour ne pas tenir compte de la premiere ligne
ensuite on va regrouper les donnees articles et couleur
Puis on remplie la listview(list)
C'est ça le principe ?


Imports System.IO

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("T:\test.TXT")

'on va créer une List de DataTrucss et la remplir
        'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

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

'on va utiliser une requette Linq qui permet de regrouper les données par article et par couleur
        Dim regroupement = datas.GroupBy(Fonction(x) x.ToString)

'on va enfin créer la liste résultat (même si en fait le regroupement pourrait suffire), en prenant le premier item de chaque groupe et le nombre d'items
        Dim donneeTriees As List(Of DatasTriees) = New List(Of DatasTriees)

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            list.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next

For Each d In donneeTriees
            list.Items.Add(New ListViewItem({d.Donnee.Article, d.Donnee.Couleur, d.Quantite.ToString()}))
        Next
    End Sub
End Class

trucss · Answer

Merci pour ton travail whismeri. Je commence un peu a comprendre la logique sur certain élément.
Si je détaille j'ai placé ce code dans mon action d'un bouton par exemple a l'ouverture du fichier il va crée un tableau virtuel avec les données du fichiers.
ignes.Skip(1) = C'est pour ne pas tenir compte de la première ligne donc je le supprime.
J'ai pas besoin de crée des class si oui pourquoi ?
ensuite on va regrouper les données articles et couleur
Puis on remplie la listview(list)
C'est ça le principe ?


Imports System.IO

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("T:\test.TXT")

'on va créer une List de DataTrucss et la remplir
        'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

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

'on va utiliser une requette Linq qui permet de regrouper les données par article et par couleur
        Dim regroupement = datas.GroupBy(Fonction(x) x.ToString)

'on va enfin créer la liste résultat (même si en fait le regroupement pourrait suffire), en prenant le premier item de chaque groupe et le nombre d'items
        Dim donneeTriees As List(Of DatasTriees) = New List(Of DatasTriees)

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            list.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next

For Each d In donneeTriees
            list.Items.Add(New ListViewItem({d.Donnee.Article, d.Donnee.Couleur, d.Quantite.ToString()}))
        Next
    End Sub
End Class




J'ai un problème dans ça   Dim regroupement = datas.GroupBy(Fonction(x) x.ToString)

Whismeril · Answer

Alors oui mais
C'est

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            list.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next


OU (un ou exclusif)

For Each d In donneeTriees
            list.Items.Add(New ListViewItem({d.Donnee.Article, d.Donnee.Couleur, d.Quantite.ToString()}))
        Next


Ça ne doit pas planter chez toi car la liste donneeTriees est vide, mais ces 3 lignes ne servent à rien à partir du moment où tu peuples directement avec le regroupement. Et d'ailleurs, ces 2 là non plus

'on va enfin créer la liste résultat (même si en fait le regroupement pourrait suffire), en prenant le premier item de chaque groupe et le nombre d'items
        Dim donneeTriees As List(Of DatasTriees) = New List(Of DatasTriees)

trucss · Answer

Mais je ne comprend pas comment on l'ajoute a la listview alors


Imports System.IO

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("T:	est1.txt")

'on va créer une List de DataTrucss et la remplir
        'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

Whismeril · Answer

Finalement j’ai voulu détailler pour que ce soit plus clair et ça t’embrouille, raté…

'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("T:\test.TXT")

'on va créer une List de DataTrucss et la remplir
        'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

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

'on va utiliser une requette Linq qui permet de regrouper les données par article et par couleur
        Dim regroupement = datas.GroupBy(Fonction(x) x.ToString)

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            list.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString()}))
        Next

Pas besoin de plus

trucss · Answer

Super ça fonctionne merci
Je suis partie sur un fichier simple mais en fait il faut récupérer les articles qui on le mot verif en (2) sinon le reste on prend pas et dans une textbox1 renseigne un prix en (6 dans le fichier) recupére < au prix (textbox)
Merci pour tout

Whismeril · Answer

Avec ce nouveau fichier Colonne 0;Colonne 1;Verif;Article;Couleur;Colonne 5;Prix blabla;blublu;Non;Article1;Rouge;blevle;12 blabla;blublu;Oui;Article2;Rouge;blevle;11 blabla;blublu;Non;Article3;Rouge;blevle;10 blabla;blublu;Oui;Article1;Bleu;blevle;9 blabla;blublu;Non;Article2;Bleu;blevle;8 blabla;blublu;Oui;Article3;Bleu;blevle;12 blabla;blublu;Non;Article1;Vert;blevle;11 blabla;blublu;Oui;Article2;Vert;blevle;10 blabla;blublu;Non;Article3;Vert;blevle;9 blabla;blublu;Oui;Article1;Rouge;blevle;8 blabla;blublu;Non;Article2;Bleu;blevle;12 blabla;blublu;Oui;Article3;Vert;blevle;11 blabla;blublu;Non;Article1;Rouge;blevle;10 blabla;blublu;Oui;Article2;Rouge;blevle;9 blabla;blublu;Non;Article3;Rouge;blevle;8 blabla;blublu;Oui;Article1;Bleu;blevle;12 blabla;blublu;Non;Article2;Bleu;blevle;11 blabla;blublu;Oui;Article3;Bleu;blevle;10 blabla;blublu;Non;Article1;Vert;blevle;9 blabla;blublu;Oui;Article2;Vert;blevle;8 blabla;blublu;Non;Article3;Vert;blevle;12 blabla;blublu;Oui;Article1;Rouge;blevle;11 blabla;blublu;Non;Article2;Bleu;blevle;10 blabla;blublu;Oui;Article3;Vert;blevle;9 La classe DataTrucss est modifiée comme suit '''

''' Classe représentant tes données '''

Class DataTrucss '''

''' Un constructeur qui prend une ligne issue du CSV comme paramètre d'entrée '''

''' Public Sub New(ByVal LigneCsv As String) Dim l As String() = LigneCsv.Split(";"c) Article = l(3) Couleur = l(4) Prix = Convert.ToDouble(l(6)) Verif = l(2) End Sub 'les propriétés sont les données utiles de chaque ligne Public Property Article As String Public Property Couleur As String Public Property Prix As Double Public Property Verif As String '''

''' Surcharge de ToString pour afficher un résumé parlant de l'instance, et qui va servir au tri '''

''' Public Overrides Function ToString As String Return String.Format("{0}, {1}", Article, Couleur) End Function End Class L'autre classe n'existe plus

Whismeril · Answer

La lecture et l'affichage des données

'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("trucss.csv")

'on va créer une List de DataTrucss et la remplir
        'j 'ai mis une ligne d'entête, pour l'exclure j'utilise skip
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

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

'on va utiliser une requette Linq qui permet de regrouper les données par article et par couleur
        'si est seulement si verfi vaut "Oui" et le prix est inférieur à 10.5
        Dim regroupement = datas.Where(Function(x) x.Verif = "Oui" And x.Prix < 10.5).GroupBy(Function(x) x.ToString())

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            ListView1.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString(), groupe.First().Prix.ToString(), groupe.First().Verif}))
        Next

trucss · Answer

Bonsoir 
Est ce gênant si j'ai un fichier .txt de ce type.
C'est pour ça que je prendre en compte que les lignes qui on le parametre (2) = Non et aprés tout les articles inferieur a un prix.

Merci pour ton aide en modifiant des éléments au fur et a mesure je commence a comprendre le principe.

Si je veux pas le skip car j'ai pas de ligne au début du fichier je dois supprimer ça et j'ai plus d'ajout pour ma listview
For Each l In lignes.Skip(1)
            datas.Add(New DataTrucss(l))
        Next



blabla;blublu;Non;Article1
blabla;blublu;Non
blabla;hfghf;Non
blabla;blublu;Oui;Article1;Bleu;blevle;9
blabla;blublu;Non;Article2;Bleu;blevle;8
blabla;blublu;Oui;Article3;Bleu;blevle;12
blabla;blublu;Non;Article1;Vert;blevle;11
blabla;blublu;Oui;Article2;Vert;blevle;10
blabla;blublu;Non;Article3;Vert;blevle;9
blabla;blublu;Oui;Article1;Rouge;blevle;8
blabla;blublu;Non;Article2;Bleu;blevle;12
blabla;blublu;Oui;Article3;Vert;blevle;11
blabla;blublu;Non;Article1;Rouge;blevle;10
blabla;blublu;Oui;Article2;Rouge;blevle;9
blabla;blublu;Non;Article3;Rouge;blevle;8
blabla;blublu;Oui;Article1;Bleu;blevle;12
blabla;blublu;Non;Article2;Bleu;blevle;11
blabla;blublu;Oui;Article3;Bleu;blevle;10
blabla;blublu;Non;Article1;Vert;blevle;9
blabla;blublu;Oui;Article2;Vert;blevle;8
blabla;blublu;Non;Article3;Vert;blevle;12
blabla;blublu;Oui;Article1;Rouge;blevle;11
blabla;blublu;Non;Article2;Bleu;blevle;10
blabla;blublu;Oui;Article3;Vert;blevle;9



Je comprend pas trop ça :
on prend en compte la chaine avant le ;c  ? et on l'index avec l

Dim l As String() = LigneCsv.Split(";"c)

trucss · Answer

oups erreur parametre (2) = Oui

dysorthographie · Answer

bonjour,
tu peux retailler ton Array comme suis pour avoir toujours la même taille de tableau!

Dim LigneCsv As String = "blabla;blublu;Oui;Article3;Vert;blevle;9"
 Dim l(6) As String : Array.Copy($"{LigneCsv}{New String(";"c, 6)}".Split(";"c), l, 7)

trucss · Answer

désolé mais je dois coller c'est lignes dans la classe 1 au tout début ?

Whismeril · Answer

Bonjour

la méthode split découpe une string (chaine de caractère) en fonction d'un caractère de délimitation et retourne un tableau.
Ça ";" c'est la string ; et ceci ";"c est le caractère ;

Dim l As String()  initialise un tableau de string appelé l (comme ligne)

Et donc Dim l As String() = LigneCsv.Split(";"c) découpe une ligne du csv en fonction du caractère ; et stocke le résultat dans le tableau l

Ensuite, je t'ai d'it que skip(1) sert à ignorer la première ligne. Skip ça veut dire passer, sauter. Donc Skip(1), ça veut dire, sauter 1 enregistrement.

Pour ne pas ignorer la première ligne, il suffit de supprimer .Skip(1) et rien d'autre.


Pour utiliser le fichier que tu as posté au dessus, il y a plusieurs façon de faire.
Pour moi la plus simple (mais elle est conditionnée au faut qu'il y aura au moins la colonne 3) est de modifier le constructeur de la class DataTrucss comme ça

Dim l As String() = LigneCsv.Split(";"c)

Verif = l(2)

If l.Length > 3 Then Article = l(3)

If l.Length > 4 Then Couleur = l(4)

If l.Length > 6 Then Prix = Convert.ToDouble(l(6))

trucss · Answer

Merci 
Ah ok tu contrôles le nombre de caractère pas bête merci pour un debutant comme moi parfait merci

Whismeril · Answer

Si je comprend bien on regarde le nombre de carractere par exemple pour non l est un tableau.
l.Length retourne le nombre d'item (de cellules si tu veux un comparaison approximatives avec Excel) de ce tableau

blabla;blublu;Non;Article1
blabla;blublu;Non
La première ligne va générer un tableau de 4 item, alors pour la seconde ligne se sera 3 items seulement.
 

J'ai une erreur alors que dans le fichier j'ai supprier le . j'ai arrondie le prix
System.FormatException : 'Input string was not in a correct format.'

As tu lu l'article sur la conversion des string en nombres?

trucss · Answer

Maintenant pour ouvrir un fichier actuellement je renseigne le chemin en dur.
j'ai un fichier de crée par jour ex 20220215.TXT (annee,mois,jour) et je voudrais pouvoir par exemple saisir du 1/02/2022 au 19/02/2022
et m'afficher le résultat donc lire dans plusieurs fichier si il sont présent.
Comment devrais je faire simplement.

Je dois crée 2 textboxs et renseigner directement au format 20220201       20220219

Whismeril · Answer

Tu peux peut-être aller voir le chapitre 4.7 du cours de Tahé.

trucss · Answer

Dernier point 
J'ai un fichier par jour sous la forme 20220215.txt
et je voudrais si il y a le fichier compter sur plusieurs jour 
textbox 1 date du au textbox2
et compte les artciles suivant la date merci

trucss · Answer

oups desolé du doublons sur le forum on change de page mdr pour le string en nombre je pensais que c'était le virgule qui pose probléme et dans mon fichier c'est toujours un point donc c'est ok je vais regarder

trucss · Answer

je dois remplacer le point par une virgule
var = (l6)
longueur  = (var, ",", ".")
ail ail ail

trucss · Answer

Pour les dates je pense utiliser DateTimePicker entre 2 date et venir récupérer les fichiers si present

Whismeril · Answer

Oui un datetimepicker est une solution adapté à la gestion de dates.
Mais pas directement à la gestion de fichiers.

C'est pourquoi avant de passer du temps à faire un exemple qui au final ne serait peut-être pas le mieux, j'aimerais ton avis sur le chapitre 4.7.

trucss · Answer

J'ai pas trouvé

trucss · Answer

Sur les composants non visuel openfiledialog?

trucss · Answer

effectivement c'est intéressant.
Est ce qu'on peut sélectionner plusieurs fichier ou c'est un seul fichier ?

Et imaginons si on a plusieurs répertoire par exemple magasin 1 repertoire1 magasin 2 repertoire2 magasin 3 repertoire3 afin de tout regrouper dans un meme tableau selon des dates .

trucss · Answer

ok je vais déjà me focaliser sur le nombre a virgule(prix)

trucss · Answer

Mon fichier et avec un point j'ai fait ça et ça fonctionne est ce correct pour vous ou c'est de la bidouille ?

If l.Length > 6 Then longueur = CDbl(Val(l(6)))

trucss · Answer

Donc si j'abandonne la date et je garde le openfiledialog comment faire pour ouvrir les memes nom de fichiers mais dans des dossier differents et de charger la listview ?

Pour l'instant j'ai fait ça
OpenFileDialog1.ShowDialog()
        Dim selectedFile As String
        selectedFile = OpenFileDialog1.FileName

'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(selectedFile)

trucss · Answer

est ce possible par exemple renseigner 3 textbox avec chemin fichiers si un seul textbox de renseigner alors ça va cherhce le fichier dans le chemin sinon si les 3 sont renseignes on importe les 3 fichiers dans la meme listview .
C'est possible ça ?

Whismeril · Answer

On va essayer de faire par étape Comme on hésite encore sur l'ergonomie pour l'utilisateur, on va écrire un code qui permet de lire plusieurs fichiers, de stoker toutes les données, mais de ne pas charger 2 fois le même fichier. Je choisis que c'est à la classe DataTrucss de savoir si un fichier a déjà été lu. Pour cela j'ajoute une propriété Shared, car ça n'est pas lié à une instance (si tu ne sais pas ce que c'est, je te renvois vers le cours de Tahé). '''

''' Classe représentant tes données '''

Class DataTrucss '''

''' Un constructeur qui prend une ligne issue du CSV comme paramètre d'entrée '''

''' Public Sub New(ByVal LigneCsv As String) Dim l As String() = LigneCsv.Split(";"c) Verif = l(2) If l.Length > 3 Then Article = l(3) If l.Length > 4 Then Couleur = l(4) If l.Length > 6 Then Prix = Convert.ToDouble(l(6)) End Sub 'les propriétés sont les données utiles de chaque ligne Public Property Article As String Public Property Couleur As String Public Property Prix As Double Public Property Verif As String '''

''' Surcharge de ToString pour afficher un résumé parlant de l'instance, et qui va servir au tri '''

''' Public Overrides Fonction ToString As String Return String.Format("{0}, {1}", Article, Couleur) End Function '''

''' List des fichiers déjà lus '''

''' Public Shared Property FichiersLus As List(Of String) = New List(Of String) End Class

Whismeril · Answer

Ensuite, je te propose une méthode qui à partir d'une liste de chemins de fichiers et d'une liste de données existante, va lire chaque nouveau fichier et ajouter les données dans la liste '''

''' Ajoute des données à partir de chemins de fichiers valides '''

''' liste de chemins de fichiers valides ''' Liste des données à compléter Private Sub ChargeFichier(Chemins As List(Of String), LesDatas As List(Of DataTrucss)) Dim lignes As String() For Each f In Chemins 'on vérifie que le fichier n'a pas déjà été lus Dim cheminComplet As String = Path.GetFullPath(f) 'pour qu'il n'y ait aucune ambiguité entre 2 fichiers nommés pareils 1 dans le répertoire de l'exécutable et l'autre ailleurs If DataTrucss.FichiersLus.Contains(cheminComplet) Then Continue For 'si c'est le cas, on passe directement à l'itération suivante 'on ajoute ce nouveau chemin dans la liste des chemins lu DataTrucss.FichiersLus.Add(cheminComplet) 'on lit le fichier lignes = File.ReadAllLines(cheminComplet) 'on ajoute son contenu à la liste For Each l In lignes LesDatas.Add(New DataTrucss(l)) Next Next End Sub

Whismeril · Answer

On peut tester tout ça avec 3 fichiers identiques à celui que tu as posté au message 19, de cette façon

'On crée une liste de fichiers de test
        Dim lesFichiers As List(Of String) = New List(Of String) From
            {
                "trucss.csv",
                "trucss2.csv"
            }

'on initialise la liste de toutes les données
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

'on charge les fichiers
        ChargeFichier(lesFichiers, datas)

'Ha zut on a oublié un fichier
        lesFichiers.Add("trucss3.csv")
        ChargeFichier(lesFichiers, datas)

'on fait le regroupement
        Dim regroupement = datas.Where(Function(x) x.Verif = "Oui" And x.Prix < 10.5).GroupBy(Function(x) x.ToString())

'peuplement de la listview à partir du regroupement
        For Each groupe In regroupement
            ListView1.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString(), groupe.First().Prix.ToString(), groupe.First().Verif}))
        Next

En exécutant ce dernier code en pas à pas, tu pourras constater que trucss.csv et trucss2.csv ne sont bien lus qu'une seule fois.

Whismeril · Answer

Là je te propose une ergonomie  avec un openfiledialog.
Je présents que ça ne va pas vraiment te convenir mais pour que tu me donnes tes impressions

ce qui est bien
ce qui n'est pas bien

J'ai donc un openfiledialog sur mon formulaire.

La propriété CheckFileExists est à True
La propriété Filter est   Fichiers csv|*.csv|Fichiers textes|*.txt|Tous les fichiers|*.*
La propriété Multiselect est à True

Je mets un bouton appelé ButSelectFichiers.
Au dessus et dans le code associé à l'évènement Click de ce bouton, on va écrire ceci

'On crée une liste de fichiers de test
    Dim lesFichiers As List(Of String) = New List(Of String)

Private Sub ButSelectFichiers_Click(sender As Object, e As EventArgs) Handles ButSelectFichiers.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            lesFichiers.AddRange(OpenFileDialog1.FileNames) 'on ajoute les fichiers selectionnés à la liste
        End If
    End Sub


Je mets un second bouton appelé butChargerDatas

Private Sub butChargerDatas_Click(sender As Object, e As EventArgs) Handles butChargerDatas.Click
        Dim datas As List(Of DataTrucss) = New List(Of DataTrucss)

ChargeFichier(lesFichiers, datas)

Dim regroupement = datas.Where(Function(x) x.Verif = "Oui" And x.Prix < 10.5).GroupBy(Function(x) x.ToString())

For Each groupe In regroupement
            ListView1.Items.Add(New ListViewItem({groupe.First().Article, groupe.First().Couleur, groupe.Count.ToString(), groupe.First().Prix.ToString(), groupe.First().Verif}))
        Next
    End Sub


En cliquant une première fois sur butChargerDatas, je peux aller choisir les fichiers que je veux dans un répertoire.


En cliquant une seconde fois sur ce bouton, je peux aller choisir d'autres fichiers, dans le même répertoire ou dans un autre


Et ainsi de suite.
Y'a moyen de peupler une listbox (ou autre) au fur et à mesure pour contrôler.

En cliquant sur le bouton butChargerDatas, ça lance la lecture des fichiers, le tri des patates et l'affichage dans la liste view

trucss · Answer

Merci de prendre du temps a m'expliquer c'est cool 
J'ai plusieurs erreur sur 

Public Overrides Fonction ToString As String
        Return String.Format("{0}, {1}", article, Couleur)
    End Function

Si je comprend bien le message 48 c'est dans une classe et 49 dans form et je renseigne qu'un chemins.
Je vais tester toute t solution afin de comprend c'est nikel merci.
Est ce que si dans la presentation je donne une textbox pour la date au format du fichier ex: 20220220.TXT aujourd'hui et  avec 3 textbox si je dois importer 3 chemins de fichier qui vont avoir le meme nom.
Il faut renseigner au moins 1 chemin pour faire apparaitre dans listview si on a les 3 chemin alors importe les 3 ou alors coché le chemin que l'on souhaite extraire

Whismeril · Answer

Si tu ne dis pas quelle erreur tu as je ne peux pas deviner....

Les textbox, on verra plus tard, ça doit toujours être la dernière solution.
Qui dit textbox dit erreurs de saisie.
Qui dit erreurs de saisie dit eventuellement plantage du logiciel (c'est une bonne chose quelque part car l'opérateur sait qu'il y a eu un problème, même si ça l'énerve)  ou pire faux traitement (et là l'opérateur ne le sait pas)

trucss · Answer

Overrides n'est pas valide dans une declaration de variable membre
cette instruction ne peux pas apparaitre en dehors du corps de methodes

Est rentre dans une textbox le chemin que l'on renseigne au depart est apres on selectionne

trucss · Answer

Désole mes dans le message 49 je dois placer ou mon chemin c:	est.txt

Whismeril · Answer

Ce n’est pas dans le.message 49, mais dans le 50.
Dans ce message là, qui est un test intermédiaire, j’ai considéré que les fichiers sont, dans un premier temps tous dans le répertoire de l’exe

'On crée une liste de fichiers de test
        Dim lesFichiers As List(Of String) = New List(Of String) From
            {
                "trucss.csv",
                "trucss2.csv"
            } 
J’ai d’ailleurs fait ça dans tous les tests précédents

Donc s’ils sont dans C:\Test , iil faut faire ça

'On crée une liste de fichiers de test
        Dim lesFichiers As List(Of String) = New List(Of String) From
            {
                "C:\Test	rucss.csv",
                "C:\Test	rucss2.csv"
            } 
Et aussi un peu plus bas, quand j’ajoute le 3eme fichier

trucss · Answer

Juste une erreur chargefichier n'est pas déclarer

Whismeril · Answer

Si si je te l’ai donnée

trucss · Answer

Pour l'erreur sur le chargefichier
il me la modifier comme ci dessous
Private Sub chargeFichier(lesFichiers As List(Of String), datas As List(Of DataTrucss))
        Throw New NotImplementedException()
    End Sub

Est ce génant ?
Quand je lance erreur the methode or operation is not implemented

Whismeril · Answer

Cette ligne  Throw New NotImplementedException() 

Ça veut dire générer une erreur.

Je t’ai donné le code de cette méthode. Si tu veux que je t’aide, tu prends le code que je t’ai donné

trucss · Answer

J'ai chargé exactement le message 48 et 50 pourtant

Whismeril · Answer

Et pas le 49?

trucss · Answer

C'est bon j'ai réussi avec les 3 chemins

Whismeril · Answer

Et concernant le message 51?

trucss · Answer

oui j'ai testé les 2  donc pour le openfildialog c'est bien je trouve quand on a besoin d'aller cherché des fichiers un peu partout tandis que l'autres solution quand c'est toujours dans les mêmes répertoires et meilleures.
Merci de m'avoir fait tester les 2 solutions c'est truc puissant VB

Whismeril · Answer

Ok, je vais donc te faire tester un autre façon.
Dans un premier temps, il va te falloir installer un contrôle externe car celui de vb.net n’est pas bien.

Commence par lire cet article https://docs.microsoft.com/fr-fr/nuget/quickstart/install-and-use-a-package-in-visual-studio qui explique comment installer un package nugget.
Et ensuite installe celui qui s’appelle betterfolderbrowserdialog

Ce soir, je te posterai un exemple avec ce contrôle et une alternative au datetimepicker

trucss · Answer

Il y a que betterfolderbrower c'est pareil ?

Whismeril · Answer

Ha oui, c’est ça

Whismeril · Answer

Bon parlons du contrôle MonthCalendar.
C'est assez adapté à ton cas, car ça sert à sélectionner une période continue.
Par exemple, ce mois-ci je peux facilement choisir un jour


Ou une période continue du 31 janvier au 13 mars


Attention toutefois, par défaut, la durée maximale est de 7 jours, pour ce second exemple je l'ai augmentée (propriété MaxSelectionCount).
On peut choisir d'afficher ou non certaines information avec les propriétés ShowQuelqueChose

Par rapport à 2 datetimipicker cela comporte 2 avantages

un seul contrôle
pas besoin de vérifier que la date sélectionnée comme étant la fin est bien après celle sélectionnée comme étant le début.

Mais si tu veux que la période soit plus étalée entre 2 mois (ou plus), c'est moins "glamour".
Il faut te servir de la propriété CalendarDimensions qui se saisit au format x;y x étant le nombre de mois affichés horizontalement et y le nombre de mois affichés verticalement
2;1 ça donne

1;2 ça donne

Whismeril · Answer

Donc pour cet exemple, j'utilise un betterfolderbrowser et un monthcalendar (que tu peux remplacer par 2 datetimepicker si tu veux);

Dans les propriétés du betterfolderbrowser, on peux saisir un répertoire par défaut (c:\Test par exemple)
Et en principe, lui indiquer que la sélection de plusieurs dossiers est autorisée, mais ça ne fonctionne pas chez moi, alors je l'ai fait dans le code.

Sur le formulaire j'ajoute un bouton qui s'appelle butChoixRepertoires. Dans la méthode associée à l'évènement Click de ce bouton, il y a

Private Sub butChoixRepertoires_Click(sender As Object, e As EventArgs) Handles butChoixRepertoires.Click
        'autorise l'utilisateur à selectionner plusieurs répertoires dans un même répertoire source
        BetterFolderBrowser1.Multiselect = True 'je ne sais pas pourquoi, je n'arrive pas à le faire en mode design....

If BetterFolderBrowser1.ShowDialog() = DialogResult.OK Then

For Each dossier In BetterFolderBrowser1.SelectedFolders
                'pour chaque répertoires sélectionné

Dim laDate As DateTime = MonthCalendar1.SelectionStart 'on récupère la date de départ
                Do
                    Dim fichier As String = Path.Combine(dossier, String.Format("{0:yyyyMMdd}.txt", laDate)) 'on crée le chemin de fichier pour cette date
                    If File.Exists(fichier) Then lesFichiers.Add(fichier) 'si le fichier existe, on l'ajoute à la liste
                    laDate = laDate.AddDays(1) 'on passe à la date suivante
                Loop While (laDate < MonthCalendar1.SelectionEnd) 'et on recommence jusqu'à la date de fin
            Next dossier
        End If
    End Sub

Comme tu auras conservé les codes de tests précédents, la liste lesFichiers existera.

En cliquant sur ce nouveau bouton, tu pourras sélectionner des répertoires et tous les fichiers au format qui va bien dans la période de temps sélectionnée seront ajouté à la liste des fichiers à charger.

Il te restera à cliquer sur le bouton butChargerDatas déjà coder pour la suite.

trucss · Answer

Merci quand j'ai installé betterfolderbrowser  probléme de compatibilité de version de framwork.

Peux tu m'expliquer pourquoi on prend pas 2 dates ou 2 textes et que l'on fait la différence on peut pas aller cherche les fichiers en sachant que c'est format 20220222.txt.

Je vais continuer pour tester ton code

Whismeril · Answer

Le betterfolderbrowser n’a rien à voir avec les dates, il permet de sélectionner des répertoires.
S’il n’est pas compatible avec ta configuration, il y a d’autres contrôles disponibles sur nugget du genre folderbrowser, il faut les essayer pour voir.
Sinon par défaut, il y a le folderbrowserdialog de vb ( qui est en fait le vieux contrôle de windows xp…)mais il ne permet de choisir qu’un répertoire à la fois et souvent, à l’ouverture il n’affiche pas le chemin présélectionné. Il y a de multiples solutions plus ou moins farfelues sur le net qui ne fonctionnent pas vraiment (celle qu’on trouve le plus souvent consiste à taper 2 fois sur tab et je ne sais plus quelle autre touche, ou le faire taper par le code…). La seule qui semble vraiment marcher est de réécrire complètement l’import du contrôle xp et son comportement. Franchement c’est plus simple d’aller en chercher un tout fait chez nuggets.

Choisir tes dates avec des datetimepicker est tout à fait possible, je t’ai montré le monthcalendar pour que tu connaisses une alternative. Par contre avec les datetimepicker tu devras veiller à l’ordre des dates.

Quand au textbox, je te le répète moins tu en as et mieux c’est.
C’est très vite fait de faire une erreur de frappe, de se tromper et taper une date qui n’existe pas, comme le 29 février 2022 par exemple.
C’est encore pire sur un chemin de répertoire dans lequel il faut saisir des chaînes caractères longues avec des touches « chiantes » tels que \ et : la moindre petite erreur de saisie et c’est mort.

Mais c’est toi vois au final

trucss · Answer

ok je comprend pour les textbox je vais suivre ton conseil c'est logique j'ai pas encore la bonne vision du parametrage.
Je vais essayer avec 2 dateimepicker car je voudrais limiter les manipulations sans folderbrowserdialog  enfin je vais essayer si j'y arrive pas de reviendrais sur folderbrowserdialog
j'ai reussi a faire ça pour l'instant c'est un bon debut pour un débutant mdr

 If DateTimePicker1.Value > DateTimePicker2.Value Then Exit Sub
        TextBox1.Clear()
        Dim D As Date = DateTimePicker1.Value
        Do While D.Day <= DateTimePicker2.Value.Day
            'code to do something with date
            TextBox1.AppendText(D.ToString)
            D = D.AddDays(1)
        Loop

Maintenant je vais essayer de revoir le format pour l'adapter a mes nom de fichier et l'ajouter a la liste c'est possible ?

Whismeril · Answer

Tu as regardé le message 71?

trucss · Answer

Avec le 71 c'est le 50 ou 51 ?

Whismeril · Answer

49 et 51

trucss · Answer

Pour le 51 a force de faire des manip lors que je clique sur butselectfichiers il me demande de selectionner les fichiers et quand je fais butchagerdatas il me les rajoute pas a la listview.
C'est un peu hard pour moi.
Tu va t'enervé dans une textbox avec un bouton associe a cote on peut pas declancher une opendildialog pour venir renseigner le chemin pour chaque magasin

Whismeril · Answer

C'est un peu hard pour moi  
Ha, ok.

Alors, dès le début, je t’ai dir que la meilleure chose à faire serait de prendre quelques jours pour assimiler les bases. Je t’ai conseillé le cours de Tahé, car pour moi c’est le meilleur gratuit pour débuter (même s’il est un peu vieux).

Comme j’ai l’impression que tu ne l’as pas fait, j’ai essayé de prendre le temps de découper étape par étape mais manifestement ça ne te convient pas.

Donc vraiment, je pense, que tu devrais lire ce cours et après revenir à ton projet.

 un bouton associe a cote on peut pas declancher une opendildialog pour venir renseigner le chemin pour chaque magasin  non parce qu’un opendFILEdialog ça sert à sélectionner de fichiers. Ce qui sert à sélectionner des répertoires c’est FOLDERbrowserdialog ( better ou pas).

Ensuite pour afficher les fichiers et/ou les répertoires  sélectionnés, par 2 fois je t’ai proposé de renseigner des lisbox, parce que contrairement à un nombre figé de textbox ou de labels, si un jour il y a un magasin de plus ou de moins, il faudra que tu recodes.

trucss · Answer

Non je penser que c'était plus facile que ça après c'est vrai que tu me montres plusieurs façon est c'est bien, au fur et a mesure je découvre pas mal de chose et surtout plusieurs façon de faire, c'est donc important au depart je bien reflechir au fonctionnement.
Quand je clique sur butselectfichiers je choisis les fichiers mais quand je choisi butchargerdatas rien ne se produit

Whismeril · Answer

Ben non c’est pas facile, sauf quand on s’appelle Steeve Jobs ou Bill Gates.
C’est comme tout ça s’apprend et en autodidacte ça peut prendre des années.


  mais quand je choisi butchargerdatas rien ne se produit  après avoir choisi les fichiers?

Modifier la quantité si article et couleur identique

68 réponses

Votre réponse

Discussions similaires