プログラム言語 FreeBasic |
Write_Data
Write_Data(Hfile, @buffer, Lenght)
Sub Write_Data(ByVal Handle As handle, ByVal pAddress As Any Ptr, ByVal Lenght As Long)
2番目のパラメータで指定されたバッファから、3番目のパラメータで指定された必要量のデータを、書きます。
Hfile - ファイル・ハンドル
@buffer - バッファアドレス
Lenght - 書き込むバイト数
Windows , Linux
例:
#Include "window9.bi"
Dim adf(100) As Integer
For a As Integer=0 To 100
adf(a)=a
Next
Var handle=Create_File("例.txt")
If handle Then
Write_Data(handle,@adf(0),404)
EndIf
Close_file(handle)
handle=Read_file("例.txt")
If handle Then
Var ff=Read_DataA(handle,Size_File(handle))
For a As Integer=1 To Size_File(handle)
? Peek(Byte,ff);
ff+=1
Next
EndIf
Close_file(handle)
sleep