LOC
 
Возвращает позицию файла, где было выполнено последнее действие чтения/записи файла

Синтаксис

Declare Function LOC ( ByVal filenum As Integer ) As LongInt

Использование

result = LOC( filenum )

Параметры

filenum
Файловый номер открытого файла.

Возвращаемое значение

Возвращает позицию , где было выполнено последнее действие чтения/записи.

Описание

Возвращает позицию, где было выполнено последнее действие чтения/записи файла.

Позиция указывается в записях:
В файлах, открытых FOR RANDOM используется длина записи, заданная при открытии файла
В текстовых файлах (FOR INPUT|OUTPUT|APPEND, допускается длина записи 128 байт.
В файлах, открытых как BINARY используется длина записи 1 байт.

В FreeBASIC позиция файла имеет единичное(1) основание, первая запись файла с позиции 1.

При использовании с последовательного устройства, LOC возвращает количество байт, ожидающих чтения из входного буфера последовательного устройства.

Пример

Dim b As String

If Open Com ("com1:9600,n,8,1,cs,rs,ds,bin" For Binary As #1) <> 0 Then
  Print "unable to open serial port"
  End
End If

Print "Sending command: AT"

Print #1, "AT" + Chr(13, 10);

Sleep 500,1

Print "Response:"

While( LOC(1) > 0 )
  b = Input(LOC(1), 1)
  Print b;
Wend

Close #1


Отличия от QB

  • !!WRITEME!! ?

См. также