je ne sais pas si vous vous rappelez d'une discussion ici même,
au sujet d'un alias mettant en gras un caractère sur deux dans une
chaîne de caractère fournie.
on était arrivé au résultat suivant:
Alias BUB {
Var %W , %X , %Y , %Z , %R = /(.)(.)/g , %S = /(.)/g
Tokenize 32 $1-
While $regex(GtWrd,$1-,/([^[:space:]]+)/i) {
%W = $regml(GtWrd,1)
If ($calc($len(%W) % 2) == 1) { %X = $regsub(%W,%S,$+($chr(2),\1,$chr(2),$chr(2)),%Y) }
Else { %X = $regsub(%W,%R,$+($chr(2),\1,$chr(2),\2),%Y) }
%Z = %Z $+ $chr(32) $+ %Y
Tokenize 32 $2-
}
Return %Z
}
Et bien, éssayez maintenant avec celui-ci:
Alias BUB {
Return $regsubex($1-,/(\S)/g,$iif(2 // \n,\t,$+($chr(2),\t,$chr(2))))
}
OH MAGIE :)
C'est grâce à un pote que j'ai découvert ce pattern
Donc merci à lui !
Cordialement,
TropNul