Показать сообщение отдельно
Старый 03.09.2005, 18:52   #3
alcosholik
 
Сообщений: n/a
ReadFile (файл$)

Параметры
файл$ = любой допустимый путь и имя файла. Возвращаемое значение – указатель на файл, который является целым значением (integer-число)

Описание
Эта команда открывается определенный файл и подготавливает его для чтения. Используйте ее для чтения ваших файлов конфигурации, сохраненных данных игры и т.п. Она также полезна для считывания пользовательских типов данных из файла. Указатель на файл, который возвращает функция, является integer-числом. Операционная система использует его для определения, из какого именно файла надо считывать. Указатель на файл также должен быть использован с такими функциями, как ReadInt(). Если не удалось открыть файл (например, если он не существует), указатель на файл будет равен 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()
 
Ответить с цитированием