bjr voici mon ptit prob surement que quelqu'un peu m'aider ?!
alias essai {
var %a 1
var %b = $count(bal,%lis)
while (%a <= %b) {
var %pos = $pos(bal,%lis,%a)
var %fin = $iif(%pos == 1,$+(%lis,$right(bal,-1),$+($mid(bal,1,$calc(%pos - 1)),%lis,$mid(bal,$+($calc(%pos + 1),-))))))
/msg $chan 2;3;5 %fin
inc %a
}
}
on 1:text:!*!:#: {
set %lis $mid($1,2,1) {
if (%lis isletter bal is bal) /essai
}
}
;!l! me donne ceci : pas de msg
;!a! me donne ceci : pas de msg
;!b! me donne ceci : al3al
;le but est de remettre la lettre (!*!) a la bonne place ??
