LOC

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgLoc
• 最后更新: 2017-11-12

---

返回上次执行文件读/写操作的文件位置

语法

declare function Loc ( byval filenum as long ) as longint

用法

result = Loc( filenum )

参数

filenum

打开文件的文件号。

返回值

上次执行读/写操作的文件位置。

说明

返回上次执行文件读/写操作的位置。

位置以记录为单位表示：

以 FOR RANDOM 打开的文件使用打开文件时指定的记录长度

文本文件（FOR INPUT|OUTPUT|APPEND）假定记录长度为128字节。

以 BINARY 方式打开的文件使用1字节的记录长度。

在 FreeBASIC 中，文件位置从1开始，文件的第一条记录为记录1（读取或写入第一条记录后 Loc=1，文件中的起始位置 Loc=0）。

与串行设备一起使用时，Loc 返回串行设备输入缓冲区中等待读取的字节数。

示例

start GeSHi

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

end GeSHi

与 QB 的差异

• 无

另请参阅

• Lof
• Eof
• Seek (Function)
• Open

返回 目录