ReadQuad()
Syntaxe
Resultat.q = ReadQuad(#Fichier)Description
Lit un nombre entier 'quad' (8 octets).
Arguments
#Fichier Le fichier à utiliser.
Valeur de retour
Renvoie le nombre entier ou zéro si une erreur s'est produite.
Exemple
If CreateFile(0, "Test.txt") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof() WriteQuad(0,123456789) WriteStringN(0, "... une autre ligne à la fin du fichier.") CloseFile(0) EndIf If ReadFile(0, "Test.txt") ; Si le fichier peut être lu , on continue... While Eof(0) = 0 ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') Debug ReadQuad(0) ; Affiche ligne par ligne le contenu du fichier Wend CloseFile(0) ; Ferme le fichier précédemment ouvert Else MessageRequester("Information","Impossible d'ouvrir le fichier!") EndIf
Voir aussi
WriteQuad(), OpenFile(), ReadFile()
OS Supportés
Tous