Read_DataS

Синтаксис

Function Read_DataS(ByVal fileHandle As HANDLE, ByVal Lenght As Integer) As Byte Ptr

Описание

Читает из файла необходимый объем байт, указанный во 2 параметре. Используется для чтения строкового массива.Может работать в тандеме с PeekS. В самой функции выделяется память в размере Lenght+1. Последний байт нулевой, нужен для определения конца строки. Память необходимо освобождать функцией DeAllocate, когда она больше не требуется.

Параметры

fileHandle - хендл файла

Lenght - кол-во байт для чтения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Byte Ptr data_
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  Write_String(handle,"FreeBasic a good programming language")
  Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
  data_=Read_DataS(handle,Size_File(handle))
  ? PeekS(data_)
  Close_file(handle)
  DeAllocate(data_)
EndIf
Sleep

Результат

FreeBasic a good programming language

Created with the Personal Edition of HelpNDoc: Free help authoring tool