Показать сообщение отдельно
Старый 03.09.2005, 19:10   #5
alcosholik
 
Сообщений: n/a
ReadShort (указатель_на_файл)

Параметры
указатель_на_файл/поток = переменная, определенная командой OpenFile, ReadFile или OpenTCPStream (версия 1.52 и выше)
Возвращаемое значение – integer-число в диапазоне 0-65535

Описание
Как только вы открыли файл на диске (или поток) для чтения, используйте эту команду для считывания одного short integer (16 бит) значения из файла. Заметьте, что каждое записанное значение использует 2 байта дискового пространства, и первым будет записан «младший» байт. Чтение за пределами конца файла не вызовет ошибку, но каждое считанное значение будет равно 0.

Потоками можно пользоваться только в версии Blitz Basic 1.52 или выше.

Пример
; Чтение и запись файла, используя функции ReadShort и WriteShort

; Инициализировать несколько переменных для примера
Int1% = 10; хранить 10 
Int2% = 365; хранить 365
Int3% = 32767; 32767, максимальное положительное значение типа Short Integer в Blitz Basic )
Int4% = -32768; -32768, максимальное отрицательное значение типа Short Integer в Blitz Basic )

; Открыть файл для записи
fileout = WriteFile("mydata.dat") 

; Записать информацию в файл
WriteShort( fileout, Int1 ) 
WriteShort( fileout, Int2 ) 
WriteShort( fileout, Int3 ) 
WriteShort( fileout, Int4 ) 

; Закрыть файл 
CloseFile( fileout ) 

; Открыть файл для чтения 
filein = ReadFile("mydata.dat") 

Read1 = ReadShort( filein ) 
Read2 = ReadShort( filein ) 
Read3 = ReadShort( filein ) 
Read4 = ReadShort( filein ) 

; Закрыть файл после завершения чтения 
CloseFile( filein ) 

Print "Данные типа Short Integer, считанные из файла mydata.dat " 
Print Read1 
Print Read2 
Print Read3 
Print Read4 

WaitKey()
 
Ответить с цитированием