|
Вопрос # 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] [Следующая »]
|
min@y™ (статус: Доктор наук), 19 апреля 2011, 20:22 [#21]:
Цитата (Кудя):
Даже завидуя, можно быть экспертом=) 3 комент к цитате неочём ваще. 4 комент к цитате: хехе=) Вру? Утешай себя этим, мне не жалко 5 комент к цитате: утешай=) 6 комент к цитате: Зарабатываешь, прокармливаешь семью, а нуждаешься, это как называется?
Это называется вот так:
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Егор (статус: 10-ый класс), 19 апреля 2011, 20:23 [#22]:
Цитата (Кудя):
то я пишу в ответ, пытаясь открыть тебе второй глаз на меня.
минай, хоть один-то глазик открой, а?
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:24 [#23]:
ну я и так представлял себе, как всё должно работать, я и пытался написать прогу 3 раза, но все они оказались тщетными, к сожалению. Поиск по всем дискам у меня так и не получилось. И уже в последних силах, я обратился к вам=)
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:26 [#24]:
Это называется вот так: Ты начал преувеличивать, с грубой точки зрении - напиздел с коментами на мои соопщения
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 19 апреля 2011, 20:28 [#25]:
Цитата (Кудя):
Но когда ты пишешь обо мне так, что не соответствует самому мне, то я пишу в ответ, пытаясь открыть тебе второй глаз на меня.
Ой, ё, хорошо, что не третий!
Цитата (Егор):
короче, Кудя. или нормальные вопросы задавай. или я отписываюсь от этого оффтопа. был бы классом повыше - вообще закрыл бы вопрос за оффтоп
Чувак дело говорит. Вопрос надо задавать примерно так: "Я хочу сделать ..., у меня не получается ..., потому что не умею/могу/получилось искать информацию в интернете.".
А если серьёзно - всякую задачу привыкай разбивать на НЕЗАВИСИМЫЕ подзадачи, а подзадачи, в свою очередь, тоже разбивать на более мелкие части. И если какая-то из этих частей по какой-то причине не выходит (каменная чаша), то именно по ней и задавать вопрос.
Иначе будет флейм, стёб, троллинг и срач.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 апреля 2011, 20:29 [#26]:
Цитата (Кудя):
Ты начал преувеличивать, с грубой точки зрении - напиздел с коментами на мои соопщения
Ну ты ж первый начал!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 апреля 2011, 20:32 [#27]:
Цитата (Кудя):
напиздел с коментами на мои соопщения
Посмотри мои ответы на нормальные вопросы. Это тебя (я надеюсь) научит правильно их формулировать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Егор (статус: 10-ый класс), 19 апреля 2011, 20:32 [#28]:
Цитата (Кудя):
ну я и так представлял себе, как всё должно работать, я и пытался написать прогу 3 раза, но все они оказались тщетными, к сожалению. Поиск по всем дискам у меня так и не получилось. И уже в последних силах, я обратился к вам=)
где попытки? выкладывай - посмотрим. может там мысли какие дельные были. хоть увидим, умеешь ли ты думать.
Цитата (Кудя):
напиздел с коментами на мои соопщения
мат не поощряется. очень не поощряется. даже минай сдерживается.
жди предупреждения.
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:33 [#29]:
на каком сообщение тебе это показалось? А вопрос по теме: Как разбить задачу на подзадачу и так далее?
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:35 [#30]:
Вопрос я же задал прямой, оформил на примечания, ты начал осквернять мои примечания, и дошли до этого соопщения.
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:36 [#31]:
program excersise204;
uses
Classes,
windows,
SysUtils;
procedure DoIt(const Dir: string);
var
SR: TSearchRec;
begin
SetCurrentDir(Dir);
if FindFirst(Dir + '*.txt', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
begin
RenameFile(SR.Name, 'Ненужныйфайл.txt');
if (SR.Attr and faDirectory) <> 0 then
DoIt(Dir + SR.Name + '\');
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
end.
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:36 [#32]:
вот пример самый нормальный, но он тоже не работает
Think Different. (c)
|
|
|
min@y™ (статус: Доктор наук), 19 апреля 2011, 20:42 [#33]:
Цитата (Кудя):
Вопрос я же задал прямой, оформил на примечания, ты начал осквернять мои примечания, и дошли до этого соопщения.
Твой вопрос в такой вормулировке можно однозначно перефразировать так: "Напишите прогу за меня".
Вообще, я и такое практикую, но небесплатно. Некоторые люди, которым это действительно необходимо, не гнушаются мне платить.
Цитата (Кудя):
А вопрос по теме: Как разбить задачу на подзадачу и так далее?
Твоя задача:
1. Поиск файлов в каталогах по маске:
1.1. Поиск файлов в каталоге
1.2. Фильтрация имён
1.3. Добавление имён в список
2. Переименование файлов
2.1. Переименование файла
2.2. Выбор имени в случае нескольких файлов
3. Вывод результатов
Примерно так.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:44 [#34]:
1.3 Добавление имён в список --- Но как? Form запрещено
Think Different. (c)
|
|
|
Егор (статус: 10-ый класс), 19 апреля 2011, 20:45 [#35]:
Цитата (Кудя):
соопщения сообщения
а программа - это уже дело. есть о чём поговорить.
program excersise204;
uses
Classes,
windows,
SysUtils;
procedure DoIt(const Dir: string);
var
SR: TSearchRec;
begin
SetCurrentDir(Dir);
if FindFirst(Dir + '*.txt', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
begin
RenameFile(SR.Name, AnsiLowerCase(SR.Name));
if (SR.Attr and faDirectory) <> 0 then
DoIt(Dir + SR.Name + '\');
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
// а сам код где?
// типа такого:
// begin
// DoIt('C:');
end.
Цитата (Кудя):
вот пример самый нормальный, но он тоже не работает
что именно не работает? ошибку выдаёт? не запускается? взрывается комп?
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Егор (статус: 10-ый класс), 19 апреля 2011, 20:45 [#36]:
Цитата (Кудя):
1.3 Добавление имён в список --- Но как? Form запрещено при чём здесь форма?
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:46 [#37]:
В том то и дело -- Ошибок нет, запускаеться, комп вроде на терпит, но файлы не переименованы.
Think Different. (c)
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:47 [#38]:
даже на C:/ не переименовывает
Think Different. (c)
|
|
|
Егор (статус: 10-ый класс), 19 апреля 2011, 20:49 [#39]:
это был весь код?
в нём отсутствует та часть, которая всё и запустит.
если не весь, то каким образом вызываешь DoIt?
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Кудя (статус: Посетитель), 19 апреля 2011, 20:49 [#40]:
..
begin
DoIt('C:');
....
непомогло
Think Different. (c)
|
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [7] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
