Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 884 fois - Téléchargée 41 fois
Public Function SaveListview(cListView As ListView, SubItemsNomb As Long, Fichier As String) As Boolean On Error GoTo Erreur Dim B As Long, C As Long Open Fichier For Output As #1 'On ouvre le fichier pour écrire For B = 1 To cListView.ListItems.Count 'Parcourir toute les items With cListView Print #1, Chr(4) & .ListItems(B).Text & Chr(12) & Chr(7) & Chr(3) & .ListItems(B).Tag & Chr(7) & Chr(3) & Chr(1); 'Écrire le contenu de l'item For C = 1 To SubItemsNomb 'Parcourir les SubItems Print #1, Chr(2) & C & Chr(2) & .ListItems(B).SubItems(C) & Chr(17) & C & Chr(17); 'Enregistrer leurs contenu Next C Print #1, Chr(5) & Chr(2); 'Imprimer la fin du premier items End With Next B Close 1 SaveListview = True Exit Function Erreur: SaveListview = False End Function Public Function OpenListView(cListView As ListView, SubItemsNomb As Long, Fichier As String) As Boolean On Error GoTo Erreur Dim B As Long, Pos As Long Dim Texte As String, A As String cListView.ListItems.Clear Open Fichier For Binary Access Read As #1 'Ouvrir le fichier Texte = Space(LOF(1)) 'Mettre sa dans la variable Get 1, , Texte Close #1 Pos = 1 Do Pos = InStr(Pos, Texte, Chr(4)) + 1 'Détecter le premier items A = Mid(Texte, Pos, InStr(Pos, Texte, Chr(5) & Chr(2)) - Pos) 'Jusqu'ou sa arrête With cListView .ListItems.Add , , Left(A, InStr(A, Chr(12)) - 1) 'Ajouter l'item .ListItems(.ListItems.Count).Tag = Mid(A, InStr(A, Chr(7) & Chr(3)) + 2, InStr(A, Chr(7) & Chr(3) & Chr(1)) - 2 - InStr(A, Chr(7) & Chr(3))) For B = 1 To SubItemsNomb .ListItems(.ListItems.Count).SubItems(B) = Mid(A, InStr(A, Chr(2) & B & Chr(2)) + Len(Chr(2) & B & Chr(2)), InStr(A, Chr(17) & B & Chr(17)) - InStr(A, Chr(2) & B & Chr(2)) - Len(Chr(2) & B & Chr(2))) Next B End With If InStr(Pos, Texte, Chr(4)) = 0 Then Exit Do 'Sortir de la boucle quand c'est finit Loop OpenListView = True Exit Function Erreur: OpenListView = False End Function
6 avril 2005 à 20:50
la j'ai un code plus "conventionel".
Merci
24 août 2004 à 23:03
me pose un probleme, il me dit qu'il ne s'agit pas d'un tableau !!!
que faire ?
24 août 2004 à 22:58
j'ai une erreur avec ton code.
Do
Pos = InStr(Pos, Texte, Chr(4)) + 1 'Détecter le premier items
A = Mid(Texte, Pos, InStr(Pos, Texte, Chr(5) & Chr(2)) - Pos) 'Jusqu'ou sa arrête
With cListView
.ListItems.Add , , Left(A, InStr(A, Chr(12)) -
1 août 2003 à 03:28
@+
1 août 2003 à 01:57
Bravo pour ta source, ca correspond a ce que je recherche, mais je t'en suppli mets un zip stp...
8/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.