Function Get_File_Pointer(ByVal fileHandle As HANDLE) As Integer
Возвращает текущую позицию в файле
fileHandle - хендл файла
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle Then
 Write_StringN(handle,"FreeBasic")
 Write_StringN(handle,"-good")
 Write_StringN(handle," programming language")
EndIf
Close_file(handle)
handle=Read_file("Пример.txt")
If handle Then
 ? Read_string(handle)
 ? Get_File_Pointer(Handle)
 Set_File_Pointer(Handle,-Get_File_Pointer(Handle) )
 ? Read_string(handle);
 ? Read_string(handle);
 ? Read_string(handle)
EndIf
Close_file(handle)
sleep
FreeBasic
11
FreeBasic-good programming language
Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator