WriteFile (файл$)
Параметры
файл$ = любой допустимый путь и имя файла. Возвращаемое значение – указатель на файл, который является целым значением (
integer-число)
Описание
Эта команда открывается определенный файл и подготавливает его для записи. Используйте ее для записи собственных файлов конфигурации, сохранения данных игры и т.п. Она также полезна для записи пользовательских типов данных в файл. Указатель на файл, который возвращает функция, является
integer-числом. Операционная система использует его для определения, из какого именно файла надо считывать. Указатель на файл также должен быть использован с такими функциями, как
WriteInt().Если не удалось открыть файл, указатель на файл будет равен 0.
Пример
; Считывание и запись пользовательских типов в файлы, используя ReadFile, WriteFile и CloseFile
; Инициализация некоторых переменных для примера
Type HighScore
Field Name$
Field Score%
Field Level%
End Type
Best.HighScore = New HighScore
BestName = "Марк"
BestScore = 11657
BestLevel = 34
; Открыть файл для записи
fileout = WriteFile("mydata.dat")
; Записать информацию в файл
WriteString( fileout, BestName )
WriteInt( fileout, BestScore )
WriteByte( fileout, BestLevel )
; Закрыть файл
CloseFile( fileout )
; Открыть файл для считывания
filein = ReadFile("mydata.dat")
; Считать наилучший результат (score) из файла
Greatest.HighScore = New HighScore
GreatestName$ = ReadString$( filein )
GreatestScore = ReadInt( filein )
GreatestLevel = ReadByte( filein )
; Закрыть файл, как только считывание закончилось
CloseFile( filein )
Print "Рекорд (HighScore), считанный из файла mydata.dat "
Print
Write "Name = "
Print GreatestName
Write "Score = "
Print GreatestScore
Write "Level = "
Print GreatestLevel
WaitKey()