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

C++Builder Discussion :

Fichier txt et richEdit [BCB6]


Sujet :

C++Builder

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    149
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 149
    Par défaut Fichier txt et richEdit [BCB6]
    Bonjour,
    J’aurais besoin d’une autre indication
    Au démarrage de mon application j’aurais besoin d’ouvrir un fichier txt qui se situe dans un répertoire à la racine de l’exécutable.


    -Application.exe (Application)
    -Informations (Répertoire)
    --Informations.txt (Fichier txt)

    Je sait par expérience qu’il faut faire quelque chose comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
     
    If(fileexists->destination)
      {
                  Ouverture dans un RichEdit…
      }
      else
      {
                  Message d’erreur dans le RichEdit…
      }


    Mais le hic c’est que je ne me rappel pas du tout de la syntaxe ni de comment faire pour que le texte apparaisse comme dans le fichier txt alors que nous sommes dans un RichEdit…

    Je vous remercie pour vos indications.

    Cordialement.

  2. #2
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    Salut,

    Pour ma part, je ferai ceci:

    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
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
      AnsiString Destination;
     
      Destination="C:\\test.txt"; // Le chemin de ton fichier
      if (FileExists(Destination))
      {
        RichEdit1->Lines->LoadFromFile(Destination); // Chargement du fichier dans le RichEdit
      }
      else
      {
        RichEdit1->Lines->Add("Erreur! Fichier inexistant");
        ShowMessage("Erreur! Fichier inexistant"); // Message d'erreur
      }
    }
    J'ai mis 2 messages d'erreurs, l'un dans le RichEdit et l'autre en faisant un ShowMessage ...

    J'espère que c'est bon pour toi ...
    A+

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    149
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 149
    Par défaut
    Actuellement mon fichier est dans un répertoire à la racine de l'exé et le tout est sur "d:". Du coup le fichier est introuvable

    Quelqu'un pourrais me donné une indication pour retourné l'emplacement de l'exé ?

    Merci beaucoup.
    Cordialement.

  4. #4
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    Re-Bonjour,

    Pour te placer dans le répertoire l'application, il faut utiliser la fonction ExtractFilePath ... voici le code :

    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
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
      AnsiString Destination;
     
      Destination=ExtractFilePath(Application->ExeName)+"\\MonDossier\\test.txt"; // Le chemin de ton fichier
      if (FileExists(Destination))
      {
        RichEdit1->Lines->LoadFromFile(Destination); // Chargement du fichier dans le RichEdit
      }
      else
      {
        RichEdit1->Lines->Add("Erreur! Fichier inexistant");
        ShowMessage("Erreur! Fichier inexistant"); // Message d'erreur
      }
    }
    ExtractFilePath() : Extrait le lecteur et le répertoire d'un nom de fichier.
    Application->ExeName : Donne le nom de ton application (ou peut aussi utiliser ParamStr(0)).

    Voilà, bon courage

    Le reste n'a pas changé.
    Si tu veux plus de renseignement, utilise la touche F1 ...

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    149
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 149
    Par défaut
    Et bien ca ne marche pas mieux
    Peut être demain je trouverais une solution
    Merci quand même

  6. #6
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    Post ton code afin que l'on puisse regarder où ca coince ...

  7. #7
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    149
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 149
    Par défaut
    Ok...
    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    void __fastcall TFiche1::FormCreate(TObject *Sender)
    {
       //Au démarrage de l'application
       AnsiString Message = "Bienvenue dans le panel électronique.";        //Message qui s'affichera dans le StatusBar du bas.
       //AnsiString CheminInformations = "\Informations\Informations.txt";
       AnsiString CheminInformations = ExtractFilePath(Application->ExeName)+"\Informations\Informations.txt";   //Chemin ou est situé le fichier d'information.
    
       AnsiString MessageBienvenue;
    
       TabPresentation->Show();   //Force sur l'ongler de présentation
    
       FicheRichEdit1->Clear();   //Efface le RichEdit local
       MessageBienvenue  =  "Bonjour et bienvenue dans le panel électronique.\r";
       MessageBienvenue +=  "Ce panel est dédié au calcul de résistance à mettre en série avec une diode électroluminescente et au calcul de l'hyperbole de dissipation des transistors.\r";
       MessageBienvenue +=  "Le but étant de calculer des valeurs avant d'effectuer un montage électronique qui risquerait de détériorer définitivement les composants mis en œuvre.\r";
       MessageBienvenue +=  "Ce programme se veut avant tout informatif et utile.\r";
       FicheRichEdit1->Text = MessageBienvenue;
    
       InfosRichEdit1->Clear();   //Efface le RichEdit servant à affiché les informations qui est dans un fichier texte.
       if(FileExists(CheminInformations))
       {
          ShowMessage("Erreur! Fichier existant");
       }
       else
       { ShowMessage("Erreur! Fichier inexistant"); }
    
       FicheStatusBar1->Panels->Add();                    //Ajoute un nouvel item
       FicheStatusBar1->Panels->Items[0]->Width = 500;    //Donne la taille de l'item
       FicheStatusBar1->Panels->Items[0]->Text = Message; //Inclue un texte dans l'item
       FicheStatusBar1->Panels->Add();                    //Ajoute un nouvel item
       FicheStatusBar1->Panels->Items[1]->Text = "";      //Inclue un texte dans l'item
    }
    Enfin voila... Rien de bien rare
    Merci quand même pour cette aide
    Cordialement.

  8. #8
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    L'erreur est ici :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     AnsiString CheminInformations = ExtractFilePath(Application->ExeName)+"\\Informations\\Informations.txt";   //Chemin ou est situé le fichier d'information.
    Il te faut doubler les antislashes

    PS:

    Je ne vois pas trop l'utilité de ce passage :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    if(FileExists(CheminInformations))
       {
          ShowMessage("Erreur! Fichier existant");
       }
       else
       { 
          ShowMessage("Erreur! Fichier inexistant"); 
       }

  9. #9
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    149
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 149
    Par défaut
    Effectivement ca marche impécable
    Merci pour cet aide

  10. #10
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    Pas de soucis, ça fait toujours plaisir d'aider

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

Discussions similaires

  1. [SQLServer]Script import fichier .txt
    Par Jenbi dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 25/08/2006, 16h49
  2. remplir des tables a partir de fichiers TXT
    Par jeremie dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 10/03/2004, 14h50
  3. ouverture de fichier txt
    Par juguul dans le forum MFC
    Réponses: 11
    Dernier message: 18/12/2003, 09h44
  4. [langage] prob lecture fichier .txt
    Par martijan dans le forum Langage
    Réponses: 3
    Dernier message: 16/07/2003, 11h08
  5. communication fichier binaire fichier txt
    Par micdie dans le forum C
    Réponses: 3
    Dernier message: 05/12/2002, 00h19

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