IBM Lotus Symphony
|
Lê um registo a partir de um ficheiro relativo, ou uma sequência de bytes a partir de um ficheiro binário, para uma variável.
Consulte também: Instrução PUT
Get [#] FileNumber As Integer, [Position], Variable
FileNumber: Uma expressão de valor inteiro que determina o número do ficheiro.
Position: Para ficheiros abertos em modo Aleatório, Position corresponde ao nome do registo que pretende ler.
Para ficheiros abertos no modo Binário, Position corresponde à posição dos byte no ficheiro em que a leitura é iniciada.
Se Position for omitido, é utilizada a posição actual ou o registo actual dos dados do ficheiro.
Variable: Nome da variável a ler. Com excepção de variáveis de objecto, pode utilizar uma variável de qualquer tipo.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position at beginning
Put #iNumber,, "This is the first line of text" REM Fill line with text
Put #iNumber,, "This is the second line of text"
Put #iNumber,, "This is the third line of text"
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,,"This is a new text"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
end sub