Discussion :

[mail.spam]

Bonjour,

Afin de faire un traitement dans une deuxième procédure j'utilise un tableau associatif avec doublons.

Ma procédure 1 renseigne mon tableau associatif et ma procédure 2 permet de faire des traitements, Jusque là aucun problème tout marche correctement.

J'utilise un tableau associatif pour une faciliter d'accès aux informations.

J'ai une procédure 3 qui a besoin de parcourir chaque clé de mon tableau.
Mais je ne sais pas comment avoir la liste des mes clés sans doublons qui compose mon tableau associatifs.

Existe t-il un moyen de récupérer la liste distinct des clés qui compose le tableau associatif??

Merci d'avance

[gancau]

Bonjour
Pourquoi vouloir un tableau et pas un fichier de BD ?
tu pourrais gérer avec les conditions / filtre les doublons
Sinon il faut que tu passes tout ton tableau avec une requête pour savoir si tu l'as déjà ou non
Gancau

[mail.spam]

Simplement pour une rapidité du programme.
Et aussi je n'ai pas besoin de sauvegarder ces infos...

Dans mon cas pour récupérer la liste distinct je parcours mon fichier et je génère un tableau

Code :

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

1
2
3
4
5
6
7
8
9
 
Tab_ListDossier est tableau de chaines
DossierEncours est une chaine
POUR TOUT ELEMENT Val_Info,Val_NumDossier,IdTabCreafen DE Tabstr_CREAFEN
	si Val_NumDossier <> DossierEncours ALORS
		TableauAjouteLigne(Tab_ListDossier,Val_NumDossier)
		DossierEncours = Val_NumDossier
	FIN
FIN

et ainsi par la suite je peux faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
	POUR TOUT ELEMENT UnDossier DE Tab_ListDossier
		XMLAjouteFils("CEXML","Dossier","",Vrai)
		XMLAjouteFils("CEXML","NumDossier",UnDossier)
		//	on liste les repères pour ce dossier
		POUR i = 1 _a_ Tabstr_CREAFEN[UnDossier]..Occurrence
			XMLAjouteFils("CEXML","Repere","",Vrai)
			XMLAjouteFils("CEXML","NumRepere",SansEspace(Tabstr_CREAFEN[UnDossier,i]:val_Repere))
			XMLAjouteFils("CEXML","CodeChassis",SansEspace(Tabstr_CREAFEN[UnDossier,i]:val_Code))
			XMLAjouteFils("CEXML","LargeurChassis",SansEspace(Tabstr_CREAFEN[UnDossier,i]:val_Largeur))
			XMLAjouteFils("CEXML","HauteurChassis",SansEspace(Tabstr_CREAFEN[UnDossier,i]:val_Hauteur))
			XMLAjouteFils("CEXML","GammeChassis",SansEspace(Tabstr_CREAFEN[UnDossier,i]:val_GAMME))
			XMLParent("CEXML")
		FIN
		XMLParent("CEXML")
	FIN