Set_File_Pointer

File ››
Parent Previous Next

Set_File_Pointer

Синтаксис

sub Set_File_Pointer(ByVal fileHandle As HANDLE,ByVal Pos As Integer, ByVal flag As Integer=1)

Описание

Устанавливает указатель на новую позицию в файле

Параметры

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

Pos - новая позиция в файле (если позиция с минусом указатель движется назад, иначе вперед)

flag - флаг, может быть:
    FILE_BEGIN - отсчет от начала
    FILE_CURRENT - отсчет от текущей позиции
    FILE_END - отсчет от конца

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr , -1) Then
  Write_StringN(handle,"FreeBasic")
  Write_StringN(handle,"-good")
  Write_StringN(handle," programming language")
  Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr , -1) 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)
  Close_file(handle)
EndIf
Sleep

Результат

FreeBasic
11
FreeBasic-good programming language

Created with the Personal Edition of HelpNDoc: Easily create Web Help sites