41054_it-IT

liliconcom

Come convertire il nome dell'elenco in una stringa?

CIAO,

Ho questo script che controlla se l'elenco contiene elementi duplicati e, in tal caso, invia un messaggio di errore.

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;
     );

Nota che ho questa riga:

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

Quello che voglio che appaia è questo:

"ERROR. GroupVar has duplicates. Check log."

Tuttavia, appare invece questo:

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

Qualche idea? Grazie.

Ri: Come convertire il nome dell'elenco in una stringa?Grazie! Funziona perfettamente bene.Ri: Come convertire il nome dell'elenco in una stringa?

CIAO @shaira

Presumo che tu voglia che il nome VARIABILE fornito come argomento della funzione venga visualizzato nella casella della didascalia? Se è così, questo potrebbe funzionare:

 

 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) );

 

Notare l'uso di Name Expr() nell'istruzione Caption. Inoltre, quando chiami la funzione, devi racchiudere l'argomento con la parola chiave Expr()