ich habe aber nur eine Liste dieser Art:

Code:

---

A: {"Test_1","Test_2","...","Test_?","...","Test_n",};

---

meine Lösung ist für meinen expliziten Fall:

Code:

---

(List modifiable) TCODE_SAMMLER: {"RAV1","RAV2","RAV3","RAV4","RAV5","RAV6","RAV7","RAV8","RAV9",
"RAK1","RAK2","RAK3","RAK4","RAK5","RAK6","RAK7","RAK8","RAK9",
"RAT1","RAT2","RAT3","RAT4","RAT5","RAT6","RAT7","RAT8","RAT9",
"RAA1","RAA2","RAA3","RAA4","RAA5","RAA6","RAA7","RAA8","RAA9",
"RAZ1","RAZ2","RAZ3","RAZ4","RAZ5","RAZ6","RAZ7","RAZ8","RAZ9",
"RAB1","RAB2","RAB3","RAB4","RAB5","RAB6","RAB7","RAB8","RAB9",
"RAF1","RAF2","RAF3","RAF4","RAF5","RAF6","RAF7","RAF8","RAF9"};

(Any modifiable) L_X_SAMMLER:
@{                                                                       
$a << loop {                                                           
for $z from 1 to length(TCODE_SAMMLER:);                           
collect                                                          
If ( Position( nth($z,TCODE_SAMMLER:), TCODE_LIST:,) = NoValue )
Then ( 0 )                                                     
Else ( Position( nth($z,TCODE_SAMMLER:), TCODE_LIST:,) );     
};                                                                 
                                                                         
$b << loop {                                                           
for $y from 1 to length(TCODE_SAMMLER:);                           
collect nth($y,TCODE_SAMMLER:);                                   
};
                                                             
$c << loop  {                                                           
for $x from 1 to length(TCODE_SAMMLER:);
collect
If ( nth($x,$a) = 0 )
Then ( {} )
Else ( {nth($x,$a),nth($x,$b),nth(4+14, ref(self:,nth($x,$b)+":") )} );
}; 

$d << flatten ($c);
};

---