Comment utiliser la fonction BOF dans QBASIC?

Question

J'ai appris qu'il existe une fonction BOF utilisable dans QBASIC. C'est ce qu'on appelle le début du fichier. Mais, je n'ai trouvé aucun exemple sur son utilisation. S'il vous plaît aider.

Answer 1

Voici un exemple pour une fonction possible 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 

échantillon pour déterminer si le fichier est à 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