Remplacer un caractère par un autre

Liste de mes programmes et cours. · de **NspireCas** » 19 Mai 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 · de **davidElmaleh** » 19 Mai 2014, 17:57

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

)

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

Petite fonction en TI-nspire basic

:

Code: Tout sélectionner: 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. · de **NspireCas** » 19 Mai 2014, 19:49

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

.

→ **MyCalcs** profile · de **Bisam** » 20 Mai 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: Tout sélectionner: 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