Wie verwende ich BOF-Funktion in QBASIC?

Question

Ich habe erfahren, dass es eine BOF-Funktion zur Verwendung in QBASIC gibt. Es heißt der Anfang der Datei. Aber ich habe keine Beispiele für seine Verwendung gefunden. Bitte helfen Sie. Hier

Answer 1

ist ein Beispiel für eine mögliche BOF Funktion:

' 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 

Probe zu bestimmen, ob die Datei bei BOF ist:

' 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