Я хочу изменить пару символов * # для A и P, чтобы имя файла монитора было более удобным. Единственное решение, которое я смог найти, состояло в том, чтобы сделать это самостоятельно в диалплане, но оно генерирует много подробностей и не так эффективно (быстро), как хотелось бы. Я опубликую его здесь на всякий случай, если кто-то захочет его использовать. Но я ищу функцию звездочки, которую я могу скомпилировать, что-то, что я могу вызвать с диалпланом, например ${REPLACE(${EXTEN},*,a)}, и преобразовать exten **123**456*** до АА123АА456ААА.
;
; 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})