Remplacer un caractère dans une chaîne [Résolu]
Fred_Ca_Pulse
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
A voir également:
- Delphi uniquestring
- Remplacer un caractere dans une chaine de caractere - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Remplacer un caractére dans un chaine - Codes sources - PHP (Chaînes de caractères)
- Delphi / Pascal : Remplacer des caractères d'une chaine - CodeS SourceS - Guide
- Remplacer énième caractère d'une chaine. ✓ - Forum - Visual Basic 6
- Remplacement de caractère dans une chaine ✓ - Forum - Javascript / DHTML
20/25 réponses
Meilleure réponse
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
Effectivement Jinh a raison :
- sa procédure marche
- le "@SChaine[1]" doit bien être équivalent à "UniqueString" : la vitesse d'exécution est la même
Cependant cette vitesse ne semble pas pouvoir être meilleure que celle de la version fonction :
- environ 10% moins rapide sur mes tests
- dans les 2 cas la chaîne résultante doit être allouée : mais en fonction la copie des caractères ne nécessite qu'une passe au lieu de 2
Il semble que le problème est le suivant :
- soit le cas simple
STest1 := 'toto';
STest2 := STest1; // Poiteur sur la même zone mémoire pour le moment !
CaractereRemplacerP( 'o', 'a', STest2 );
- si la procédure faisait le remplacement directement (sans UniqueString)
. on aurait au final : STest1 = STest2 = 'tata'
. c'est pas vraiment le but car il ne faut pas modifier STest1
- Delphi est donc très fort (qui en doutait !) : il a raison de planter
- on n'optimise donc rien en transformant la fonction en procédure
- sa procédure marche
- le "@SChaine[1]" doit bien être équivalent à "UniqueString" : la vitesse d'exécution est la même
Cependant cette vitesse ne semble pas pouvoir être meilleure que celle de la version fonction :
- environ 10% moins rapide sur mes tests
- dans les 2 cas la chaîne résultante doit être allouée : mais en fonction la copie des caractères ne nécessite qu'une passe au lieu de 2
Il semble que le problème est le suivant :
- soit le cas simple
STest1 := 'toto';
STest2 := STest1; // Poiteur sur la même zone mémoire pour le moment !
CaractereRemplacerP( 'o', 'a', STest2 );
- si la procédure faisait le remplacement directement (sans UniqueString)
. on aurait au final : STest1 = STest2 = 'tata'
. c'est pas vraiment le but car il ne faut pas modifier STest1
- Delphi est donc très fort (qui en doutait !) : il a raison de planter
- on n'optimise donc rien en transformant la fonction en procédure
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 215
- Date d'inscription
- mardi 29 juillet 2003
- Dernière intervention
- 1 septembre 2006
Très beau bilan ;)!
Je pense qu'en réalité, tu obtiendrais les meilleurs gain en performance en passant par l'asm(sur phidels.com, tu trouveras quelques posts traitant de ce sujet si cela t'intéresse ;)).
j!nH
Je pense qu'en réalité, tu obtiendrais les meilleurs gain en performance en passant par l'asm(sur phidels.com, tu trouveras quelques posts traitant de ce sujet si cela t'intéresse ;)).
j!nH
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
- Messages postés
- 215
- Date d'inscription
- mardi 29 juillet 2003
- Dernière intervention
- 1 septembre 2006
Salut,
L'adresse du premier caractère d'une string Delphi n'est pas équivalent à l'adresse du string elle-même(préambule de 8 octets: compteur de référence + longueur).
Cette version marche, dis nous si les performances sont meilleures(même si je pense que l'appel à @SChaine[1] revient à faire une UniqueString(sTaChaine), puisque cela force à placer l'adresse sur le tas).
procedure CaractereRemplacerP( CSource, CDestination : Char; var SChaine : String );
var
ILong : Longint;
Source : PChar;
begin
ILong := Length( SChaine );
Source := Pointer( @SChaine[1] );
while ILong <> 0 do begin
if Source^ = CSource
then Source^ := CDestination;
Inc( Source );
Dec( ILong );
end;
end;
j!nH
L'adresse du premier caractère d'une string Delphi n'est pas équivalent à l'adresse du string elle-même(préambule de 8 octets: compteur de référence + longueur).
Cette version marche, dis nous si les performances sont meilleures(même si je pense que l'appel à @SChaine[1] revient à faire une UniqueString(sTaChaine), puisque cela force à placer l'adresse sur le tas).
procedure CaractereRemplacerP( CSource, CDestination : Char; var SChaine : String );
var
ILong : Longint;
Source : PChar;
begin
ILong := Length( SChaine );
Source := Pointer( @SChaine[1] );
while ILong <> 0 do begin
if Source^ = CSource
then Source^ := CDestination;
Inc( Source );
Dec( ILong );
end;
end;
j!nH
- Messages postés
- 199
- Date d'inscription
- dimanche 2 mars 2003
- Dernière intervention
- 10 octobre 2006
procedure CaractereRemplacerP( CSource, CDestination : Char; var SChaine : String );
var
Source : PChar;
begin
Source := PChar( SChaine );
while Source^<>#0 do
begin
if Source^ = CSource then Source^ := CDestination;
Inc( Source );
end;
end;
Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...
var
Source : PChar;
begin
Source := PChar( SChaine );
while Source^<>#0 do
begin
if Source^ = CSource then Source^ := CDestination;
Inc( Source );
end;
end;
Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...
- Messages postés
- 447
- Date d'inscription
- jeudi 9 janvier 2003
- Dernière intervention
- 5 février 2015
Emandhal voulait-il dire :
<hr />
procedure CaractereRemplacerP( CSource, CDestination : Char; var SChaine : String );
var
Source : PChar;
begin
Source := Pointer( @SChaine[1] );
while Source^<>#0 do
begin
if Source^ = CSource then Source^ := CDestination;
Inc( Source );
end;
end;
<hr />
DrJerome
<hr />
procedure CaractereRemplacerP( CSource, CDestination : Char; var SChaine : String );
var
Source : PChar;
begin
Source := Pointer( @SChaine[1] );
while Source^<>#0 do
begin
if Source^ = CSource then Source^ := CDestination;
Inc( Source );
end;
end;
<hr />
DrJerome
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
L'asm doit peut-être donner une meilleure performance ... mais j'y connais rien du tout ... alors on va se contenter de la fonction :
function CaractereRemplacer( CSource, CDestination : Char; const SChaine : String ) : String;
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
SetLength( Result, ILong );
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 do begin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ := Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
Qui fonctionne bien. Merci à tous.
function CaractereRemplacer( CSource, CDestination : Char; const SChaine : String ) : String;
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
SetLength( Result, ILong );
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 do begin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ := Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
Qui fonctionne bien. Merci à tous.
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
si j'ai bien compris ta fonction est plus rapide que l'équvalent en procédure
Essaye celle-ci, en fait c'est exactement la même que la fonction mais en procédure
Procedure CaractereRemplacer( CSource, CDestination : Char; const SChaine : String; out result : String );
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
SetLength( Result, ILong );
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 dobegin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ : = Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
// Utilisation :
procedure TfrmMain.Button6Click(Sender: TObject);
Var Tmp : String;
begin
CaractereRemplacer('e', 'i', 'Teste de remplacement de caractères', Tmp);
Label1.Caption := Tmp;
end;
Dis moi ce que ça donne !
@+
Cirec
si j'ai bien compris ta fonction est plus rapide que l'équvalent en procédure
Essaye celle-ci, en fait c'est exactement la même que la fonction mais en procédure
Procedure CaractereRemplacer( CSource, CDestination : Char; const SChaine : String; out result : String );
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
SetLength( Result, ILong );
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 dobegin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ : = Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
// Utilisation :
procedure TfrmMain.Button6Click(Sender: TObject);
Var Tmp : String;
begin
CaractereRemplacer('e', 'i', 'Teste de remplacement de caractères', Tmp);
Label1.Caption := Tmp;
end;
Dis moi ce que ça donne !
@+
Cirec
- Messages postés
- 22
- Date d'inscription
- mercredi 15 mars 2006
- Dernière intervention
- 19 juin 2008
Effectivement Cirec, ta procédure ne marche pas dans le cas d'appels du type :
Tmp := 'Teste de remplacement de caractères';
CaractereRemplacer('e', 'i', Tmp, Tmp);
La variable de sortie est mise à vide.
Dommage car effectivement dans le cas que tu donne les performances sont meilleures que ma fonction initiale.
Par contre j'ai essayé :
procedure CaractereRemplacer( CSource, CDestination : Char; const SChaine : String; var Result : String );
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
if Length( Result ) <> ILong
then SetLength( Result, ILong ); // Réallocation si nécessaire
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 do begin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ := Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
Sur un appel du type
CaractereRemplacer('e', 'i', Tmp, Tmp);
cela donne une superbe démonstration du même plantage que ma procédure initiale (celle sans UniqueString) :
'Violation d'accès'.
Et effectivement là çà me parait tout à fait logique : on veut écrire dans une chaîne constante et donc en lecture seule.
Qu'est-ce qu'ils sont durs à gober ces fichus pointeurs !
Tmp := 'Teste de remplacement de caractères';
CaractereRemplacer('e', 'i', Tmp, Tmp);
La variable de sortie est mise à vide.
Dommage car effectivement dans le cas que tu donne les performances sont meilleures que ma fonction initiale.
Par contre j'ai essayé :
procedure CaractereRemplacer( CSource, CDestination : Char; const SChaine : String; var Result : String );
var
ILong : Longint;
Source, Dest : PChar;
begin
ILong := Length( SChaine );
if Length( Result ) <> ILong
then SetLength( Result, ILong ); // Réallocation si nécessaire
Source := Pointer( SChaine );
Dest := Pointer( Result );
while ILong <> 0 do begin
if Source^ = CSource
then Dest^ := CDestination
else Dest^ := Source^;
Inc( Source );
Inc( Dest );
Dec( ILong );
end;
end;
Sur un appel du type
CaractereRemplacer('e', 'i', Tmp, Tmp);
cela donne une superbe démonstration du même plantage que ma procédure initiale (celle sans UniqueString) :
'Violation d'accès'.
Et effectivement là çà me parait tout à fait logique : on veut écrire dans une chaîne constante et donc en lecture seule.
Qu'est-ce qu'ils sont durs à gober ces fichus pointeurs !
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Dernière intervention
- 2 janvier 2019
28.3 .. 29.8 ms pour 100Kr
// S, cOld et cNew en const = -37..62 ms pour 100Kr
function ReplaceChar(const S : string; const cOld, cNew : Char) : String;
var
pResult : PChar;
i : integer;
begin
SetLength(Result,Length(S));
// ne pas utiliser de PChar sur S = -8..14 ms pour 100Kr
pResult := pChar(Result);
i := 1;
// repeat plus rapide que while = -10..40 ms pour 100Kr
repeat
// assignation directe du caractere = -1..3 ms pour 100Kr
pResult[0] := S[i];
if pResult[0] = cOld then
pResult[0] := cNew;
inc(pResult);
inc(i);
until S[i] = #0;
end;
// S, cOld et cNew en const = -37..62 ms pour 100Kr
function ReplaceChar(const S : string; const cOld, cNew : Char) : String;
var
pResult : PChar;
i : integer;
begin
SetLength(Result,Length(S));
// ne pas utiliser de PChar sur S = -8..14 ms pour 100Kr
pResult := pChar(Result);
i := 1;
// repeat plus rapide que while = -10..40 ms pour 100Kr
repeat
// assignation directe du caractere = -1..3 ms pour 100Kr
pResult[0] := S[i];
if pResult[0] = cOld then
pResult[0] := cNew;
inc(pResult);
inc(i);
until S[i] = #0;
end;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.