41054_ja-JP

liliconcom

リストの名前を文字列に変換するにはどうすればよいですか?

こんにちは、

リストに重複要素があるかどうかをチェックし、重複要素がある場合はエラー メッセージを送信するスクリプトがあります。

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

次の行があることに注意してください。

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

私が表示したいのはこれです:

"ERROR. GroupVar has duplicates. Check log."

ただし、代わりに次のように表示されます。

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

何か案は？ ありがとう。

Re: リストの名前を文字列に変換するにはどうすればよいですか?ありがとう！ 完璧にうまく機能します。Re: リストの名前を文字列に変換するにはどうすればよいですか?

こんにちは@シャイラ

関数の引数として指定された VARIABLE 名をキャプション ボックスに表示したいと考えますか? そうであれば、これはうまくいくかもしれません:

 

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

 

Caption ステートメントでの Name Expr() の使用に注意してください。 また、関数を呼び出すときは、引数をキーワード Expr() で囲む必要があります。