NLDSoft
07-10-2002, 18:44
У меня возник вопрос. Есть байтовый массив заполненный какой то информацией после выполнения определённого действия я сохраняю этот массив в файл в бинарном режиме, но в конце добавляется 0 и так всегда. Вопрос как от этого избавится ?
Пример кода:
'Это для считывания файла
Dim bBuffers() Byte
Open "C:\Test.txt" for Biynary as #1
ReDim bBuffer(1 To LOF(1))
Get #1, , bBuffer
Close #1
'Это для записи в файл
Open "C:\Test2.txt" for Biynary as #2
Put#2, , bBuffer
Close #2
Пример кода:
'Это для считывания файла
Dim bBuffers() Byte
Open "C:\Test.txt" for Biynary as #1
ReDim bBuffer(1 To LOF(1))
Get #1, , bBuffer
Close #1
'Это для записи в файл
Open "C:\Test2.txt" for Biynary as #2
Put#2, , bBuffer
Close #2