любимые задачи на файлы. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
любимые задачи на файлы. |
Haba |
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
:o Граждане паскальщики, откликнитесь! Помогите решить детскую задачку по файлам, плизз, а то - мне писец... Я, как говорится, не волшебник, а только учусь, так что, если поможете, буду очень благодарен.
Итак: __________________________________________________________________ Скопировать содержимое одного файла к другому, при условии, что файл не типизированный. __________________________________________________________________ |
trminator |
Сообщение
#2
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Посмотри в справке по Паскалю слово BlockRead, там есть пример копирования файла.
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Werwolf86 |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
:D там ведь элементарно....
|
trminator |
Сообщение
#4
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Так вроде и тут не просят чудес творить...
Haba, ты бы название темы изменил, что ли... -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Haba |
Сообщение
#5
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
Это где это ваши справки?
|
trminator |
Сообщение
#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 - -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
HelpAusHeaven |
Сообщение
#7
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Кстати, читать выгоднее блоками по 512 байт, а не по 2048, т.к. файлы хранятся на винте блоками именно по 512.....
-------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
HelpAusHeaven |
Сообщение
#8
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Цитата(Werwolf86 @ 29.05.04 15:59) :D там ведь элементарно.... Через функцию copy, да? :D -------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
HelpAusHeaven |
Сообщение
#9
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Репутация: 0 |
Кстати, тема этого треда не удволетворяет правилам форума, помимо ещё носит в себе и ругательный характер.... где админы "ходют")))))))))))
-------------------- Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru |
APAL |
Сообщение
#10
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата(HelpAusHeaven @ 29.05.04 19:39) Кстати, читать выгоднее блоками по 512 байт, а не по 2048, т.к. файлы хранятся на винте блоками именно по 512..... Насколько я знаю размер кластера зависит от размера диска! -------------------- |
Haba |
Сообщение
#11
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
И ещё: а как данные, содержащиеся в файле, перекопировать в массив?
|
Haba |
Сообщение
#12
|
Группа: Пользователи Сообщений: 6 Репутация: 0 |
Маленькое уточнение: "...в одномерный массив."
|
Catty |
Сообщение
#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 |
Сообщение
#14
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Файлы - ВКУСНЯТИНА!!!!
ТЕМА ПЕРЕИМЕНОВАННА :P :D -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 4.05.2024 17:39 |