Discussion :

[User]

Bonjour tout le monde,

j'ai un probleme avec la fonction AnsiReplaceStr:

voici un bout de code pour illustrer:

Code :

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

1
2
3
4
5
if (PosEx(SubChaine,Chaine) <> 0) then
begin
...
Chaine=AnsiReplaceStr(Chaine,SubChaine,'hello');
end;

quand je trace ce code avec le debugger je m'apercois que par moment quand il trouve la SubChaine dans la Chaine (PosEx<>0), il execute bien la fonction AnsiReplaceStr, mais il ne change rien a la Chaine, comme si la fonction Replace ne faisait rien ou comme si il ne trouvait pas la SubChaine dans la Chaine...

merci pour votre aide,

User

[ero-sennin]

Salut,

J'ai essayé ça chez moi, et ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  Chaine,SubChaine:string;
begin
  Chaine:='La phrase contient bonjour';
  SubChaine:='bonjour';
  if (PosEx(SubChaine,Chaine) <> 0) then
  begin
    Chaine:=AnsiReplaceStr(Chaine,SubChaine,'hello');
  end;
  ShowMessage(Chaine);
end;

Il faut attention à bien respecter la casse avec PosEx et AnsiReplaceStr. Pour ne pas avoir de soucis avec la casse, utilise LowerCase avec PosEx :

Code :

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

if (PosEx(LowerCase(SubChaine),LowerCase(Chaine)) <> 0) then

Voilà!
J'espère que l'affaire sera résolue

[User]

Salut à toi !

Je manipule des chaines de caractères assez énorme, en fait je m'amuse à faire un petit programme de compression de données...

Je copie le contenue d'un fichier texte (par exemple) de 100ko dans une chaine,

je parcours la chaine et je remplace les sous chaines qui se ressemble par des sous chaines plus petites...

je fais plusieurs passages,

le programme fonctionne parfaitement bien pour les fichiers inférieurs à 100ko, mais dès que ca dépasse 100ko ca boucle sans fin a cause de AnsiReplaceStr,

je l'ai donc remplacé par:

Code :

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

1
2
3
4
5
6
7
8
9
10
function ReplaceStr(s,src,dest: string): string;
var l,p: integer;
begin
  l:=length(src);
  repeat
    p:=pos(src,s);
    if p>0 then s:=copy(s,1,p-1)+dest+copy(s,p+l,length(s));
  until p=0;
  result:=s;
end;

code de Pascal Jankowski publié sur ce même site..

et la ca marche bien !

le seul problème c'est que c'est lent...

alors je souhaiterai optimiser ce code...

Merci à vous !