ENREGISTRER ET CHARGER UNE LISTVIEW AVEC UN FICHIER TXT.

---

Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

Salut, c'est l'une de met première source. J'ai remarqué qu'il n'y avait pas beaucoup de tuto à propos de ce que fait ma source alors je la poste.

Cette source vous montre comment enregistrer les éléments d'un ListView dans un fichier texte, puis, de charger un ListView depuis ce même fichier. Le code est très basic, on sépare chaque item des subitem par un "|", et pour charger le fichier dans la liste, on découpe la ligne du fichier en utilisant ces "|", et on ajoute à l'item du ListView. Bon, puisque je ne suis pas bon dans le déscription des sources, j'ai mis des com.

rem ##### ENREGISTRER LES ELEMENT DANS UN FICHIER #####

 Dim SW As New StreamWriter("VotreFichier.txt") ' Ouvre le fichier
 rem On déclare les autres variables
 Dim Save_Listview As String = ""
        Dim i As Integer
        Dim j As Integer


        For i = 0 To ListView1.Items.Count - 1 ' Boucle sur le nombre d'items dans la ListView
            For j = 0 To ListView1.Columns.Count - 1 ' Boucle sur le nombre de colonnes dans la ListView
                If ListView1.Items(i).SubItems(j).Text = "" Then
                    ListView1.Items(i).SubItems(j).Text = " "
                End If
                Save_Listview = Save_Listview & ListView1.Items(i).SubItems(j).Text & "|" ' Sauvegarde d'un item dans la ListView
            Next j
            SW.WriteLine(Save_Listview) ' Ecrit dans le fichier le contenu de la variable Save_Listview
            Save_Listview = ""  ' Remplacement du contenu de Save_Listview par une chaîne vide
        Next i
        SW.Close()  ' Fermeture du fichier









rem ##### CHARGEMENT D'UN FICHIER DANS UN LISTVIEW #####

rem On déclare les variables
        Dim TAB(2) As String 'on déclare un tableau dans lesquel sont stocké tous les item et subitem d'une ligne du listview
        Dim LVI As New ListViewItem
        Dim sr As StreamReader
        Dim Ligne As String


        sr = New StreamReader("VotreFichier.txt")' On ouvre le fichier
        Ligne = ""

        Ligne = sr.ReadLine()
        While Not Ligne Is Nothing 'On fait une boucle qui bosse sur chaque ligne du fichier (lecture du fichier ligne par ligne)

            LVI = New ListViewItem ' On créer un nouvel item

            TAB = Ligne.Split("|") ' On découpe la ligne du fichier et le met dans le tableau
            LVI.Text = TAB(0).ToString 'premire cellule
            LVI.SubItems.Add(1).Text = TAB(1).ToString    'seconde cellule
            LVI.SubItems.Add(2).Text = TAB(2).ToString     'troisième cellule

            ListView1.Items.Add(LVI) ' On ajoute l'item à la liste
            TAB = Nothing ' On efface le tableau

            Ligne = sr.ReadLine() 'On lis la ligne suivante
        End While ' Et on est repartir pour lire la ligne suivante
        sr.Close()

Le code est extret de mon projet, à vous de l'arranger à votre guise après.
Je n'ai détècté aucun bugs, si vous en avez, dites-le moi^^.

Lachez vos com svp.

A+

• CONVERSIONUTM.NET
• BOITE DE NAVIGATION À LA SAUCE MAC OS X
• PENSE BÊTE
• ADDIN VB6 : SELECT CASE AMELIORE
• CAPTURE D'ECRAN TRÉS PARAMETRABLE

• CAPTURE D'ECRAN TRÉS PARAMETRABLE
• GESTION HEURE DE GARDE
• TÉLECHARGER ET ENREGISTRER UNE SÉRIE DE DOCUMENTS DONT LES ADRESSES DIFFERENT PAR DES PLAGES NUMÉRIQUES
• ENREGISTRER/OUVRIR LE CONTENU D'UN LISTVIEW
• SAUVEGARDER UNE LISTBOX OU UNE COMBOBOX DANS UN FICHIER (SAUVER ET OUVRIR)