Ajouter subitems dans listview (boucle)

Version imprimable

Bonjour,

J'ai une listview qui se génère comme cela :

Code:

1
2
3
4
ListView1.Columns.Add("Site de connexion", 107, HorizontalAlignment.Left)
        ListView1.Columns.Add("Login/identifiant", 177, HorizontalAlignment.Left)
        ListView1.Columns.Add("Mot de passe", 177, HorizontalAlignment.Left)
        ListView1.Columns.Add("Date d'ajout", 106, HorizontalAlignment.Left)

J'ai mon code qui permet d'ouvrir un document texte et de sélectionner une ligne sur deux et d'afficher à partir du 16ème caractère le texte dans la colonne "Login/identifiant".
Comme il y a plusieurs lignes dans mon document texte, la ligne qui suit est copiée dans la colonne d'à côté. Ce que je voudrais c'est passer à la ligne en dessous lorsque la première case de "Login/identifiant" est remplie. J'ai essayé divers trucs mais ca ne donne rien, j'arrive pas à informer dans la boucle que quand une case est remplie, on passe à celle d'en dessous comme une listbox.

Voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ChargerMAJToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChargerMAJToolStripMenuItem.Click
        OpenFileDialog1.AddExtension = True ' Ouvre les documents txt
        OpenFileDialog1.Filter = "(*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
        'If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim monStreamReader As New StreamReader("D:\mdp.txt") 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        Dim listing As New ListViewItem
        Dim i As Integer = 0
        ligne = monStreamReader.ReadLine()
        While Not ligne Is Nothing
            If i Mod 2 = 0 Then
                Dim login As String = ligne
                login = login.Substring(16)
                listing.SubItems.Add(login)
            End If
            ligne = monStreamReader.ReadLine()
            i = i + 1
        End While
        ListView1.Items.Add(listing)
        monStreamReader.Close()
    End Sub

Merci à vous, si vous pouvez me dépanner :?

Bonjour,
en principe, il faut enregistrer l'item dès qu'un login est trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim monStreamReader As New StreamReader(fichierALire) 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        'Dim listing As New ListViewItem
        Dim i As Integer = 0
        ligne = monStreamReader.ReadLine()
        While Not ligne Is Nothing
            If i Mod 2 = 0 Then
                Dim login As String = ligne
                login = login.Substring(16)
                Dim listing As New ListViewItem()
                ''*** Ligne suivante à ajouter pour sauter une colonne.
                'listing.SubItems.Add("")
                listing.SubItems.Add(login)
                ListView1.Items.Add(listing)
            End If
            ligne = monStreamReader.ReadLine()
            i = i + 1
        End While
        'ListView1.Items.Add(listing)
        monStreamReader.Close()

28/10/2010, 10h45
aus3004

1 pièce(s) jointe(s)

Merci beaucoup chrismonoye, le code est fonctionnel !!!!!

Mais j'ai encore deux problèmes :

1. si je met

Code:

listing.Items.Add(site)

dans la colonne 1, j'ai l'erreur

Citation:

Erreur 4 'Items' n'est pas un membre de 'System.Windows.Forms.ListViewItem'.

2. pour les autres colonnes cela fonctionne bien mais quand la colonne 2 est remplie et que cela passe à la 3 les items sont ajouté au niveau du dernier item de la colonne 2, pareil pour la colonne 4 avec le dernier item de la colonne 3.
Ex : c1 c2 c3 c4
-------m1
-------m2
-------m3
-----------m1
-----------m2
--------------m1
--------------m2

Merci encore ;)

Après avoir valorisé tes variables "site", "login", "motPasse" et "dateajout",
je pense qu'il faudrait faire :
Code:

1 2 3 4 5 Dim listing As New ListViewItem(site) listing.SubItems.Add(login) listing.SubItems.Add(motPasse) listing.SubItems.Add(dateajout) ListView1.Items.Add(listing)
Je ne sais pas si cela t'est possible, le but étant de remplir la ligne entièrement avant de passer à la suivante.

28/10/2010, 18h21
aus3004

Merci la colonne "site" est bien formée :ccool:

Il reste plus que le problème du :
Ex : c1 c2 c3 c4
----m1
----m2
-------m1
-------m2
-------m3
-----------m1
-----------m2
--------------m1
--------------m2

Tu pense pas que c'est impossible !!?
Il faudrait dire que si il y a des cases vides au dessus alors on décale.
Mais les subsitems ne concernent que de droite à gauche. Il y aurait-il pas une fonction pour de haut en bas ?
28/10/2010, 20h40
chrismonoye

