Récupérer l'indice d'un tableau variant

//Algorithme qui va récupérer l"indice tableau d"un tableau variant avec recherche sur membre variant

 

 

//Déclaration des variables

varContenu est un Variant

sMembreVariant est chaîne

nRecherche, nPosition sont des entiers

tReference est un tableau de chaîne

 

 

//Initialisation des variables

varContenu            = Null

sMembreVariant    = "ID"

nRecherche            = 12

nPosition                = -1

 

 

//Pour le test, on va le contenu de notre tableau

POUR i=1 _A_ 100

     varLigne est un Variant

     varLigne.ID                       = i*2

     varLigne.NOM                  = i+"_test"

     varLigne.DATEHEURE    = DateSys()+HeureSys()

 

 

     TableauAjouteLigne(varContenu.tableau,varLigne)

FIN

 

 

//On stocke le contenu du variant+membre pour recherche

POUR TOUT varLigne DE varContenu.tableau

     TableauAjouteLigne(tReference, {"varLigne."+sMembreVariant})

FIN

 

 

// Recherche dans le tableau de référence sa position

nPosition = TableauCherche(tReference, tcLinéaire, nRecherche)

 

 

//On affiche les valeurs

Info("Valeur ["+nRecherche+"] dont l"indice tableau est : "+nPosition)

Info("Valeur ["+varContenu.tableau[nPosition].ID+"] dont l"indice tableau est : "+nPosition)