Bonjour,
Je travail sur exercice qui permettra de copier le contenu d'une listviex vers un fichier text en utilisant un fichier indexé.
La listview contient 4 Colonnes.
Lorsque je clique sur copie, je constate que mon programme copie la première ligne mais sur la deuxième ligne je reçois une erreur :
Voici le code utilisé :
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
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 Public Structure trie <VBFixedArray(4)> Dim a As Integer <VBFixedArray(7)> Dim b As Double <VBFixedArray(1)> Dim c As Integer <VBFixedArray(1)> Dim d As Char End Structure Dim valeur As Integer Dim categorie As trie Dim taille As Integer = Len(categorie) Dim tabtrie() As trie Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FileOpen(1, "fichier_trie.txt", OpenMode.Random, , , taille) Dim last As Integer = FileLen("fichier_trie.txt") / taille Dim r As Integer For r = 0 To ListView1.Items.Count categorie.a = ListView1.Items(r).Text categorie.b = ListView1.Items(r).SubItems(r + 1).Text categorie.c = ListView1.Items(r).SubItems(r + 2).Text categorie.d = ListView1.Items(r).SubItems(r + 3).Text Next FilePut(1, categorie, last + 1) MsgBox("Copié est bien effectuée") FileClose(1) End Sub
Voici le message d'erreur reçu:
La conversion de la chaîne "O" en type 'Integer' n'est pas valide.
Merci pour l'aide.
Partager