ReadAsciiCharacter()

Syntaxe

Resultat.a = ReadAsciiCharacter(#Fichier)
Description
Lit un caractère ascii (1 octet non signé).

Arguments

#Fichier Le fichier à utiliser.

Valeur de retour

Renvoie le caractère ascii ou zéro si une erreur s'est produite.

Remarques

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() 
    WriteAsciiCharacter(0,65)
    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 ReadAsciiCharacter(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

WriteAsciiCharacter(), ReadUnicodeCharacter(), ReadCharacter(), OpenFile(), ReadFile()

OS Supportés

Tous

<- OpenFile() - File Index - ReadByte() ->