Remplacer un caractère par un autre

Liste de mes programmes et cours. · by **NspireCas** » 19 May 2014, 17:55

Vraiment désolé de t'avoir fais perdre du temps ...

Word a une fonction rechercher et tout remplacer et c'est donc chargé de mes 40000 caractères

Merci encore

→ **MyCalcs** profile · by **davidElmaleh** » 19 May 2014, 17:57

haha ok.. sinon, il y avait aussi le bloc note. (Mais j'étais à fond programmation

)

Liste complète de mes programmes · by **AnToX98** » 19 May 2014, 18:52

Petite fonction en TI-nspire basic

:

Code: Select all: Define replace(str,a,b)= Func :Local i,fstr :fstr:="" :For i,1,dim(str) : If right(left(str,i),1)=a Then : fstr:=fstr&b : Else : fstr:=fstr&right(left(str,i),1) : EndIf :EndFor :Return fstr :EndFunc

Liste de mes programmes et cours. · by **NspireCas** » 19 May 2014, 19:49

Il faudrait que pierrotdu18 l'ajouter à sa bibliothèque de strings alors

.

→ **MyCalcs** profile · by **Bisam** » 20 May 2014, 07:59

On peut faire un peu plus court en Basic, en utilisant la fonction "inString".
Avec cette fonction, on peut même remplacer n'importe quel nombre de caractères par n'importe quel autre nombre de caractères...

Code: Select all: Define replace(str,a,b)= Func Local k,la,lb dim(a)→la dim(b)→lb inString(str,a)→k While k≠0 left(str,k-1)&b&mid(str,k+la+1)→str inString(str,a,k+lb+1)→k EndWhile Return str EndFunc