Hier noch eine kleine Anregung.
_L1 := "Test" : "Test" : "Test2" : "Test3" : "Test4" : "Test" : "Test2";
_L2 := "";
_L3 := "";
@Prompt([Ok]; "Anzahl"; "Anzahl: " + @Text(@Elements(_L1)));
@Prompt([Ok]; "Liste 1"; "Wert 1: " + _L1[1]);
@For
(n:=1; n<=@Elements(_L1); n:=n+1;
@If(@IsMember(_L1[n]; _L2); _L3 := _L3 : _L1[n]; _L2 := _L2 : _L1[n])
);
@Prompt([Ok]; "Liste 2"; @Implode(_L2));
@Prompt([Ok]; "Liste 3"; @Implode(_L3))
oder um mit koehlerbv (Berhard) seinen ueblichen Vergleichen von Strings und Listen zu arbeiten
@For
(n:=1; n<=@Elements(_L1); n:=n+1;
@If(_L1[n] *= _L2; _L3 := _L3 : _L1[n]; _L2 := _L2 : _L1[n])
);
Andreas
Andreas du petzt ..... ;D
C_LIST := List1:List2;
T_LIST := @Unique(C_LIST);
@For(N:=1;n<=@Elements(T_LIST);N := N+1;INT_LIST := INT_LIST + "~" + T_LIST [N]+ "#" + @Text (@Elements(@Trim(@Transform(C_LIST;"V";@If(T_LIST[N]!= V ;"" ; V))))));
FIELD ListMultipleElements := @Trim(@Transform(@Explode(INT_LIST;"~");"V1";@If(@TextToNumber(@Word(V1;"#";2))>1;@Word(V1;"#";1);"")));
Liefert das selbe Ergebnis wie der Code von Andreas, beziehungsweise von Bernhard, aber kann entweder Alternativ, oder zusätzlich noch die Anzahl der Elemente zurückgeben, wenn man in der letzten Zeile das zweite @Word einfachtdurch V1 ersetzt.