Création d'une methode d'enregistrement sur fichier

Commenter

Contenu du snippet

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...

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Alex001)