IBM Lotus Symphony
|
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
Get [#] FileNumber As Integer, [Position], Variable
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.
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