IBM Lotus Symphony


Instrução Get [Runtime]

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

Sintaxe:

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

Parâmetros:

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.

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais