RANDOM REPLACE

alias rreplace {
  var %j = $0, %i = 2, %m = $1
  while (%i <= %j) {
    var %k = $($+($,%i),2), %h = 1
    while (%k $iif($prop == cs,isincs,isin) %m) {
      var %p = $calc($iif($prop == cs,$poscs(%m,%k,%h),$pos(%m,%k,%h)) - 1), %g = $gettok($($+($,$calc(%i + 1)),2),$r(1,$numtok($($+($,$calc(%i + 1)),2),46)),46)
      if (%k $iif($prop == cs,isincs,isin) %g) %h = $calc(%h + 1)
      if (%p == -1) break
      %m = $replace($+($left(%m,%p),%g,$mid(%m,$calc(%p + $len(%k) +1),1000)),$+($,chr(46)),.)
    }
    inc %i 2
  }
  $iif($isbit(%j,1),return %m,echo -a $ $+ $iif($prop == cs,rreplacecs,rreplace) $+ (string,substring,newstring1[.newstring2][.newstring3],...))
}
alias rreplacecs { var %i = 1, %m = $0 | while (%i <= %m) { var %l = $addtok(%l,$ [ $+ [ %i ] ],44) | inc %i } | return $rreplace( [ %l ] ).cs }
;les remplacants doivent etre séparé par un point
; exemples :
; //echo -a $rreplace(bababababa,a,4.@,b,ß.8)
; //echo -a $rreplace(il est plaisant de voir,plaisant,folichon.charmant.agréable.amusant,de voir,d'apercevoir.de regarder$chr(46).de matter)

29 septembre 2007 16:46:52 :

.

29 septembre 2007 18:44:32 :

modification pour retirer la restriction d'avoir le mot dans le mot remplacant exemple : //echo -a $rreplace(il est plaisant de voir,de,des d'y,plaisant,folichon charmant agréable amusant,voir,regarder apercevoir)

29 septembre 2007 22:01:28 :

ajout de replacecs qui controle la casse

29 septembre 2007 23:13:27 :

modification pour prendre en compte un groupe de mots

29 septembre 2007 23:20:06 :

.

30 septembre 2007 18:40:23 :

modification pour prise en compte du point et ajout de la syntaxe

30 septembre 2007 18:46:24 :

.

30 septembre 2007 19:06:30 :

modification de rreplacecs

30 septembre 2007 20:19:23 :

.