Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Karakurt
0 / 0 / 1
Регистрация: 26.07.2012
Сообщений: 23
#1

Поиск текстового файла по имени

26.05.2015, 23:14. Просмотров 950. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста организовать поиск файла

Задание:
Найти на жестком диске компьютера все файлы с заданным именем (одноименные файлы могут находиться в разных папках), поочередно вывести на экран их содержимое. Если ни одного файла не найдено, выдать сообщение.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 23:14
Ответы с готовыми решениями:

Добавить ввод имени файла с клавиатуры
Народ,помогите,как организовать ввод имени файла с клавиатуры? begin var...

сортировка текстового файла
Ребят, помогите составить процедуру сортировки строк текстового файла по...

программа с текстового файла
Помогите с задачами. 1.Дан текстовый файл, содержащий данные о студентах:...

Редактирование текстового файла
Народ мне надо сделать чтобы паскаль открывал текстовый файл который в...

Зашифровка текстового файла
Товарищи, нужно написать простой код, желательно на pascal, с помощью которого...

2
Joy
Эксперт Pascal/Delphi
2133 / 1173 / 1423
Регистрация: 29.08.2014
Сообщений: 4,271
27.05.2015, 07:58 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses System.IO;
var
  find:boolean;
 
procedure Search(d:directoryinfo;f:string);
begin
  foreach i:fileinfo in d.GetFiles do
    if UpperCase(f)=UpperCase(i.name) then begin 
      writeln(i.FullName);
      find:=true;
      writeln(&File.ReadAllText(i.FullName));
    end;  
  foreach dd:DirectoryInfo in d.GetDirectories do Search(dd,f);
end;
 
begin
  var di:directoryinfo=new DirectoryInfo('c:\');
  find:=false;
  Search(di,'eee.txt');
  if not find then writeln('Файлы не найдены');
end.
Добавлено через 1 минуту
тестовый прогон:
c:\Program Files\eee.txt
finded
me
c:\Program Files\DirectX\eee.txt
new
1
Karakurt
0 / 0 / 1
Регистрация: 26.07.2012
Сообщений: 23
28.05.2015, 13:24  [ТС] #3
Joy, Можешь пожалуйста немного пояснить как работает код?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2015, 13:24

Печать текстового файла
Задача разработать программу печать текстового файла с размещением текста по...

Обработка текстового файла
имеется файл ,содержащий столбик английских слов. -создать процедуру чтения и...

Возращение имени исполняемого в данный момент файла
Необходимо узнать имя исполняемой сейчас программы, работающее и для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru