如何在QBASIC中使用BOF功能？

Question

我開始知道在QBASIC中可以使用BOF功能。它被稱爲文件的開始。但是，我沒有發現任何使用它的例子。請幫忙。

Answer 1

這裏是一個可能的BOF函數的一個例子：

' example BOF function in QB 
' returns beginning of file 
PRINT "Enter filename";: INPUT F$ 
Handle = FREEFILE 
OPEN F$ FOR BINARY AS #Handle 
PRINT "BOF="; BOF(Handle) 
END 

' function to get BOF 
FUNCTION BOF (H) 
IF LOF(H) > 0 THEN 
    BOF = 1 
ELSE 
    BOF = 0 
END IF 
END FUNCTION 

樣品，以確定是否文件是在BOF：

' example BOF function in QB 
' returns true if at beginning of file. 
PRINT "Enter filename";: INPUT F$ 
Handle = FREEFILE 
OPEN F$ FOR BINARY AS #Handle 
IF BOF(Handle) THEN 
    PRINT "File is at BOF" 
END IF 
END 

' function to get BOF 
FUNCTION BOF (H) 
IF LOC(H) <= 1 THEN 
    BOF = -1 
ELSE 
    BOF = 0 
END IF 
END FUNCTION