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

  1. #1
    Candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    octobre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2017
    Messages : 2
    Points : 3
    Points
    3
    Par défaut remplacer des expressions par autres expressions dans un fichier texte
    Bonjour tout le monde
    je suis une débutante dans la programmation en TCL
    j'ai un projet qui vise en premier temps de chercher des expressions particulières dans un fichier texte et l'enlevés et les remplacés par des autres expressions, ttes c'est opérations doivent être faites dans le même fichier.
    es-que quel qu 'un peut m'aider à réaliser ce programme je serai très reconnaissante :

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    mai 2007
    Messages
    273
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2007
    Messages : 273
    Points : 423
    Points
    423
    Par défaut
    Bonsoir,

    Voici un exemple très simple qui lit un fichier fruit.txt, qui fait les remplacements avec la fonction string map et qui écrit le tout dans un fichier resultat.txt.

    Le fichier fruit.txt
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    pomme poire cerise
    clémentine orange
    mandarine poire poire
    kiwi avocat pamplemousse
    avocat pomme
    fraise framboise noix de coco
    noix de coco
    Le programme :

    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
     
    # Lecture du fichier fruit.txt
    set fp [open fruit.txt r]
    set fi [read $fp]
     
    # Remplacement de quelques mots
    set rep {"pomme" "abeille" "poire" "libellule" \
             "cerise" "fourmie" "kiwi" "moustique" \
             "pamplemousse" "papillon" "noix de coco" "scarabé"}
    set res [string map $rep $fi]
     
    # Ecriture du résultat
    set fo [open resultat.txt w]
    puts $fo $res
    close $fo
    Et le résultat :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    abeille libellule fourmie
    clémentine orange
    mandarine libellule libellule
    moustique avocat papillon
    avocat abeille
    fraise framboise scarabé
    scarabé

Discussions similaires

  1. Supprimer ou remplacer des mots par le vide dans un fichier
    Par hackmed dans le forum Shell et commandes GNU
    Réponses: 1
    Dernier message: 06/08/2015, 21h33
  2. [Lazarus] Sauvegarder des mémos et autres infos dans un fichier texte
    Par joreveur dans le forum Lazarus
    Réponses: 4
    Dernier message: 24/04/2015, 21h33
  3. Réponses: 4
    Dernier message: 20/06/2009, 11h26
  4. Réponses: 10
    Dernier message: 24/11/2008, 13h14
  5. Réponses: 4
    Dernier message: 18/12/2007, 10h56

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