Instruction Get

Lit un enregistrement dans un fichier relatif, ou une séquence d'octets dans un fichier binaire, et l'insère dans une variable.

Voir aussi : Instruction PUT

Syntaxe :

Get [#] FileNumber As Integer, [Position], Variable

FileNumber : expression au format nombre entier déterminant le numéro de fichier.

Position : pour les fichiers ouverts en mode Random, Position est le numéro de l'enregistrement à lire.

Pour les fichiers ouverts en mode Binary, Position indique la position octale du début de la lecture dans le fichier.

Si le paramètre Position n'est pas spécifié, la position actuelle ou l'enregistrement de données actif du fichier est utilisé.

Variable : nom de la variable à lire. Vous pouvez utiliser tout type de variable sauf les variables d'objets.

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant ' Doit être un variant

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 ' Position au début

    Put #iNumber,, "Ceci est la première ligne de texte" ' Remplir la ligne avec du texte

    Put #iNumber,, "Ceci est la seconde ligne de texte."

    Put #iNumber,, "Ceci est la troisième ligne de texte."

    Seek #iNumber,2

    Get #iNumber,,sText

    Print sText

    Close #iNumber

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Get #iNumber,2,sText

    Put #iNumber,,"Ceci est un nouveau texte."

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumber,20,"Ceci est le texte de l'enregistrement 20."

    Print Lof(#iNumber)

    Close #iNumber

End Sub