Fichier txt et richEdit [BCB6]

Version imprimable

16/07/2007, 09h59
Draner

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.

Citation:

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

Je sait par expérience qu’il faut faire quelque chose comme :
Code:

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. :king:

Cordialement.

Salut,

Pour ma part, je ferai ceci:

Code:

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+ :)

16/07/2007, 16h22
Draner

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.

Re-Bonjour,

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

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 ...

16/07/2007, 23h40
Draner

Et bien ca ne marche pas mieux 8O
Peut être demain je trouverais une solution :king:
Merci quand même ;)
17/07/2007, 00h12
ero-sennin

Post ton code afin que l'on puisse regarder où ca coince ...

Ok...

Code:

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 :king:
Cordialement.

17/07/2007, 15h24
ero-sennin
L'erreur est ici :

Code:

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:

1 2 3 4 5 6 7 8 if(FileExists(CheminInformations)) { ShowMessage("Erreur! Fichier existant"); } else { ShowMessage("Erreur! Fichier inexistant"); }
17/07/2007, 16h18
Draner

Effectivement ca marche impécable :)
Merci pour cet aide :king:
17/07/2007, 16h29
ero-sennin

Pas de soucis, ça fait toujours plaisir d'aider ;)