プログラム言語 FreeBasic |
Read_DataS
Read_DataS(Hfile,Lenght)
Function Read_DataS(ByVal fileHandle As HANDLE, ByVal Lenght As Integer) As Byte Ptr
ファイルから、2番目のパラメータで指定された必要なバイト数を、読みます。
文字列配列を読み取るために使います。
PeekS と連携して動作することができます。
関数では、メモリは Lenght+1 の量に割り当てられます。
最後のバイトのゼロが、行の終わりを決定するのに必要です。
メモリは不要になったとき、関数 DEALLOCATE で解放する必要があります。
Hfile - ファイル・ハンドル
Lenght - 読み込むバイト数
Windows , Linux
例:
#Include "window9.bi"
Dim As Byte Ptr data_
Var handle=Create_File("例.txt")
If handle<>-1 Then
Write_String(handle,"FreeBasic a good programming language")
EndIf
Close_file(handle)
handle=Read_file("例.txt")
If handle<>-1 Then
data_=Read_DataS(handle,Size_File(handle))
? PeekS(data_)
EndIf
Close_file(handle)
DeAllocate(data_)
sleep