Показать сообщение отдельно
Старый 03.11.2007, 13:44   #1
Virtul
AnyKey`щик
 
Регистрация: 03.11.2007
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
проблемка с WriteByte

скажем вот такой вот код
source_file = OpenFile ("test")
While Not Eof (source_file)
    byte = ReadByte (source_file)
    If byte = 255 Then    
        last_found_byte_pos = FilePos (source_file)
        byte = ReadByte (source_file)
        If byte = 1 Then
            SeekFile (source_file, last_found_byte_pos)
            WriteByte (source_file, 0) 
        EndIf
    EndIf
Wend
CloseFile source_file
End
из трех байт 00 FF 01
делает четыре 00 FF 00 FF
это я вырезал кусочек, в полной версии скрипта WriteByte мне после изменения нужного байта еще два байта из начала файла добавляет... я совсем запутался, откуда это лишнее FF?
(Offline)
 
Ответить с цитированием