Comment remplacer un texte ?

**EssaiEncore** · 08/12/2005, 11h46

bonjour,

Je dispose d'un fichier htm, dans celui-ci, j'ai inseré un texte : [ARBRESCENCE_SUIVI_PROGRAMME].
Dans delphi, j'ai un code qui s'ecrit dans un Memo;
Je voudrais pouvoir mettre le resultat de mon memo dans le texte [ARBRESCENCE_SUIVI_PROGRAMME].

j'ai essayé :

Code :

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

1
2
3
4
5
6
7
 
var 
 Temp : Tstrings;
 ....
Temp.LoadFromFile('FRAME.txt');
AnsiReplaceStr(Temp.Text,'[ARBORESCENCE_SUIVI_PROGRAMME]',Memo1.Lines.text);
Temp.savetofile('SUIVI_PROGRAMME.htm');

Quand je compile, il n'y a pas d'erreur, cependant quand j'execute, ma premiere ligne me renvoie une erreur (Violation d'accès).

Merci d'avance

**tourlourou** · 08/12/2005, 11h55

Code :

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

AnsiReplaceStr(Temp.Text,'[ARBORESCENCE_SUIVI_PROGRAMME]',[b]Memo1.text[/b]);

**LadyWasky** · 08/12/2005, 11h58

Déclares ta variable Temp en tant que TstringList et non en tant que Tstrings (TStrings est une classe abstraite)

**EssaiEncore** · 09/12/2005, 09h21

Merci... désolé du retard mais c la folie au bureau...ca plante de partout...
Dès que je peux, je vous tiens au courant.

**EssaiEncore** · 09/12/2005, 11h15

Cela ne marche toujours pas malgré votre aide.
Je reexplique:
J'ai un fichier texte contenant :

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
16
17
18
19
20
21
22
 
<HTML>
<HEAD>
<TITLE>
Suivi de programme
</TITLE>
</HEAD>
<BODY>
<CENTER> <H1> 
Arborescence </H1> 
</CENTER>
<script 
type="text/javascript">
function Go(){return}
 
 
 [**ARBORESCENCE_SUIVI_PROGRAMME**] 
... reste du code JS
 
</script>
</body>
</html>

sous delphi, je charge ce fichier texte, remplace [**ARBORESCENCE_SUIVI_PROGRAMME**] par le contenu de mon memo
et sauvegarde sous un nom de fichier SUIVI_PROGRAMME.htm.

Code :

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

1
2
3
4
5
6
 
Temp := TstringList.Create;
Temp.LoadFromFile('FRAME.txt');
AnsiReplaceText(Temp.Text,'[**ARBORESCENCE_SUIVI_PROGRAMME**]',Memo1.Lines.text);
Temp.SaveToFile('SUIVI_PROGRAMME.htm');
Temp.Free;

Cependant dans mon fichier SUIVI_PROGRAMME.htm, il y a toujours [**ARBORESCENCE_SUIVI_PROGRAMME**]et non le contenu de mon memo.

Merci d'avance

**Pedro** · 09/12/2005, 11h19

Salut

Essaie avec AnsiReplaceStr

**LadyWasky** · 09/12/2005, 11h22

Essaies avec :
function

Code :

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

StringReplace(constS,OldPattern,NewPattern:string;Flags:TReplaceFlags):string;

..à la place

**LadyWasky** · 09/12/2005, 11h36

Comme ça :

Code :

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

1
2
3
4
5
6
7
8
var temp:TStringList;
begin
  Temp := TstringList.Create;
  Temp.LoadFromFile('FRAME.txt');
  Temp.Text:=StringReplace(Temp.Text,'[**ARBORESCENCE_SUIVI_PROGRAMME**]',Memo1.Lines.text,[rfReplaceAll]);
  Temp.SaveToFile('SUIVI_PROGRAMME.txt');
  Temp.Free;
end;

**EssaiEncore** · 09/12/2005, 11h42

MERCIIII a tous

Ca marche nikel

Comment remplacer un texte ?

Langage Delphi

Discussions similaires

Partager

Partager