Редактирование бинарных файлов

[Grom]

Как можно заменить внутри б/файла одну часто повторяющуюся строку на другую?

[alibek]

А как ты пытался это сделать?

[Lumen]

Можно считать файл в строку, предварительно выделив под нее память исходя из размера файла и заполнив её Chr(0), потом пройтись Replace'ом...

[Хакер]

Но лучше в массив байтов.

[awl100Alex]

Grom
Интересно, зачем это тебе понадобилось???
На самом деле такая задача решается просто. Берем некий бинарный файл «Binary.file» в 79 байт, открываем его
в Скачать WinHex 11.6 Rus Help и замечаем некую повторяющуюся последовательность двух байт (EF D8) в разных местах файла. Пишем код для замены...

Код: Выделить всё

'Инициируем нумерацию массивов с единицы, чтобы исключить искажения сигнатур...
Option Base 1
'Создаем динамические массивы...
Dim Signature() As Byte    'Сигнатура искомых байтов
Dim ReplaceBytes() As Byte 'Сигнатура заменяемых байтов
Dim Buffer() As Byte       'Буфер пространства поиска

Private Sub Form_Load()
'Откроем файл для двоичного доступа...
FileNumber = FreeFile 'Получаем свободный файловый номер
Open App.Path & "\" & "Binary.file" For Binary As FileNumber

'Переопределяем массивы и загружаем сигнатуры, как последовательности байтов
ReDim Signature(2) As Byte
For b = 1 To 2
  Signature(b) = Choose(b, &HEF, &HD8) 'Два искомых байта - EF D8
Next b

ReDim ReplaceBytes(2) As Byte
For b = 1 To 2
  ReplaceBytes(b) = Choose(b, &HDA, &HDA) 'Байты замены - DA DA
Next b

ReDim Buffer(LOF(FileNumber))
Get FileNumber, , Buffer 'Загружаем байты Binary.file в массив пространства поиска

Seek FileNumber, 1 'Устанавливаем позицию в начало, далее смещение автоматическое
1:  Pos = InStrB(Seek(FileNumber), Buffer(), Signature(), vbBinaryCompare)
  If Pos Then 'Если позиция не равна нулю, искомая сигнатура найдена...
   Put FileNumber, Pos, ReplaceBytes 'Заменяем байты сигнатуры
   GoTo 1
  End If
 
Close FileNumber
End
End Sub

Вот и все! Результаты и сам проект см. в приложении...
Желаю удачи!

P.S.
Lumen
А вот Replace(Buffer(), Signature(), ReplaceBytes(), 1, -1, vbBinaryCompare)
– ведет себя как-то загадочно... Где меняет байты, а где просто тупо пропускает и хоть тресни.
Видимо есть какие-то условия, которые нужно дополнительно учитывать??? Не знаю...