IBM Lotus Symphony


Instruction Get [Exécution]

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

Paramètres :

FileNumber : expression de type nombre entier qui détermine le numéro de fichier.

Position : pour les fichiers ouverts en mode aléatoire, Position correspond au numéro de l'enregistrement que vous souhaitez lire.

Pour les fichiers ouverts en mode binaire, Position est la position de l'octet dans le fichier où commence la lecture.

Si le paramètre Position est omis, la position actuelle ou l'enregistrement de données en cours du fichier est utilisé.

Variable : nom de la variable à lire. A l'exception des variables d'objet, vous pouvez utiliser n'importe quel type de variable.

Exemple :

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Doit être une variante

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Position au début

Put #iNumber,, "Ceci est la première ligne de texte" REM Remplissez la ligne de texte

Put #iNumber,, "Ceci est la deuxième 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


Commentaires en retour sur le produit | Documentation complémentaire | Marques