Ouvrir plusieur fichier "log" dans un memo !

**microbe83** · 31/10/2013, 10h39

Bonjour,
je souhaiterais ouvrir plusieurs fichier "log" dans un mémo pour ensuite exécuter une recherche de chaine dans ce mémo !

j'ai trouver dans l'aide un morceau de code qui ouvre bien le ou les fichiers sélectionner mais ce code pose que la première ligne de chaque fichier or je voudrais ouvrir le ou les fichiers en entier pour les poser dans le mémo.

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
FILE *stream;
  char FirstLine[512];
 
  OpenDialog1->Options.Clear();
  OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist;
  OpenDialog1->Filter = "Fichiers texte (*.txt)|*.txt|Tous fichiers (*.*)|*.*";
  OpenDialog1->FilterIndex = 2; // démarre la boîte de dialogue montrant tous les fichiers
  if (OpenDialog1->Execute())
  {
    for (int I = 0; I < OpenDialog1->Files->Count; I ++)
    {
      stream = fopen(OpenDialog1->Files->Strings[I].c_str(), "r");
 
      if (stream)
      {
        // lire la première ligne du fichier
        fgets(FirstLine, sizeof(FirstLine), stream);
        Memo1->Lines->Append(FirstLine);
        fclose(stream);
      }
    }
  }
 
}

Merci de votre aide !

**totoche76** · 31/10/2013, 11h59

Hello,

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
  if (OpenDialog1->Execute())
  {
    TStringList* pStringList = new TStringList;
    for (int I = 0; I < OpenDialog1->Files->Count; I ++)
    {
      pStringList->LoadFromFile(OpenDialog1->Files->Strings[I]);
      Memo1->Lines->AddStrings(pStringList);
    }
    delete pStringList;
  }

**microbe83** · 31/10/2013, 13h18

Nickel , ça marche

est il possible de mettre une ligne du style "---------- nouveau log -----------"
à chaque log dans le mémo, mais bon c'est facultatif !

la déjà c'est nickel, merci !!

**totoche76** · 31/10/2013, 13h34

Tu l'avais déjà, non ?...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  if (OpenDialog1->Execute())
  {
    TStringList* pStringList = new TStringList;
    for (int I = 0; I < OpenDialog1->Files->Count; I ++)
    {
      pStringList->LoadFromFile(OpenDialog1->Files->Strings[I]);
      Memo1->Lines->Append("..... http://docwiki.embarcadero.com/Libraries/XE5/en/Vcl.StdCtrls.TMemo.Lines .....");
      Memo1->Lines->AddStrings(pStringList);
    }
    delete pStringList;
  }