Показать сообщение отдельно
Старый 03.09.2005, 19:17   #12
alcosholik
 
Сообщений: n/a
WriteShort (указатель_на_файл/поток, integer_число)

Параметры
указатель_на_файл/поток = переменная, определенная командой OpenFile, WriteFile или OpenTCPStream (версия 1.52 и выше)
integer_число = целое число (может быть использовано дробное число, но оно будет преобразовано в тип integer перед сохранением, сохранится только его целочисленная часть)

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

Потоками можно пользоваться только в версии 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()
 
Ответить с цитированием