プログラム言語 FreeBasic |
Write_WORD
Write_WORD(Handle)
sub Write_Word(ByVal fileHandle As HANDLE, ByVal value As Short)
ファイルに、2バイトの値を書き込む
Handle - ファイル・ハンドル
value - Short 型の値
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Example.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_Word(handle,565)
Close_File(handle)
EndIf
handle=Read_File("Example.txt")
If handle <> Cast(Any Ptr, -1) Then
? Read_Word(handle)
Close_File(handle)
EndIf
Sleep
565
旧例:
#Include "window9.bi"
Var handle=Create_File("例.txt")
If handle Then
Write_Word(handle,565)
Write_Word(handle,4730)
EndIf
Close_file(handle)
handle=Read_file("例.txt")
If handle Then
? Read_Word(handle)
EndIf
Close_file(handle)
sleep