работа с бинарными файлами

[v-adix]

если даже переписать весь файл в другой "по-байтным" методом, то файл, который в результате получается, больше исходного на несколько байтов. с чем это связано?

[corgi]

в конец файла добавляется 2 байта - обозначает конец файла

[RayShade]

Поправка - EOF это один байт, равен chr(26)

[Mikle]

если переписать весь файл в другой "по-байтным" методом
то получится в точности такой же файл. Ошибка где-то в алгоритме. Например:
For n=0 to Len(File1)
get#File1,,Byte1
put#File2,,Byte1
Next n
даст прирост на 1 байт, так как нужно:
For n=1 to Len(File1)
либо:
For n=0 to Len(File1)-1

[Sebas]

Да вы небось через стринг переносите?????
Понятное дело, Unicode...

[v-adix]

понятно...
тоесть, надо делать не так:

For i = 1 to FileLen(исходныйфайл)

a так:

for i = 1 to FileLen(исходныйфайл) - 1

чтобы не переписать EOF из исходного файла в свой (да и ещё свой добавить). я правильно понял?

[corgi]

нет, у тебя в файле n символов значит ты должен устроить for от 1 до n или от 0 до n-1

то есть For i = 1 to FileLen(исходныйфайл) - правильно

[ShadowCaster]

Используй следующее:

Sub CopyF(f1, f2)
dim b as byte ' Ты на верное забыл объявить его байтом

open f1 for binary as #1
open f2 for binary as #2

do until lof(1)+1<=seek(1)
get #1,,b
put #2,,b
loop
close #1, #2
end sub

или:

Sub CopyF2(f1, f2)
dim s as string

open f1 for binary as #1
s = space(lof(1))
get #1,,s
close #1
open f2 for binary as #1
put #1,,s
close #1
end sub

[v-adix]

всё работает
спасибо