Contenu

# 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 [#]fileNum, [recordNum|filePos], variable

### Paramètres :

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

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

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

Si les paramètres recordNum et filePos ne sont pas spécifiés, 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.

### Exemple :

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Doit être un variant
          Dim aFile As String
          aFile = "C:\Users\ThisUser\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

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Doit être un variant
          Dim aFile As String
          aFile = "~/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

Rubriques connexes

Instruction Optn

Instruction Put#

Instruction Close