Remplacer une sous-chaine par une autre

remplace1(s,a,b):={
local ls,j,(la:=size(a)),(ns:="");
while((j:=inString(s,a))>-1) {
ls:=size(s)-1;
 ns:=ns+s[0..j-1]+b;
 s:=s[j+la..ls];
}
return ns+s;
}:;

remplace(s,a,b):={
local ls,j,(la:=size(a)),(ns:="");
while((j:=inString(s,a))>-1) {
ls:=size(s)-1;
if (j==0) ns:=ns+b;else ns:=ns+s[0..j-1]+b;
if (ls>=j+la) s:=s[j+la..ls];else s:="";
}
return ns+s;
}:;