Discussion :

[walid_kerkoub]

Bonjour à tous,

Je voudrais savoir comment je pourrais remplaçer un mot ou une phrase dans fichier Txt existant par exemple

Fichier Txt :
"je voudrais remplçer par exemple le mot Bonjour par un autre"

Fichier Txt devient :
"je voudrais remplçer par exemple le mot Bonsoir par un autre"

J'ai vu dans le forum un problème qui ressemble au mien mais il s'agissait de remplaçer des lignes entières alors on l'a conséillé d'utiliser une StringList. Mais dans mon cas il s'agit de mots pas des lignes.

Alors qu'est-ce que vous suggérez ?

[Tardiff Jean-François]

Bonjour


Extrait de l'aide Delphi en français.

Remplace toutes les occurrences d'une sous-chaîne par une autre chaîne.

Unité

StrUtils

Catégorie

routines de gestion des chaînes

Syntaxe Delphi :

functionAnsiReplaceStr(constAText,AFromText,AToText:string):string;

Syntaxe C++:

externPACKAGE AnsiString__ fastcallAnsiReplaceStr(constAnsiStringAText,constAnsiStringAFromText,constAnsiString
AToText);

Description

Appelez AnsiReplaceStr pour analyser la chaîne spécifiée par AText et remplacer toutes les occurrences de la chaîne spécifiée par AFromText par la chaîne spécifiée par AToText.Les occurrences de AFromText sont identifiées par une comparaison tenant compte de la casse.L'identification des sous-chaînes n'est pas récursive :si la substitution de AToText aboutit àune nouvelle correspondance de AFromText,celle-ci n'est pas remplacée.

[pinson]

tu peux aussi utliser la fonction StringReplace.

Tu lis ton fichier et le mets dans une TStringList. Ensuite pour chaque chaine de ta TStringList tu fais le replace.

Et ensuite tu réécris ton fichier.

PS : garde ouvert en ecriture ton fichier pendant tout le temps, comme ça tu es sur que personne ne vienne le modifier.

[tourlourou]

Ensuite pour chaque chaine de ta TStringList tu fais le replace

ou une seule fois, avec

Code :

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

 Dest:=StringReplace(Sub, New, StringList.Text, [rfReplaceAll]); // ordre des params à vérifier

[Gaadek]

Pour StringReplace, la syntaxe exacte est la suivante:

Code :

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

Destination := StringReplace(Source, Texte_a_remplacer, Texte_de_remplacement, [rfReplaceall]);

[walid_kerkoub]

Merci à tous ceux qui m'ont aidé, c'était effectivement la fonction qu'il fallait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.Button1Click(Sender: TObject);
var
  i:Integer;
begin 
 
   Self.ListBox1.Items.LoadFromFile('.\Ancien.txt');
 
         For i:=1 to Self.ListBox1.Count-1 do
            begin
               Self.ListBox1.Items.Strings[i]:=StringReplace(Self.ListBox1.Items.Strings[i],'Bonjour','Bonsoir',[rfReplaceAll]);
            end;
 
    Self.ListBox1.Items.SaveToFile('.\Nouveau.txt');
 
end;

Merci encore une fois