41054_fr-FR

liliconcom

Comment convertir le nom d’une liste en chaîne ?

Salut,

J'ai ce script qui vérifie si la liste contient des éléments en double, et si c'est le cas, il envoie un message d'erreur.

ColAgain=Function({main}, {duplicate},
     duplicate={};
     duplicate_r={};
     unique={};
     For (i=1,i<=Nitems(main),i++,
      If (Nrows(Loc(unique,main[i])) == 0,
       InsertInto (unique,main[i]),
       InsertInto (duplicate_r,main[i])
       );
      );
     For (i=1,i<=Nitems(duplicate_r),i++,
      If (Nrows(Loc(duplicate,duplicate_r[i])) == 0,
       InsertInto (duplicate,duplicate_r[i])
       );

      );
     if (Nitems(duplicate)>0,
      Write("ERROR. "||Char(main)||" has duplicates.");
      Caption("ERROR. "||Char(main)||" has duplicates. Check log.");
      For (i=1, i<=Nitems(duplicate), i++,
        Show(duplicate[i]);
       );
     Throw();
      );
     duplicate;
     );

Notez que j'ai cette ligne :

Caption("ERROR. "||Char(main)||" has duplicates. Check log.");

Ce que je veux apparaître, c'est ceci :

"ERROR. GroupVar has duplicates. Check log."

Cependant, ceci apparaît à la place :

"ERROR. {"Element1", "Element2, "ElementN"} has duplicates. Check log."

Des idées? Merci.

Re : Comment convertir le nom d'une liste en chaîne ?Merci! Cela fonctionne parfaitement bien.Re : Comment convertir le nom d'une liste en chaîne ?

Salut @shaira

Je suppose que vous souhaitez que le nom de la VARIABLE fourni comme argument de fonction soit affiché dans la zone de légende ? Si c'est le cas, cela peut fonctionner :

 

 ColAgain = Function( {main},
 {duplicate},
 duplicate = {};
 duplicate_r = {};
 unique = {};
 For( i = 1, i <= N Items( main ), i++,
  If( N Rows( Loc( unique, main[i] ) ) == 0,
   Insert Into( unique, main[i] ),
   Insert Into( duplicate_r, main[i] )
  )
 );
 For( i = 1, i <= N Items( duplicate_r ), i++,
  If( N Rows( Loc( duplicate, duplicate_r[i] ) ) == 0,
   Insert Into( duplicate, duplicate_r[i] )
  );

 );
 If( N Items( duplicate ) > 0,
  Write( "ERROR. " || Char( main ) || " has duplicates." );
  Caption( "ERROR. " || Char( nameExpr(main) ) || " has duplicates. Check log." );
  For( i = 1, i <= N Items( duplicate ), i++,
   Show( duplicate[i] )
  );
  Throw();
 );
 duplicate;
);

groupVar = {1,2,3,3,5};
ColAgain( expr(groupVar) );

 

Notez l'utilisation de Name Expr() dans l'instruction Caption. De plus, lors de l'appel de la fonction, vous devez envelopper l'argument avec le mot-clé Expr()