Поиск файлов

[NewMen]

На каком-то локальном диске находятся необходимые файлы....Написать программу,которая находит эти файлы по первым 5-и символам имени файла.(с такими именами 00001...00030) и вывести на экран True или False....... Помогите,от этого зависит оценка на экзамене....

[Stilet]

Могу предложить :http://www.programmersforum.ru/showt...ighlight=finda

[NewMen]

Спасибо, но мне нужно конкретно! На сетевых дисках Множество файлав и их нужно найти.....(написать прогу)

[Stilet]

Ну может тебе проще обратится к Фрилансерам, и те сделают качественно и быстро за деньги.

[NewMen]

У меня с финансами проблема....Кто нить, Бесплатно сможет?

[zotox]

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

На каком-то локальном диске находятся необходимые файлы....Написать программу,которая находит эти файлы по первым 5-и символам имени файла.(с такими именами 00001...00030) и вывести на экран True или False....... Помогите,от этого зависит оценка на экзамене....

Код (под графический интерфейс):

function findplease(s: string): boolean;
var
 sr: TSearchRec;
 i: integer;
begin
 //Для того, чтобы не было проблем в работе
 if s[length(s)]<>'\' then s[length(s)+1]:='\';

 //Если в директории что-то будет существовать - производим поиск
 //Замечу что в директории всегда будет что-то находится если она существует
 //(я про символы "." и "..")
 if FindFirst(s+'*.*', faAnyFile, sr)=0 then
  begin
    repeat
      //sr.name -> имя файла
      if ((sr.Name='.') or (sr.Name='..')) then
       begin
         Continue;//Нашли символ "." или ".."? -> пробиваем следующие файлы/папки
       end;

      //Нашли директорию? -> Вызываем findplease(s+sr.name+'\');
      if (sr.Attr and faDirectory)<>0 then
       begin
         findplease(s+sr.name+'\');//рекурсия :)
         Continue;
       end
      else
       begin
         //Нашли файл? -> Проверяем соотв. ли он требованиям
         for i:=1 to 30 do
          begin

            if ((i>0) and (i<10)) then
             begin
               if copy(sr.Name, 1, 5)='0000'+inttostr(i) then
                begin
                  form1.memo2.lines.add(s+sr.Name);
                end;
             end;

            if ((i>9) and (i<31)) then
             begin
               if copy(sr.Name, 1, 5)='000'+inttostr(i) then
                begin
                  //Вид: D:\dir\00020.txt
                  form1.memo2.lines.add(s+sr.Name);
                end;
             end;

          end;
       end;

      //FindNext(sr) -> пробивка следующего файла
      //(в структуру sr будет возвращенна информация о файле)
    until FindNext(sr)<>0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 findplease('D:\');
end;

и вывести на экран True или False

Если вы про нашли мы ли все файлы вида 00001... - 00030...
То заводите глобальную int переменную и ставьте вместо form1.memo2.lines.add -> inc (т.е. увел. глоб. переменную)
Ну и в конце, после if FindFirst(s+'*.*', faAnyFile, sr)=0 then
ставим проверу соотв. ли глобальная переменная своему значению (т.е. 30 в нашем случае), и если не соответствует -> то возвращаем false

[NewMen]

Напишите Пожалуйста на Pascal!!!!!! ОЧ ПрошУ!

[ZaRDaK]

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

Напишите Пожалуйста на Pascal!!!!!! ОЧ ПрошУ!

Это надо было написать в первом посте, ага.

[Stilet]

ОЧ ПрошУ!

Что что написано выше подойдет и для паскале с некоторыми поправками.
form1.memo2.lines.add(s+sr.Name); заменить на Writeln(s+sr.Name);

procedure TForm1.Button1Click(Sender: TObject); - убрать вообще и после последнего end поставить точку.
Не забыть в начале написать uses crt,dos;

inttostr можно описать как:

function inttostr(i:integer):String;
var s:string;
begin
 str(i,s);
 inttostr:=s;
end;