Discussion :

[turkijudo]

Bonjour,
J'ai 2 fichiers dont les structures ne sont pas les mêmes sauf une seule rubrique (N° de licences).
Le fichier A peut contenir plusieurs fois le nom et le numéro de licence d'une même personne par contre le fichier B ne peut contenir qu'une seule fois le nom et le numéro de la licence de la même personne. Pour remplir le fichier B, je dois faire une comparaison entre les deux fichiers et n'ajouter dans le fichier B que les numéros de licences qui n'y existent pas.
C'est impossible par exemple, j'ai fait la comparaison le remplissage de 2 tables (une pour le fichier A et la 2ème pour le fichier B) et remplir une 3ème table par les enregistrement du A qui n'existe pas dans B, le résultat j'ai eu plus de 100000 enregistrements qui existent d'ailleurs dans les 2 fichiers. Sans plus tarder voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
TableTrie(TableImport, "Num_licence")
TableTrie(Table_Ranking_lists, "Num_licence")
 
POUR li_i=1 _À_ TableOccurrence(TableImport)
	SI TableCherche(Table_Ranking_lists,Num_licence,Vrai,1)=-1 ALORS
	TableAjoute(TABLE_comparaison,TableImport[li_i])
FIN
FIN

merci pour votre aide

[rudolfrudolf]

Bonjour,

Déjà sur le fichier B tu déclare les champs en question en clé unique.

Pour ce qui est de ton code, je m'y prendrais pas du tout comme tu fait.

Edit: utilise les balises(#) pour ton code, cela sera plus lisible.

[tbc92]

Comme Rudolf, je ne passerais pas du tout par des tables pour ce genre de traitement. Les commandes SQL sont parfaites pour ça :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
select num_licence from fichier_A
minus 
select num_licence from fichier_B

Mais restons sur l'utilisation de tables, et de la fonction TableCherche.
Le 1er paramètre de la fonction TableCherche, ça doit être le nom de la colonne qui contient les n°s de licence , et pas un nom de table. Donc : SI TableCherche("Table_Ranking_lists.num_licence",Num_licence,Vrai,1)=-1 ALORS

[turkijudo]

Merci mes chers amis pour votre collaboration. Toutefois, j'ai trouvé un bout de code sur le forum de PCSOFT qui a résolut mon problème
Merci à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
nPrevNumFact est un entier=0
 
POUR TOUT Athlètes_Engagés  SUR Num_licence
 
	SI Athlètes_Engagés.Num_licence=nPrevNumFact ALORS
		HSupprime(Athlètes_Engagés)
	FIN
	nPrevNumFact=Athlètes_Engagés.Num_licence
FIN