 любимые задачи на файлы. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Haba |
 29.05.2004 15:44
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Репутация:  0   |
:o Граждане паскальщики, откликнитесь! Помогите решить детскую задачку по файлам, плизз, а то - мне писец... Я, как говорится, не волшебник, а только учусь, так что, если поможете, буду очень благодарен.
Итак: __________________________________________________________________ Скопировать содержимое одного файла к другому, при условии, что файл не типизированный. __________________________________________________________________ |
   |
 
|
  |
Ответов(1 - 13)
| trminator |
29.05.2004 15:58
Сообщение
#2
|
|
Четыре квадратика  Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Посмотри в справке по Паскалю слово BlockRead, там есть пример копирования файла.
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
|
|
|
| Werwolf86 |
29.05.2004 15:59
Сообщение
#3
|
 Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
:D там ведь элементарно....
|
|
|
|
| trminator |
29.05.2004 16:06
Сообщение
#4
|
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Так вроде и тут не просят чудес творить...
Haba, ты бы название темы изменил, что ли... -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
|
|
|
| Haba |
29.05.2004 16:07
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
Это где это ваши справки?
|
|
|
|
| trminator |
29.05.2004 16:30
Сообщение
#6
|
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Пишешь BlockRead и жмешь Ctrl-F1.
Код {Blockrd.PAS} {Sample code for the BlockRead and BlockWrite procedures.} uses WinCrt; // вот это в принципе-то не нужно program CopyFile; { Simple, fast file copy program with NO error-checking } var FromF, ToF: file; NumRead, NumWritten: Word; Buf: array[1..2048] of Char; begin Assign(FromF, ParamStr(1)); { Open input file } Reset(FromF, 1); { Record size = 1 } Assign(ToF, ParamStr(2)); { Open output file } Rewrite(ToF, 1); { Record size = 1 } Writeln('Copying ', FileSize(FromF), ' bytes...'); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); Close(FromF); Close(ToF); end. Сообщение отредактировано: trminator - 29.05.2004 16:31 -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
|
|
|
| HelpAusHeaven |
29.05.2004 18:39
Сообщение
#7
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Кстати, читать выгоднее блоками по 512 байт, а не по 2048, т.к. файлы хранятся на винте блоками именно по 512.....
-------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
|
|
|
| HelpAusHeaven |
29.05.2004 18:43
Сообщение
#8
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Цитата(Werwolf86 @ 29.05.04 15:59) :D там ведь элементарно.... Через функцию copy, да? :D -------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
|
|
|
| HelpAusHeaven |
29.05.2004 18:44
Сообщение
#9
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Кстати, тема этого треда не удволетворяет правилам форума, помимо ещё носит в себе и ругательный характер.... где админы "ходют")))))))))))
-------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
|
|
|
| APAL |
30.05.2004 10:07
Сообщение
#10
|
 Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата(HelpAusHeaven @ 29.05.04 19:39) Кстати, читать выгоднее блоками по 512 байт, а не по 2048, т.к. файлы хранятся на винте блоками именно по 512..... Насколько я знаю размер кластера зависит от размера диска! -------------------- |
|
|
|
| Haba |
30.05.2004 17:44
Сообщение
#11
|
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
И ещё: а как данные, содержащиеся в файле, перекопировать в массив?
|
|
|
|
| Haba |
30.05.2004 17:45
Сообщение
#12
|
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
Маленькое уточнение: "...в одномерный массив."
|
|
|
|
| Catty |
30.05.2004 17:56
Сообщение
#13
|
 Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
считываешь по одной компоненте из файла и передаешь в масив
-------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| Altair |
30.05.2004 18:43
Сообщение
#14
|
 Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Файлы - ВКУСНЯТИНА!!!!
ТЕМА ПЕРЕИМЕНОВАННА :P :D -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.06.2025 23:10 |