Discussion :

[Andy_24DB]

Bonjour tous le monde
J'ai écrit une fonction (enfin essayé :-) ) qui retire tous les blancs dans une chaine , elle retire des blancs mais pas tous est-ce que quelqu'un a une idée......
J'ai visité le forum et j'ai pas vu que le sujet était déjà traité .....
Voici ma Fct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function retire_tous_les_blancs(var s:string):string;
var k,i:integer;
begin
for i:=0 to length(s) do
   begin
       if s[i]=(' ') then for k:=i to length(s) do s[k]:=s[k+1]
   end;
result:=s;
end;

Merci d'avance
Andy

------
Balise code par Pascail ... Pensez y vous même !

[Alcatîz]

Bonjour !

C'est juste que si tu as deux blancs de suite, lorsque tu as ôté le premier en décalant le reste de la chaîne, ta boucle incrémente i et donc tu ne traites pas le nouveau blanc qui vient de remplacer celui que tu effaces (puisque tu traites le caractère suivant).

Soit la chaîne suivante (les blancs sont remplacés par *) :
AB**CDEF

Lorsque tu arrives au 1er blanc, tu décales le reste de la chaîne :
AB*CDEF

Mais ton i est incrémenté et le test suivant se fait sur le C et non le deuxième blanc !
CQFD.

[Andy_24DB]

Juste !!!!!
Bon ben je repenser mon algo.....
Merci

[tintin22]

deux remarques pour t'aider
-Tu utilises une fonction, et un parametre en sortie (var) ??
puisque tu as le resultat de la fonction, tu peux l'utiliser, et omettre le parametre le var , sinon tu utilises une procedure.
-Ta boucle commence par 0 (0 to Length(s))
remplace le par 1 , car le premier élément (c'est-à-dire le 0) contient la longueur de ta chaîne, donc vaut mieux ne pas y toucher.
-Pour le test (if), Tu concatènes les caractères uniquement quand c'est different de 'blanc'.

[Andy_24DB]

Le parametre var c'etait pour envoyer ma chaine de mon prog principal
direct à la fct qui va la retournée modifiée....

Merci pour le 0 dans la boucle for , je le savais pas du tout !!!
Et ça evitera à mon prof de me le dire :-)

Le concat !!!!!!! C'était clair !!!!!!!

Bon , je recommence demain et je poste l'algo complet comme ça si il y a un autre étudiant que ça interresse.....

Merci Merci BCP Ilyes

[Andy_24DB]

Bingo ça marche mais j'ai utilisé delete et non pas concat , c'est peut-être pas l'algo le plus compétitif mais il marche dans tous las cas (c'est déjà ça)
J'avais réussi un algo qui retirait les espaces au début de la chaine et un autre qui les retirait à la fin de la chaine , mais au milieu c'était vraiment plus dure

En tous cas j'ai 2 versions différentes.....
Si quelqu'un peut me dire qu'elle est la meilleure..... :
La 2ieme travaille + mais ne fait pas appel à la fct DELETE....


VERSION 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function retire_tous_les_blancs(var s:string):string;
var k,i:integer;
   begin
   i:=1;
      while i<>length(s)do
      begin
          if s[i]=(' ')then delete(s,i,1)
             else
               inc(i);
      end;
   result:=s;
   end;

VERSION 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function retire_tous_les_blancs(var s:string):string;
var k,i:integer;
   begin
   i:=1;
       while i<>length(s)do
       begin
            while s[i]=(' ') do
            begin
                for k:=i to length(s) do s[k]:=s[k+1];
            end;
       inc(i);
       end;
    result:=s;
    end;

MERCI BCP Alcatiz et Ilyes

[Andy_24DB]

En fait dans la 1ere version on peut retirer la variable K,
et dans les 2 on peux retirer le VAR de la déclaration , j'ai été trop vite pour poster

Mais même comme ça , elles tournent toutes les 2 .

Andy

[denokan]

une autre solution aurait été de garder la première version mais de parcourir ton string de la fin vers le début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i:=Lenght(s) downto 1 do ...

[M.Dlb]

Tu utilises delphi ? Dans ce cas, pas besoin d'utiliser de variables intermédiaires "result" ( pas besoin de la déclarer, mais on la garde quand même dans la fonction ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function retire_tous_les_blancs(s:string):string;
var i:integer;
var result:string;
begin
i:=1;
result:=s;
while i<=length(result) do if result[i]=' ' then delete(result,i,1) else inc(i);
end;

a+

[Andy_24DB]

Merci tout le monde et maintenant y a meme 3 versions
mais celle de Wormful est surement meilleure que la mienne :o

A+

[tintin22]

Voila une 4eme version, avec la concatenation et sans la fonction Delete !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
function retire_tous_les_blancs(s : string) : string;
var i   : integer;
    Res : string;
begin
     Res:='' ;
     for i:=1 to Length(S) do if s[i]<>' ' then Res:=Res+S[i] ;
     retire_tous_les_blancs:=Res ;
end;

[Andy_24DB]

Merci tous le monde !!!!

[pipistrelle]

Voici une 5e version:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function DeleteSpaces(const Str: string): string;
var
  S: string;
begin
  S:=str;
  while Pos(' ',S)>0 do begin
    Delete(S,Pos(' ',S),1);
  end;
  Result:=S;
end;

Ce qui donne avec
'Jean-Pierre C est un gros PD': 'JeanPierreCestungrosPD'

[Andy_24DB]

Pas mal la boucle while avec le "pos" en condition de continuation.

[pipistrelle]

Ben oui: On ne programme pas comme des PD à SiliconCavings ...

(mes potes, connaissant mon homosexualité, restent sceptiques lorsque je leur dis çà)

[Pascail]

Je pense que le meilleur algo est celui de Ilyes. Simple efficace, 2 ligne de code et dla route !
J'aurais fait comme ça.

Ps : j'ai supprimé ton doublon Ilyes

[LLB]

Oui, la solution de Ilyes me semble la meilleure.

pipistrelle > appeler la fonction pos en boucle est une mauvaise idée. Il doit le recalculer à chaque appel...