Samedi, 4. Février 2006
Haydn Parker a diffusé il y a quelques années plusieurs @formules qui permettent de faire diverses opérations sur des listes. Je les consulte régulièrement car cela m'évite souvent de passer par du LotusScript.
Les voicis :
Les voicis :
J'espère qu'elles vous seront aussi utile qu'a moi.DIFFERENCE All unique entries in list 1 but not in list2 list1:="......"; list2:="....."; reslist:=@unique(@trim(@replace(list1;list2;""))); AND All unique entries in both list 1 and list2 list1:="......"; list2:="....."; list3:=@replace(list1;list2;""); resList:=@unique(@trim(@replace(list1;list3;""))); OR (SUM) All unique entries in either list1 or list2 resList:=@trim(@unique(List1:List2)); XOR All unique entries in list 1 or list2 but not in both list1:="......"; list2:="....."; list3:=@replace(list1;list2;""); list4:=@replace(list2;list1;""); resList:=@unique(@trim(list3:list4)); How many dates in a list are less than a given date? rem "subtract list from date to get list of +ve & -ve nos"; p1:=@Text(Date-DateList); rem "change all entries which are -ve"; p2:=@Explode(@ReplaceSubstring(@Implode(p1;"/");"-";"*");"/"); rem "now replace unchanged entries from orig list"; p3:=@TextToTime(@Trim(@Replace(@Replace(p2;p1;@Text(DateList));p2;""))); @elements(p3) All numbers within a given range list:=1:2:3:4:5:1:2:3:4:5:1:2:3:4:5; lower:=2; upper:=4; p0:=@text(list); p3:=@Trim(@Replace(p0;@Replace(p0;@Right(@Text(List-lower);"-")+p0;"");"")); res:=@texttonumber(@Trim(@Replace(p3;@Replace(p3;@Right(@Text(upper-@texttonumber(p3));"-")+p3;"");"")))




- 









