// Récupération des filtres
sNomFiltre est une chaîne
sListeFiltre est une chaîne = TableColonnesFiltrées(TABLE_Table1)
POUR TOUTE chaîne sFiltre de sListeFiltre SEPAREE PAR RC
sCol est chaîne = ExtraitChaîne(sFiltre, 1, ";")
nType est entier = ExtraitChaîne(sFiltre, 2, ";")
sVal est chaîne = ExtraitChaîne(sFiltre, 3, ";")
//Trace(sCol, nType, sVal)
FIN
sNomFiltre = Combo_Filtres..ValeurAffichée
SI Combo_Filtres <> "" ALORS
fSauveTexte("C:\Synergie\temp\"+sNomFiltre+".txt",sListeFiltre)
ListeSupprimeTout(Combo_Filtres)
ResListeFichier sont des chaînes
ResListeFichier = fListeFichier("C:\Synergie\Temp"+"\*.*", frInterruptible)
// Pour chaque fichier trouvé
POUR TOUTE chaîne UnFichier de ResListeFichier SEPAREE PAR RC
ListeAjoute(Combo_Filtres, fExtraitChemin(UnFichier,fFichier+fExtension))
FIN
SINON
Erreur("Pour sauvegarder le filtres il faut entrer un nom dans le champ Filtres !")
FIN

nNumFichier est un entier
sLigneLue est une chaîne

nNumFichier = fOuvre ("C:\Temp\"+Combo_Filtres..ValeurAffichée, foLecture)
SI nNumFichier <> -1 ALORS
sLigneLue = fLitLigne(nNumFichier) // Lecture de la 1ère ligne
TANTQUE sLigneLue <> EOT // Test de la fin de fichier
// Traitement de la ligne
sColonne est une chaîne = "Table_Table1."+ ExtraitChaîne(sLigneLue, 1, ";")
nType est un numérique = ExtraitChaîne(sLigneLue, 2, ";")
sValeur est une chaîne = ExtraitChaîne(sLigneLue, 3, ";")
TableActiveFiltre(sColonne,nType,sValeur)
// Lecture de la ligne suivante
sLigneLue = fLitLigne(nNumFichier)
FIN
fFerme(nNumFichier)
FIN