PROCEDURE RemplieTable(Rs est une source de fichier)
//Il peut S'agir aussi d'un fichier HF
//Suppression des lignes de la table
TableSupprimeTout(<MaTable>)
//Positionnement sur le premiere enregistrement
HLitPremier(Rs)
//Tant qu'il y a des enregistrement à lire
TANTQUE Pas HEndehors(Rs)
SI <MaCondition est Vrai> Alors
//On ajoute les données si la condition est vérifiée
TableAjoute(<MaTable>, Rs.CLNOM+TAB+Rs.CLPRENOM+TAB+Rs.CLADRESSE1+TAB+Rs.CLCP+TAB+etc...)
FIN
//On lit l'enregistrement suivant
HLitSuivant(Rs)
FIN
PROCEDURE MAJTable()
Ind est un entier //Numéro de la ligne de table à traiter
POUR Ind = 1 A <MaTable>..Occurrence
//[[ A 2]] pour récupérer les 2 premiers caractère du CP
SI CLCP[Ind][[ A 2]]="75" Alors
TableSupprime(<MaTable>,Ind)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1615&post_id=6671