Regsubex powaaaa :)

cs_TropNul Messages postés 340 Date d'inscription dimanche 18 septembre 2005 Statut Membre Dernière intervention 22 octobre 2009 - 30 mai 2007 à 16:45
Panthouffle Messages postés 281 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 14 avril 2008 - 31 mai 2007 à 23:44
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

2 réponses

cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
30 mai 2007 à 19:09
C'est bien mais les accolades ne servent pas =)
0
Panthouffle Messages postés 281 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 14 avril 2008
31 mai 2007 à 23:44
oui c'est très bien mais c'est pas de la magie :)
0