LOC
 
返回执行最后一个文件读/写的文件位置

语法

Declare Function LOC ( ByVal filenum As Integer ) As LongInt

用法

result = LOC( filenum )

参数

filenum
打开的文件的文件编号。

返回值

进行最后一次读/写操作的文件位置。

说明

返回执行最后一个文件读/写的位置。

记录中显示的位置：
在文件打开的文件中，使用打开文件时所指定的记录长度
在文本文件（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，仓" For Binary As #1) <> 0 Then
  Print "无法打开串口"
  End
End If

Print "发送命令：AT"

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

Sleep 500,1

Print "响应："

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

Close #1


与QB差别

  • !!WRITEME!! ?

参考