41054_zh-TW

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: 如何將清單名稱轉換為字串？

你好@shaira

我假設您希望將作為函數參數提供的變數名稱顯示在標題框中？ 如果是這樣，這可能有效：

 

 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() 包裝參數