Soyez le premier à donner votre avis sur cette source.
Vue 5 017 fois - Téléchargée 539 fois
'La le mode simple + de detail dans le zip Private buf() As String Private Sub Command1_Click() Dim i As Integer 'on redimensionne le tableau à 511 ReDim buf(511) As String 'ouverture/creation d'un fichier txt en mode binaire Open App.Path & "\Simple.txt" For Binary As #1 'creation de la base de donnée (memoire) For i = 0 To 10 buf(i) = "test" & i DoEvents Next i 'on redimensionne le tableau à 10 ReDim Preserve buf(10) As String 'on sauvegarde la base de donnée (physique) Put #1, , buf() 'on utilise plus le txt alors on le ferme Close #1 'on ne garde plus les valeur de la base Erase buf End Sub Private Sub Command2_Click() 'pour la boucle For Dim i As Integer 'on redimensionne suivant la taille du fichier (c'est pas correct mais bon) ReDim buf(FileLen(App.Path & "\Simple.txt")) As String 'ouverture du fichier txt en mode binaire Open App.Path & "\Simple.txt" For Binary As #1 '#1 mais Nr= Freefile c'est mieu 'on prend les valeurs Get #1, , buf() 'on a finit on ferme le fichier Close #1 ReDim Preserve buf(10) As String 'on sait qu'il ya 10valeurs donc...ben on redimensonne à 10 tout en gardant nos valeurs (sans les compressez) 'on efface la Form Me.Cls 'listing de la base 'For i = 0 To UBound(buffer) For i = 0 To 10 Print buf(i) 'impression sur la Form DoEvents Next i Print "Finish" & UBound(buf) 'UBound(buf)=10 car on na redimmensionner à 10 et LBound(buf)=0 End Sub '
Je n'irais pas plus loin dans la conception car il faut que le code reste simple, à la porter de tout le monde, apres chacun peut le modifié à sa giz. Mais heureux de voir que certain planche dessus et donne des idéés pour l'ameliorer.
Après pour tout ce qui est classes, c'est trop compliker pour moi.
C'est assez intéressant, ... mais vu que tu enregistres totalement tes données dans des variables avant d'écrire le fichier, la mémoire vive est fortement solicitée si tu comptes enregistrer enormement de données !!!
Ca serait bien aussi de prévoir tout ceci sous forme de classes avec fonction d'ajout, suppression, recherche, etc... ;)
Bonne idée ;) !
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.