Удаление байтов из файла - VB
Формулировка задачи:
Доброго времени суток.
Вообщем имеется файл весом 20 байт(может быть и 100 метров и более).
Как удалить(исключить) из него байты с 5 по 10, не загружая файл в память?
Или создать его копию, в которой будут отсутствовать указанные байты?
P.S: Мелкие файлы отлично грузятся в байтовый массив, и оттуда всё просто сохраняется,
но если файл более 10 метров, прога впадает в ступор.
Посоветуйте как быть?
Решение задачи: «Удаление байтов из файла»
textual
Листинг программы
Dim buffer() As Byte Dim f As Long Dim s As Long s = FileLen("in.bin") ReDim buffer(1 To s) f = FreeFile Open "in.bin" For Binary As #f Get f, , buffer Close #f f = FreeFile Open "out.bin" For Binary As #f Put f, , buffer Close #f
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д