OpenFile (файл$)
Параметры
файл$ = любой допустимый путь и имя файла. Возвращаемое значение – указатель на файл, который используется другими файловыми командами
Описание
Эта команда открывает определенный файл и подготавливает его для изменений. Файл должен существовать, так как функция не создаст новый.
Используя
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 )
Print
End Function