Retire tous les caractères alpha d'un champ

[mike76]

Cette formule permet de retirer tous les caractères autres que des chiffres dans le n° de fax et créer un mail avec ce n°.

ex:
Vous avez 02.35.00.08.06 ou 02-35-00-08-06 ou 02 35 00 08 06
ça va créer un mail avec 0235000806

fax := OfficeFAXPhoneNumber;
tmpFax := "";

@For(i := 1;
i <= @Length(fax);
i := i + 1;
caractere := @Middle(fax ; i-1 ; 1);
caractere := @TextToNumber(caractere);
tmpFax := tmpFax + @If( @IsError(caractere) ; "" ; @Text(caractere))
);

@Command([MailComposeMemo]);
@UpdateFormulaContext;

FIELD EnterSendTo := tmpFax;

[philippe]

A valider, mais il me semble que ce bout de code (un peu tordu mais sans boucles) doit faire la même chose.

Code : Tout sélectionner

liste_ok := "0" : "1" : "2" : "3" : "4" : "5" : "6" : "7" : "8" : "9";
pas_ok := @Explode(@ReplaceSubstring(input; liste_ok; " "));
text_to_list := @Explode(@Trim(@ReplaceSubstring(input; ok; " " + ok + " ")));
FIELD output := @ReplaceSubstring(@Implode(@Replace(text_to_list; pas_ok; "")); " "; "");