Je veux changer quelques caractères * # pour A et P pour avoir le nom de fichier du moniteur avec des caractères plus conviviaux. La seule solution que j'ai trouvée est de le faire moi-même dans le plan d'appel mais cela génère beaucoup de verbiage et n'est pas aussi efficace (rapide) que je le voudrais. Je vais la poster ici au cas où quelqu'un voudrait l'utiliser. Mais je cherche une fonction asterisk que je puisse compiler et que je puisse appeler dans le dialplan comme ${REPLACE(${EXTEN},*,a)} pour que l'exten **123**456*** soit converti en AA123AA456AAA.
;
; MACRO REPLACE
;
[macro-replace]
;
; ${ARG1} - String source
; ${ARG2} - Chars to replace
; ${ARG3} - Chars to replace with
;
exten => s,1,NoOp(Replacing ${ARG2} for ${ARG3} in ${ARG1})
exten => s,n,Set(str=${ARG1})
exten => s,n,Set(find=${ARG2})
exten => s,n,Set(replace=${ARG3})
exten => s,n,Set(i=0)
exten => s,n,Set(length=${LEN(${str})})
exten => s,n,While($[${i} < ${length}])
exten => s,n,GotoIf($["${str:${i}:1}" != "${find}"]?continue)
exten => s,n,Set(pre=)
exten => s,n,GotoIf($["${i}" = "0"]?post)
exten => s,n,Set(pre=${str:0:${i}})
exten => s,n(post),Set(post=)
exten => s,n,GotoIf($["${i}" = $[${length} - 1]]?write)
exten => s,n,Set(post=${str:$[${i} + 1]})
exten => s,n(write),Set(str=${pre}${replace}${post})
exten => s,n(continue),Set(i=$[${i} + 1])
exten => s,n,EndWhile
exten => s,n,Set(REPLACERESULT=${str})