Cree un fichier avec les donnees d'une listviewRésolu

Question

Bonjour, 

J'ai réussi a crée un fichier csv et a écrire les données de la listview, maintenant je voudrais écrire que les données qui ont la valeur 1 dans la colonne 5 de la listview comment je peux faire ?


 Call sauvegardercommande(ListView, c:	est.csv")

Dim build As New Text.StringBuilder()
        Dim nelement As Integer = liste.Items.Count

For Each element As ListViewItem In liste.Items
            For i As Integer = 0 To liste.Columns.Count - 1
               If liste.Items(i).SubItems(5).Text <> "0" Then
'ecrire un autre fichier cvs 
                End If

build.Append(element.SubItems(i).Text)
                If (i < liste.Columns.Count - 1) Then
                    build.Append(";")
                End If
            Next
            build.Append(vbCrLf)
        Next

Whismeril · Answer

Si tu avais appliqué ce qu'on te dit depuis des mois

ne pas mélanger vb6 et vb.net (call n'existe pas en vb.net, pire il ralentit l'exécution....)
écrire des classes métiers et stocker tes données dans des collections de ces classes
les contrôles ne servent qu'à afficher et interagir avec l'utilisateur 

Ces 12 lignes tiendraient en 2 lignes concises et claires. Pas de boucles, pas de subitem, pas de stringbuilder....Une requête Linq et c'est tout.
De plus, placer une condition d'exportation serait un jeu d'enfants..... une toute petite modification de la requête.

Mais von puisque tu persistes à bidouiller, il va te falloir incorporer ta conduite entre tes 2 for each

Whismeril · Answer

Tu as tout ce qu'il te faut dans tes propres questions

https://codes-sources.commentcamarche.net/forum/affich-10107359-modifier-la-quantite-si-article-et-couleur-identique

https://codes-sources.commentcamarche.net/forum/oldest/10107624-groupement-fichiers-puis-donnees

trucss · Answer

Ok je vais tout refaire juste pour comprendre Dim build As New Text.StringBuilder() Dim nelement As Integer = liste.Items.Count For Each element As ListViewItem In liste.Items For i As Integer = 0 To liste.Columns.Count - 1 If liste.Items(i).SubItems(5).Text <> "0" Then build.Append(element.SubItems(i).Text) If (i < liste.Columns.Count - 1) Then build.Append(";") End If End If Next build.Append(vbCrLf) Next Pour la ligne If liste.Items(i).SubItems(5).Text <> "0" erreur invalidargument=la valeur1 n'est pas valide pour index c'est quoi ?

Whismeril · Answer

Que vaut i quand ça plante?

Whismeril · Answer

Ha ben oui, tu ne te sers pas de la variable element et donc tu itères les lignes de ta listview avec le nombre de colonnes.

trucss · Answer

Comment je peux ecrire dans un fichier quand j'ai element.SubItems(5).Text = 1 je voudrais ecrire la ligne de la listview

Dim build As New Text.StringBuilder()
        Dim nelement As Integer = liste.Items.Count

For Each element As ListViewItem In liste.Items
            For i As Integer = 0 To liste.Columns.Count - 1

If element.SubItems(5).Text <> "0" Then
                    MsgBox(element.SubItems(5).Text)
                    MsgBox("good")
                Else
                    MsgBox("nogood")

End If
                build.Append(element.SubItems(i).Text)
                If (i < liste.Columns.Count - 1) Then
                    build.Append(";")
                End If
            Next
            build.Append(vbCrLf)
        Next

Whismeril · Answer

Tu testes et exporte les subitems de "element" pas de liste.

Whismeril · Answer

Je te l'ai dis dès ma première réponse, entre te 2 for each, tu testes la colonne qui va bien de la variable élément.
Si c'est Ok tu fais le second for each, si non tu ne fais rien

trucss · Answer

J'ai bien la variable element ou je viens lire la colonne avec element.Items(i).SubItems(5).Text 
For Each element As ListViewItem In liste.Items
            If element.Items(i).SubItems(5).Text <> "0 then
            For i As Integer = 0 To liste.Columns.Count - 1             
                build.Append(element.SubItems(i).Text)
                If (i < liste.Columns.Count - 1) Then
                    build.Append(";")
                End If
            Next
            End If
            build.Append(vbCrLf)
        Next

Whismeril · Answer

Ecoute, au risque de me répéter tant que tu n.auras pas acquis les bases, tu ne pourras pas coder correctement.

Tapper des trucs au hasard ça ne marche pas.

La variables element est un item de listview et ça tu devrais le savoir puisque tu l'as déclaré comme tel.

Un listviewitem ne possède pas de propriété item et i n'a rien à faire là.

Les for et pes for each c'est la base des algorithmes répétitifs, tant que tu n'auras pas compris ce que ça fait tu n'arriveras pas à les rédiger correctement.

En février je t'ai conseillé de lire le cours de Tahé, j'ai du te dire que ça te prendrais quelques jours mais qu'après tu allais gagner un temps fou.

Sur ce point tu aurais déjà gagné 2 jours.

trucss · Answer

Je pense si je veux faire quelque chose de propre je vais ajouter les elements qui on un 1 dans une liste stock et je vais faire une autre liste pour la totalité et après ecrire le fichier text, c'est plus logique que mon derniere code.

Dim stock= New List(Of String)

For boucle = 0 To ListView.Items.Count - 1

If ListView.Items(boucle).SubItems(5).Text = "1" Then
                stock.Add(ListViewposte.Items(boucle).SubItems(0).Text)
                stock.Add(ListViewposte.Items(boucle).SubItems(1).Text)
                stock.Add(ListViewposte.Items(boucle).SubItems(2).Text)
                stock.Add(ListViewposte.Items(boucle).SubItems(3).Text)
                stock.Add(ListViewposte.Items(boucle).SubItems(4).Text)
            End If
        Next

Whismeril · Answer

Non, ce qui serait logique c'est que tu apprennes et comprennes comment marche un for each

trucss · Answer

Apres avoir mangé et relu quelque base ça va mieux j'étais parti dans un délire.
For Each element As ListViewItem In liste.Items

If element.SubItems(5).Text <> "0" Then
            Else
                For i As Integer = 0 To liste.Columns.Count - 1
                    build.Append(element.SubItems(i).Text)
                    If (i < liste.Columns.Count - 1) Then
                        build.Append(";")
                    End If

Next
            End If

build.Append(vbCrLf)
        Next

trucss · Answer

Oui j'avais pas fini mon code, je pense que tu va hurler mais bon je me lance. Pour moi c ultra dur.
la j'ai compris ça fonctionne. fichier1 la ligne avec les valeurs 1 de la colonne 5 ,fichier 2 la ligne avec les valeurs 0.
Maintenant je vais essayer de fichier1 valeur 1 et fichier 2 valeur 1 et 0 

For Each element As ListViewItem In liste.Items

If element.SubItems(5).Text = "0" Then
                For ii As Integer = 0 To liste.Columns.Count - 1
                    build1.Append(element.SubItems(ii).Text)
                    If (ii < liste.Columns.Count - 1) Then
                        build1.Append(";")
                    End If
                Next
                build1.Append(vbCrLf)
            Else
                For i As Integer = 0 To liste.Columns.Count - 1
                    build.Append(element.SubItems(i).Text)
                    If (i < liste.Columns.Count - 1) Then
                        build.Append(";")
                    End If
                Next
                build.Append(vbCrLf)
            End If

Next
        Try
            IO.File.WriteAllText(T:	est\fichier1.csv, build1.ToString())
            IO.File.WriteAllText("T:	est\fichier2.csv", build.ToString())

trucss · Answer

J'ai supprimé le call qui n'ai pas du VB j'avais Sub sauvegardercommande(ByVal liste As ListView, ByVal fichier As String) du coup je le supprime et je declare dim liste as listview je pense que c'est ça le probléme.

vb95 · Answer

Bonjour 
Sur votre Form vous avez bien un contrôle nommé Liste qui est une ListView .
Pourquoi alors dans la Sub envoyermagasin_click faire un Dim Liste as ListView 
Le Liste avec le Dim n'existe pas : la référence de l'objet n'est pas associée à une instance de l'objet ( traduction en français ).
Cette ligne ne sert à rien si la Form contient une ListView nommée Liste .
Comme dit Whismeril ce n'est pas en bidouillant ou en tapant au pif que l'on arrive à coder .
Connaître les bases d'un langage de programmation est primordial pour coder correctement et proprement  . 

Et un salut à Whismeril en passant

vb95 · Answer

Bonjour
Au message 19 il y a bien Liste qui est une Listview .
Elle se trouve sur quelle Form  cette Listview ?
Dans quelle Form se trouve le bouton envoyermagasin ?

vb95 · Answer

Là normalement liste ne devrait plus poser de problème .
Pourquoi avoir fait des Replace à madate et madate1 ?

vb95 · Answer

Ok 
Comment Liste n'est pas déclaré ? Tu as bien une Listview qui s'appelle Liste sur la Form .
Et sur cette même Form se trouve le bouton envoyermagasin qui est associé à la sub envoyermagasin_click ?

trucss · Answer

Je tiens a vous remercier pour votre patience et surtout votre travail reactif, merci a tous

Cree un fichier avec les donnees d'une listview

20 réponses

Votre réponse

Discussions similaires