Table vers fichier FIC

Table vers fichier FIC​

Bonjour,

Code proposé par xxxx d'Algérie.

J'espère qu'il vous servira.

Code (Text):

UnFichier est une Description de Fichier
UneRubrique est une Description de Rubrique
sdContenu est une Source de Données

// Description du fichier de données "sdContenu"
UnFichier..Nom = sdContenu
UnFichier..Type = hFichierNormal
UnFichier..CryptageFic = hCryptageStandard


sTy est une chaîne
sTyb est une chaîne
u est un entier


// Enumération de toute les colonnes du champ table "TABLE_Contenu"
POUR u = 1 _A_ TableOccurrence(TABLE_Contenu, toColonne)
     sTy = TableEnumèreColonne(TABLE_Contenu,u)
     UneRubrique..Nom = sTy
     UneRubrique..Type = hRubTexte
     UneRubrique..Taille = 40
     UneRubrique..TypeClé = hCléDoublon
     HDécritRubrique(UnFichier, UneRubrique)
FIN

// Valide la description du fichier de données
HDécritFichier(UnFichier)
...

// Création du fichier de données (reconnu car déclaré comme source de données)
HCréation(sdContenu)

// Remplir Le fichier Crée Avec Le Contenu De La Table
POUR u = 1 A TableOccurrence(TABLE_Contenu)
     TableSelectPlus(TABLE_Contenu,u)
   
     POUR uv = 1 A TableOccurrence(TABLE_Contenu,toColonne)
          sTy = TableEnumèreColonne(TABLE_Contenu,uv)
          {"sdContenu" + "." + sTy}={"TABLE_Contenu" + "." + sTy}
             
     FIN
     HAjoute(sdContenu)
   
FIN