Voici une methode d'enregistrement de donnée dans un fichier pour une appli...
Source / Exemple :
'A insérer dans la déclaration
'création d'un type d'enregistrement de donnée
private type enreg_client
'enreg_client est un nom que je donne a mon type
nom as string * 25 ' caracteres
prenom as string * 25 ' caracteres
age as integer * 2 'numérique
H_F as boolean 'Homme ou femme as oui/nom
end type
Dim fiche as enreg_client 'fiche contient toutes les variables de enreg_client
sub ecrit()
'sub d'ecriture sur fichier
open #1 app.path +"\client.dat" for random as #1 len=len(fiche) 'ouvre le fichier en mode sequencielle
fiche.nom = objet.text
fiche.prenom = objet.text
fiche.age = objet.text
fiche.H_F = objet.value
put #1, ,fiche
close #1
end sub
sub lit()
'sub de lecture du fichier
open #1 app.path +"\client.dat" for random as #1 len=len(fiche) 'ouvre le fichier en mode sequencielle
get #1, ,fiche
objet.text=fiche.nom
objet.text=fiche.prenom
objet.text=fiche.age
objet.value=fiche.H_F
close #1
end sub
Conclusion :
j'utilise ce code pour des appli du genre:
- petit repertoire d'adresse
mais c'est aussi utilie pour toutes autres style a partir du moment ou vous savez combien d'information vous allez sauver.
plus l'enregistrement est lourd en donnée est plus c'est lent, A vous de trrouvez des astuces pour rendre cela plus rapide
Bonne chance et bonne prog...
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.