Ouvrir plusieur fichier "log" dans un memo !

Version imprimable

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:

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 !

Hello,

Essaye ceci:

Code:

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;
  }

31/10/2013, 13h18
microbe83

Nickel , ça marche :ccool:

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

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

Code:

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;
  }

31/10/2013, 13h49
microbe83

effectivement, nickel merci !!!
27/04/2015, 12h37
MissHey

Lire plusieurs fichiers sous Builder c++

SVP ,

Quelqu'un peut me donner une fonction me lire plusierus fichiers.txt ? please help

Merci