Discussion :

[Chakalaka]

Bonjour,

Je veux remplacer une séquence dans un string par une autre je m'explique
Admettons que j'ai un string du genre "daslkjfe$-dasd-$pojfs" mon but et de trouver les caractères entourer par un indicateur particulier ($- dans mon cas) et de les remplacers par d'autres caractères
Donc comme retour j'aurai "daslkjfe$-MaNouvelleChaine-$pojfs"

Ma question est
Y a til en Delphi une fonction qui détermine la position d,un jeu de caractère particulier ?
Ya til une fonction qui remplace des caractères par d'autre en faisant la validation que je veux faire ? ou bien je dois extraire le dasd manuellement et le substituer par ma nouvelle chaine avec un StringReplace ou équivalent
Y a til une meilleur fonction à utiliser que StringReplace

Merci à tous ce qui partageront leur expérience avec moi

[Lung]

Y a til en Delphi une fonction qui détermine la position d,un jeu de caractère particulier ?

Pos()

[sjrd]

On ne peut plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
function ReplaceBetween(const S: string; Delim: Char; const New: string): string;
var
  StartPos, EndPos: Integer;
begin
  StartPos := Pos(Delim, S)+1;
  EndPos := PosEx(Delim, S, StartPos);
 
  Result := Copy(S, 1, StartPos-1) + New + Copy(S, EndPos+1, MaxInt);
end;

[Chakalaka]

On ne peut plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
function ReplaceBetween(const S: string; Delim: Char; const New: string): string;
var
  StartPos, EndPos: Integer;
begin
  StartPos := Pos(Delim, S)+1;
  EndPos := PosEx(Delim, S, StartPos);
 
  Result := Copy(S, 1, StartPos-1) + New + Copy(S, EndPos+1, MaxInt);
end;

Ohhh merci infiniment j'aurais jamais écrit mielleur que ça merci

[sjrd]

Pense au bouton la prochaine fois