Bonsoir,
selon ce que je connais,
New ListViewItem("toto") créé un nouvel élément dans Listview, et on peut lui adjoindre des objets ListViewItem.
Ce ListViewItem forme une ligne si on peut dire et chaque New ListViewItem en créé une nouvelle.
D'où le résultat que tu décris.
C'est pour cela qu'il est plus simple de renseigner l'élément et tous ces objets et d'ajouter le tout au ListView.
Remplir colonne par colonne nécessiterait de rappeler la ligne pour la modifier.
C'est sûrement possible, mais coder ça ...
Maintenant, reste à savoir à quoi ressemble le fichier txt.
Est il possible d'y extraire au préalable "site", et ses objets "login" etc ...
Pourquoi traiter une ligne sur deux?
Est il imposé ou le créés tu toi même?
Un extrait significatif de celui ci, permettrait aux lecteurs de cette discussion de t'apporter plus d'éléments de solution.

C'est vraiment sympat de t'intéresser de près à mon problème :D
Voila plus de détail.

J'ai 4 fonctions :
functiondateajoutfichier()
functionlogin()
functionmdp()
functionsiteconnect()

Les fonctions sont construites sous cette forme (exemple de functionlogin) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Function functionlogin() Try Dim monStreamReader As New StreamReader("D:\mdp.txt") 'Stream pour la lecture Dim ligne As String ' Variable contenant le texte de la ligne Dim i As Integer = 0 ligne = monStreamReader.ReadLine() While Not ligne Is Nothing If i Mod 2 = 0 Then Dim login As String = ligne login = login.Substring(17) Dim listing As New ListViewItem(login) ListView1.Items.Add(listing) End If ligne = monStreamReader.ReadLine() i = i + 1 End While monStreamReader.Close() Catch End Try End Function
Le fichier texte est construit sous cette forme :
Adresse e-mail : xxxxxx@xxxxx.xx
Mot de passe : xxxxxxxxxx
Adresse e-mail : xxxxxxxx@xxxx.xxx
Mot de passe : xxxxx
Adresse e-mail : xxxxxxx@xxxx.xx
Mot de passe : xxxxxxx
Adresse e-mail : xxxxxxx@xxxxxx.xx

- pour le login j'utilise une ligne sur deux, celle qui correspond à l'email
- je peux pas changer la structure du texte, elle m'est imposer par les opérations qui ont construises ce document texte.

Je pense qu'en intervenant directement dans les fonctions on pourrait y arriver, non ?

Bonsoir,
dans le principe et dans l'idée de traiter "ligne par ligne", je fonctionnerais avec une ArrayList qui collecterait les éléments de chaque "ligne" du ListView :

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
    Dim i As Integer = 0
 
    Private Function login_mdp(ByVal fichierALire As String) As ArrayList
        '*** Création une ArrayList, qui à chaque ligne, enregistrera :
        '    site (retourné par la fonction "siteconnect".
        '    login et mdp, traités depuis le fichier txt.
        '    Et dateAjout (retourné par le fonction "dateajoutfichier").
        '    chacun séparé par un Tab pour les retrouver ultérieurement.
        Dim temp As New ArrayList()
        Dim tempLigne As String = ""
        Dim monStreamReader As New StreamReader(fichierALire) 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        Dim i As Integer = 0
        ligne = monStreamReader.ReadLine()
        Dim login As String = ""
        Dim mdp As String = ""
        Dim site As String = siteconnect()
        Dim dateAjout As DateTime = dateajoutfichier()
 
        While Not ligne Is Nothing
            If i Mod 2 = 0 Then
                login = ligne.Substring(17)
            Else
                mdp = ligne.Substring(15)
                tempLigne = login & vbTab & mdp
                temp.Add(site & vbTab & tempLigne & vbTab & dateAjout)
 
            End If
            ligne = monStreamReader.ReadLine()
            i = i + 1
        End While
 
        Return temp
 
    End Function

J'ai ajouté pour nourrir les 2 fonctions siteconnect() et dateajoutfichier(), pour tester :

Code:

1
2
3
4
5
6
7
8
9
10
    Private Function siteconnect() As String
        '*** Pour tester
        siteconnect = "toto"
    End Function
 
    Private Function dateajoutfichier() As DateTime
        '*** Pour tester
        Dim startTime As DateTime = DateTime.Now
        Return startTime
    End Function

Et enfin pour remplir le listView, dans la procédure appelante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Dim temp As New ArrayList()
        temp = (login_mdp(Application.StartupPath & "\mdp.txt"))
 
        ListView1.BeginUpdate()
        For i As Integer = 0 To temp.Count - 1
            Dim ligne As String = CStr(temp.Item(i))
            Dim champs() As String
            '*** Tab scinde la ligne pour renseigner ListViewItem et ses SubItems.
            champs = ligne.Split(CChar(vbTab))
 
            Dim item1 = New ListViewItem(champs(0), 0)
            item1.SubItems.Add(champs(1))
            item1.SubItems.Add(champs(2))
            item1.SubItems.Add(champs(3))
            ListView1.Items.Add(item1)
        Next
        ListView1.EndUpdate()

c'est une base de réflexion parmi d'autres.

29/10/2010, 23h55
aus3004

@chrismonoye, c'est impécable !!
Je sais pas comment te remercier.

Merci beaucoup et (très) bon développement :ccool: