IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Comment remplacer un texte ?


Sujet :

Langage Delphi

  1. #1
    Membre confirmé Avatar de EssaiEncore
    Inscrit en
    Janvier 2005
    Messages
    144
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 144
    Par défaut Comment remplacer un texte ?
    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

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 924
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 924
    Billets dans le blog
    6
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    AnsiReplaceStr(Temp.Text,'[ARBORESCENCE_SUIVI_PROGRAMME]',[b]Memo1.text[/b]);
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre Expert
    Avatar de LadyWasky
    Femme Profil pro
    Inscrit en
    Juin 2004
    Messages
    2 932
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 54
    Localisation : France, Hauts de Seine (Île de France)

    Informations forums :
    Inscription : Juin 2004
    Messages : 2 932
    Par défaut
    Déclares ta variable Temp en tant que TstringList et non en tant que Tstrings (TStrings est une classe abstraite)

  4. #4
    Membre confirmé Avatar de EssaiEncore
    Inscrit en
    Janvier 2005
    Messages
    144
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 144
    Par défaut
    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.

  5. #5
    Membre confirmé Avatar de EssaiEncore
    Inscrit en
    Janvier 2005
    Messages
    144
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 144
    Par défaut
    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

  6. #6
    Rédacteur
    Avatar de Pedro
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    5 411
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 5 411
    Par défaut
    Salut
    Essaie avec AnsiReplaceStr
    Pedro
    Aucune réponse aux sollicitations techniques par MP

    Faut pas attendre d'en avoir besoin pour s'en servir... (Lucien Stéphane)

    Les pages Source C'est bon. Mangez-en!
    Le défi Delphi
    Règles du forum - FAQ Delphi - Pensez au chtit
    Aéroclub Bastia Saint-Exupéry

  7. #7
    Membre Expert
    Avatar de LadyWasky
    Femme Profil pro
    Inscrit en
    Juin 2004
    Messages
    2 932
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 54
    Localisation : France, Hauts de Seine (Île de France)

    Informations forums :
    Inscription : Juin 2004
    Messages : 2 932
    Par défaut
    Essaies avec :
    function
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    StringReplace(constS,OldPattern,NewPattern:string;Flags:TReplaceFlags):string;
    ..à la place

  8. #8
    Membre Expert
    Avatar de LadyWasky
    Femme Profil pro
    Inscrit en
    Juin 2004
    Messages
    2 932
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 54
    Localisation : France, Hauts de Seine (Île de France)

    Informations forums :
    Inscription : Juin 2004
    Messages : 2 932
    Par défaut
    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;

  9. #9
    Membre confirmé Avatar de EssaiEncore
    Inscrit en
    Janvier 2005
    Messages
    144
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 144
    Par défaut
    MERCIIII a tous
    Ca marche nikel

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 17/12/2007, 18h41
  2. Réponses: 10
    Dernier message: 29/04/2006, 10h40
  3. Réponses: 3
    Dernier message: 27/06/2005, 16h24
  4. Réponses: 5
    Dernier message: 25/01/2005, 14h26
  5. comment remplacer une partie de texte dans un champs
    Par patlapi dans le forum Paradox
    Réponses: 4
    Dernier message: 20/11/2003, 14h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo