목록 이름을 문자열로 변환하는 방법은 무엇입니까?안녕,
목록에 중복 요소가 있는지 확인하고 중복된 요소가 있으면 오류 메시지를 보내는 스크립트가 있습니다.
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() 키워드로 래핑해야 합니다.