//Voici un exemple de code réalisant parfaitement ce traitement :
EXTERNE NomFichier, RubNom
//Declarations
MonFic est une Description de Fichier
MaRub est une Description de Rubrique
//Fichier
MonFic..Nom = "NomFichier"
MonFic..Type = hFichierNormal
//Rubriques
MaRub..Nom = "RubNom"
MaRub..Type = hRubTexte
MaRub..Taille = 30
MaRub..TypeClé = hCléDoublon
HDécritRubrique(MonFic,MaRub)
MaRub..Nom = "RubPrenom"
MaRub..Type = hRubTexte
MaRub..Taille = 30
HDécritRubrique(MonFic,MaRub)
HDécritFichier(MonFic)
HCréationSiInexistant("NomFichier")
NomFichier.RubNom = "Reeves"
HAjoute(NomFichier)
HLitPremier(NomFichier,"RubNom")
Info("Salut, c`est bien moi "+NomFichier.RubNom)
|