WD Texter l'existence d'une variable.

Voici un truc tiré par les cheveux

Je n'ai pas testé mais vous n'allez rien perdre à le faire.​

Tu peux déjouer le problème en ayant recours au tableaux associatifs
Regarde ce code (tiré de l'aide de WD)

Code (Text):

// Tableau associatif d'entiers
// indexé sur des chaînes et avec doublons
taIDParClient est un tableau associatif d'entiers
// Ajout de l'identifiant du client "A"
taIDParClient["A"] = 55
// Ajout de l'identifiant du client "B"
taIDParClient["B"] = 321

SI taIDParClient["A"]..Existe = Vrai ALORS
Info("Il existe au moins un élément A")
FIN

Code (Text):

// Déclaration des variables
mcpt_01_index est un monétaire=0
mcpt_02_index est un monétaire=0
mcpt_03_index est un monétaire=0
mcpt_04_index est un monétaire=0
mcpt_05_index est un monétaire=0
mcpt_06_index est un monétaire=0
mcpt_07_index est un monétaire=0
mcpt_08_index est un monétaire=0
mcpt_09_index est un monétaire=0
mcpt_10_index est un monétaire=0

// Remplissage du tableau de varaiables
taVars est un tableau associatif de monétaires
nNbr_Max est un entier=10
POUR i=1 _À_ nNbr_Max
    taVars["mcpt_"+NumériqueVersChaîne(i,"02d")+"_index"] = {"mcpt_"+NumériqueVersChaîne(i,"02d")+"_index",indVariable}
FIN

// Parcours des éléments du tableau
//sKey est une chaîne
//mValue est un monétaire
//POUR TOUT ELEMENT mValue,sKey DE taVars
//    Trace(ChaîneConstruit("%1 : %2", sKey, mValue))
//FIN

ii est un entier=9 // Ex : On va vérifier si la variable numéro 9 existe.

// Vérification de l'existence de la variable
SI taVars["mcpt_"+NumériqueVersChaîne(ii,"02d")+"_index"]..Existe = Vrai ALORS
    Info("La variable ["+"mcpt_"+NumériqueVersChaîne(ii,"02d")+"_index"+"]"+" existe.")
SINON
    Info("La variable ["+"mcpt_"+NumériqueVersChaîne(ii,"02d")+"_index"+"]"+" n'existe pas.")
FIN
 

 

Qu'est ce que tb? Un variant? Si c'est le cas :

Code (Windev):

POUR i=1 À 40
     si pas {"tb"+i}..existe continue

     {"tb"+i}=PRODUIT.Tb
FIN
 

Pour plus d'info :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!