| файл$
= любой допустимый путь и имя файла. Возвращаемое значение – указатель
на файл, который используется другими файловыми командами |
| Эта
команда открывает определенный файл и подготавливает его для изменений.
Файл должен существовать, так как функция не создаст новый. Используя FilePos и SeekFile, можно определить и изменить позицию внутри файла, который открыт для чтения или записи. Это позволяет прочитать и изменить файл без необходимости создания его копии или работы через весь файл последовательно. Может пригодиться, если вы создали файл с базой данных и хотите найти и изменить только несколько записей в нем. Указатель на файл, который возвращает функция, это integer-число. Оно используется операционной системой для определения, какой именно файл надо прочитать и записать, и может быть использовано в таких функциях, как ReadInt() и WriteInt(). Примечание: нужно проявлять большую осторожность при изменении файлов, которые содержат строки (тип string), так как у них нет фиксированной длины. Смотрите также: ReadFile, WriteFile, CloseFile, SeekFile. |
| ; Правка фрагмента файла, используя OpenFile, SeekFile и
WriteInt ; Открыть/создать файл для записи fileout = WriteFile("mydata.dat") ; Записать информацию в файл WriteInt( fileout, 1 ) WriteInt( fileout, 2 ) WriteInt( fileout, 3 ) WriteInt( fileout, 4 ) WriteInt( fileout, 5 ) ; Закрыть файл CloseFile( fileout ) DisplayFile( "Файл без изменений", “mydata.dat" ) ; Открыть файл и изменить третье integer-число file = OpenFile("mydata.dat") SeekFile( file, 8 ); Переместиться к третьему integer-числу в файле WriteInt( file, 9999 ); Заменить его значение на 9999 CloseFile( file ) DisplayFile( "Файл после правки", "mydata.dat" ) WaitKey() ; **** Определения функций **** ; Прочитать файл и вывести содержимое на экран Function DisplayFile( Tittle$, Filename$ ) Print tittle$ filein = ReadFile( Filename$ ) While Not Eof( filein ) Number = ReadInt( filein ) Print Number Wend CloseFile( filein ) End Function |