|
Вопрос # 5 214/ вопрос закрыт / |
|
Здравствуйте, уважаемые эксперты! Главная моя задача: Совершить поиск txt файлов по папкам C:/1, C:/1/2, C:/1/2/3.......C:/1/2/3/4/5/6/7/8/9 и переименовать их в 'ненужный файл.txt'.
--------------------------------------------------------------------------------------
Примечания:
1. Так, как меня учитель считает продвинутым в сфере программирования, мне дали условие - НЕ использовать memo Т_Т
2. Если у вас нет примеров кода, прошу хотябы подтолкнуть на верный путь(подсказать, с чем иметь дело в данной ситуации)
3. Сильно не толкать(Если вы будете выражаться умными словами, я могу не понять вас).
 |
Вопрос задал: Кудя (статус: Посетитель)
Вопрос отправлен: 19 апреля 2011, 19:18
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 122; последнее сообщение — 27 апреля 2011, 19:15; участников в обсуждении: 4.
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [7] [Следующая »]
|
|
Кудя (статус: Посетитель), 22 апреля 2011, 19:22 [#101]:
а если убрать её, то rewrite будет работать?=)
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 22 апреля 2011, 20:01 [#102]:
а возможно ли сделать рекурсивный поиск, не используя procedure/function?
Think Different. (c)
|
|
min@y™ (статус: Доктор наук), 22 апреля 2011, 20:15 [#103]:
Я тут как раз написал тред для поиска файлов. Подарить?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Егор (статус: 10-ый класс), 22 апреля 2011, 20:35 [#104]:
Цитата (Кудя):
а возможно ли сделать рекурсивный поиск, не используя procedure/function?
угу. только после этого он уже не будет рекурсивным
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
Вадим К (статус: Академик), 22 апреля 2011, 23:05 [#105]:
можно, и он даже будет рекурсивным!
Для тех, кто не верит. представьте себе консольное приложение, которое ищет в каталоге, заданном параметрами командной строки, а для каждого вложенного каталога запускает самого себя, просто передав правильную командную строку и потом дожидается завершения. Рекурсия, но какая!
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Кудя (статус: Посетитель), 22 апреля 2011, 23:42 [#106]:
Прошу показать пример такого поиска(без функций, процедур), Минау, конечно я хочу, чтобы ты подарил, только я потом расшифрую всё, тебе покажу, а ты скажешь, правильно или нет, а то как я буду использовать этот подарок в благих целях?=) Только так я согласен=)
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 23 апреля 2011, 09:02 [#107]:
Цитата (Кудя):
Прошу показать пример такого поиска(без функций, процедур), Минау, конечно я хочу, чтобы ты подарил, только я потом расшифрую всё, тебе покажу, а ты скажешь, правильно или нет, а то как я буду использовать этот подарок в благих целях?=) Только так я согласен=)
Код остался на работе. В понедельник я уезжаю в командировку, вернусь во вторник вечером. До среды подождёшь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Кудя (статус: Посетитель), 23 апреля 2011, 14:07 [#108]:
ну подожду, пока что сам подумаю=)
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 23 апреля 2011, 14:08 [#109]:
Заранее спасибо
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 23 апреля 2011, 14:50 [#110]:
Цитата (Кудя):
Заранее спасибо
Не надо говорить "спасибо" заранее. Это минимизирует энтузиазм.
Цитата (Кудя):
написать Антивирус - мечта всей моей жизни.
Это не ты, случайно, похитил сына Жени Касперского?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Кудя (статус: Посетитель), 24 апреля 2011, 20:59 [#111]:
энтузиазм? Неее, я на прямую благодарю, потому что знаю, что вы не отвернётесь от меня.
Как украли? Я опоздал чтоле? О_О ФАК!!!!!!
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 25 апреля 2011, 19:53 [#112]:
Ребята, а как узнать расширение папки? Если оно у всех папок одинаковое расширение, то скажите какое это расширение.
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 25 апреля 2011, 20:07 [#113]:
program excersise204;
uses
Classes,
windows,
System,
messages,
dialogs,
SysUtils;
var
SRR:TsearchRec;
begin
If FindFirst('C:\*', faDirectory, SRR) = 0 Then
Repeat
//-----------------------------------------------------------------------------
If (SRR.Attr and faDirectory) = faDirectory Then
If (SRR.Name <> '..') and (SRR.Name <> '.') Then
showmessage(SRR.Name);
Until
FindNext(SRR) <> 0;
SysUtils.FindClose(SRR);
showmessage(SRR.Name);
end.
Вот этот код на мой взгляд должен искать все папки в корне диска С. Я проверяю найденное с помощью Showmessage. На практике сначала вышло окно с папкой 1,2,3,4,5...., Заметьте ещё 1showmessage, он повторно должен показать те же самые папки. Не всё так просто=( он показал Экзешники, находящиеся в последнем по счёту найденном каталоге. Как это объяснить???
Think Different. (c)
|
|
|
Вадим К (статус: Академик), 25 апреля 2011, 22:58 [#114]:
После того, как выполнен FindClose, значение переменной SRR будет неопределенным. То есть, там к примеру может быть последний найденный файл или ещё что то. Конечно, глубоко раскопавши внутренности системы, можно "угадать", что там будет, но это удел для магов
И ещё - у папок нет расширения. Точнее, можно называть папку в виде моя_папка.zzy, но для системы это ничего не значит.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Кудя (статус: Посетитель), 26 апреля 2011, 00:56 [#115]:
Спасибо. Теперь похоже будет легче сделать программу.
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 27 апреля 2011, 14:52 [#116]:
Вот тред, как и обещал, в среду.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Кудя (статус: Посетитель), 27 апреля 2011, 17:43 [#117]:
Но веть там используется форма=( +процедуры и функции=(
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 27 апреля 2011, 18:17 [#118]:
Цитата (Кудя):
Но веть там используется форма=( +процедуры и функции=(
Я гляжу, ты специалист по поиску чёрных котов в подвалах при энергетическом кризисе. НУ ГДЕ ТА ФОРМА, ЁПЭРЭСЭТЭ? Глаза разуй, ПЬЮ!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Кудя (статус: Посетитель), 27 апреля 2011, 18:53 [#119]:
Так блин=( Функции и процедуры то точно есть!
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 27 апреля 2011, 19:02 [#120]:
Цитата (Кудя):
Так блин=( Функции и процедуры то точно есть!
А причём тут форма-то?
И чем плохи методы? Это именно методы, а не процедуры и функции.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [7] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
