Алгоритм поиска файлов на компьютере по формату и имени

@heroii2009 · Регистрация: 13.03.2012

Студворк — интернет-сервис помощи студентам

Вообщем есть алгоритм который ищет файлы на пк, по формату и имени :

C++
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
34
35
36
37
38
39
 void ListFiles(AnsiString path, TStrings* List)
{
TSearchRec sr;
if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)
{
 
  if(h == 1)
  {
   Form1->Edit4->Text=path ;
      Form1->Timer1->Enabled = true;
   do
 
     {
         if (sr.Attr &  faDirectory)
          {
              if (sr.Name!=".")
              if  (sr.Name!="..")
              {
                  ListFiles(path+sr.Name+"\\",List);
 
              }
          }
          else
 
          {
           AnsiString  ext=ExtractFileExt(sr.Name);
 
          if  (ext==".")
         Form1->FileListBox1->Items->Add(path+sr.Name);
 
          }
     }
     while  (FindNext(sr) ==  0);
     }
     FindClose(sr);
}
 
    Application->ProcessMessages();
}

все работает если задавать именно имя и формат, либо если задать в строке

C++
1
  if  (ext==".")

к примеру

C++
1
  if  (ext=="1.txt")

оно найдет все файлы в указаной директории с именем "1.txt"
если сделать

C++
1
  if  (ext==".txt")

то найдет все файлы с расширением ".txt" , но если делать

C++
1
  if  (ext=="1.")

все файлы с именем "1" он не находит

как это исправить ?

Ddv122 · 10.06.2013, 17:25

heroii2009, он и не должен т.к
ExtractFileExt
поиск происходит по расширению файла

@ziwn2010 · 10.06.2013, 18:14

Сообщение от Ddv122

heroii2009, он и не должен т.к
ExtractFileExt
поиск происходит по расширению файла

не подскажешь как изменить на поиск по имени ?
я изменил на ExtractFileName, но все равно эффекта 0

Ddv122 · 10.06.2013, 18:19

ziwn2010, На скорую руку)

C++
1
2
3
4
5
6
7
8
    AnsiString disk = Edit1->Text;         
    TSearchRec sear;                      
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {    
            do {
                Log->Lines->Add("Найден: " + disk + sear.Name);
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );

@ziwn2010 · 10.06.2013, 18:38

Сообщение от Ddv122

ziwn2010, На скорую руку)

C++
1
2
3
4
5
6
7
8
    AnsiString disk = Edit1->Text;         
    TSearchRec sear;                      
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {    
            do {
                Log->Lines->Add("Найден: " + disk + sear.Name);
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );

а как ты функцию вызываешь? код кнопки какой подскажи

За пример спс огромный )

Добавлено через 7 минут

Сообщение от ziwn2010

а как ты функцию вызываешь? код кнопки какой подскажи

За пример спс огромный )

не мог бы ты заархивировать проэкт и кинуть мне ? дальше я сам попробую, ибо куча вопросов в которых хочу разобраться )

Ddv122 · 10.06.2013, 18:40

ziwn2010, это и есть код кнопки.Но ищет в одной папке, т.к рекурсию не делал. Просто пища для размышления.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//---------------------------------------------------------------------------
void __fastcall TForm1::PoiskClick(TObject *Sender)
{
    AnsiString disk = Edit1->Text;          
    Log->Clear();
    TSearchRec sear;                    
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {    
            do {
                Log->Lines->Add("Поиск: " + disk + sear.Name);
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );     
    }
//---------------------------------------------------------------------------

@ziwn2010 · 10.06.2013, 18:50

Сообщение от Ddv122

ziwn2010, На скорую руку)

C++
1
2
3
4
5
6
7
8
    AnsiString disk = Edit1->Text;         
    TSearchRec sear;                      
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {    
            do {
                Log->Lines->Add("Найден: " + disk + sear.Name);
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );

все сделал, спасибо огромное

Добавлено через 5 минут

Сообщение от Ddv122

ziwn2010, это и есть код кнопки.Но ищет в одной папке, т.к рекурсию не делал. Просто пища для размышления.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//---------------------------------------------------------------------------
void __fastcall TForm1::PoiskClick(TObject *Sender)
{
    AnsiString disk = Edit1->Text;          
    Log->Clear();
    TSearchRec sear;                    
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {    
            do {
                Log->Lines->Add("Поиск: " + disk + sear.Name);
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );     
    }
//---------------------------------------------------------------------------

я вот только до этого и дошел) Что в одной папке только ищет, буду думать как подправить, это сложно ?

Добавлено через 2 минуты
А вот не подскажешь, я вот получаю в Log, путь полность с именем файла, а как мне разбить на 2 отдельных компонента? на имя с расширением и на полный путь ?

Ddv122 · 10.06.2013, 19:03

я вот только до этого и дошел) Что в одной папке только ищет, буду думать как подправить, это сложно ?

Нет, не сложно

А вот не подскажешь, я вот получаю в Log, путь полность с именем файла, а как мне разбить на 2 отдельных компонента? на имя с расширением и на полный путь ?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString disk = Edit1->Text;
    Log->Clear();
    Log2->Clear();
    TSearchRec sear;
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {
            do {
                Log->Lines->Add("Íàéäåí: " + disk + sear.Name);
                Log2->Lines->Add("Íàéäåí: " + (sear.Name));
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );
    }
//---------------------------------------------------------------------------

@ziwn2010 · 10.06.2013, 19:05

Сообщение от Ddv122

Нет, не сложно

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString disk = Edit1->Text;
    Log->Clear();
    Log2->Clear();
    TSearchRec sear;
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {
            do {
                Log->Lines->Add("Íàéäåí: " + disk + sear.Name);
                Log2->Lines->Add("Íàéäåí: " + (sear.Name));
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );
    }
//---------------------------------------------------------------------------

а я тут пока играюсь, пытаюсь уловить рекурсию папок сделать

@heroii2009 · 10.06.2013, 19:39 **[ТС]**

Сообщение от Ddv122

Нет, не сложно

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString disk = Edit1->Text;
    Log->Clear();
    Log2->Clear();
    TSearchRec sear;
        if ( ! FindFirst( disk + ExtractFileName(Edit2->Text) + "*.*",faAnyFile, sear ) ) {
            do {
                Log->Lines->Add("Íàéäåí: " + disk + sear.Name);
                Log2->Lines->Add("Íàéäåí: " + (sear.Name));
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );
    }
//---------------------------------------------------------------------------

Алгоритм поиска файлов на компьютере по формату и имени

почему так ? строка за строкой идут, но в переменной sr.Name , совсем разные имена, почему так???

Ddv122 · 10.06.2013, 19:41

heroii2009, а откуда же нам знать что вы там на шаманили?

@ziwn2010 · 10.06.2013, 20:29

Сообщение от Ddv122

heroii2009, а откуда же нам знать что вы там на шаманили?

C++
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
34
35
36
37
38
39
void ListFiles(AnsiString path, TStrings* List)
{
TSearchRec sr;
if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)
{
 
  if(h == 1)
  {
   Form1->Edit4->Text=path ;
      Form1->Timer1->Enabled = true;
   do
 
     {
         if (sr.Attr &  faDirectory)
          {
              if (sr.Name!=".")
              if  (sr.Name!="..")
              {
                  ListFiles(path+sr.Name+"\\",List);
 
              }
          }
          else
 
          {
           AnsiString  ext=ExtractFileExt(sr.Name);
 
          if  (ext==".")
         Form1->FileListBox1->Items->Add(path+sr.Name);
 
          }
     }
     while  (FindNext(sr) ==  0);
     }
     FindClose(sr);
}
 
    Application->ProcessMessages();
}

C++
1
2
3
4
          if  (ext==".")
         Form1->FileListBox1->Items->Add(path+sr.Name);
 
          }

C++
1
2
Form1->FileListBox1->Items->Add(sr.Name);
Form1->FileListBox2->Items->Add(sr.Name);

вот так, я не пойму, почему блин....

Ddv122 · 10.06.2013, 20:45

ziwn2010, Вам такое нужно?То я что то уже совсем запутался

@heroii2009 · 10.06.2013, 20:47 **[ТС]**

Сообщение от Ddv122

ziwn2010, Вам такое нужно?То я что то уже совсем запутался

да, только в моем примере
Вы доделали цикл перебора папок ? )) Кодиком поделетесь ?)

@ziwn2010 · 10.06.2013, 21:41

Сообщение от Ddv122

ziwn2010, Вам такое нужно?То я что то уже совсем запутался

Поделитесь пожалуйста кодиком, на поиск с рекурсией

)

Ddv122 · 10.06.2013, 22:38