 Работа с текстовыми файлами |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| Clerick |
 1.10.2006 16:32
Сообщение
#1
|
 студент..  Группа: Пользователи Сообщений: 287 Пол: Мужской Реальное имя: Дмитрий Репутация:  2   |
Возник вопрос: как при работе с текствоыми файлами, ввести в программу имена сразу несколько файлов, зная что они есть в данной папке, но не вводить их имена с клавиатуры, а искать их в папке?
К примеру, в папке есть 15 файлов, среди них, допустим, три текстовых. Программа должна распознать формат файла и работать только с текстовыми. Как это реализовать? Сообщение отредактировано: Clerick - 1.10.2006 16:34 -------------------- После дождя обязательно выглянет солнце)
|
   |
 
|
| klem4 |
1.10.2006 16:52
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Поиск -> "FindFirst" либо "FindNext"
либо Учебник -> (модуль DOS - работа с каталогами и файлами) -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Clerick |
1.10.2006 17:48
Сообщение
#3
|
|
студент.. Группа: Пользователи Сообщений: 287 Пол: Мужской Реальное имя: Дмитрий Репутация: 2 |
Спасибо!
 -------------------- После дождя обязательно выглянет солнце)
|
|
|
|
| Clerick |
2.10.2006 14:22
Сообщение
#4
|
|
студент.. Группа: Пользователи Сообщений: 287 Пол: Мужской Реальное имя: Дмитрий Репутация: 2 |
Просьба пояснить код..
uses dos;
var
DirInfo: SearchRec; {Что это за тип переменных?}
s: string;
begin
readln(s); { например, '*.pas' }
FindFirst(s, Archive, DirInfo); {как понять эту строку???}
while DosError = 0 do {Что значит DosError}
begin
Writeln(DirInfo.Name); {DirInfo.name ???}
FindNext(DirInfo);
end;
end.
И как в дальнейшем эти найденные файлы можно "засунуть" в программу? Сообщение отредактировано: volvo - 3.11.2006 19:04 -------------------- После дождя обязательно выглянет солнце)
|
|
|
|
| klem4 |
2.10.2006 16:19
Сообщение
#5
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Хелп в Паскале не работает ?
 Переписывать текст от туда сюда нету ни малейшего желания. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Clerick |
2.10.2006 19:30
Сообщение
#6
|
|
студент.. Группа: Пользователи Сообщений: 287 Пол: Мужской Реальное имя: Дмитрий Репутация: 2 |
Цитата(klem4 @ 2.10.2006 19:19)  Хелп в Паскале не работает ? Переписывать текст от туда сюда нету ни малейшего желания. Блл...н, совсем забыл..  Сообщение отредактировано: Clerick - 2.10.2006 19:31 -------------------- После дождя обязательно выглянет солнце)
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 0:42 |