IBM Lotus Symphony


Instrução Get [Tempo de Execução]

Lê um registro a partir de um arquivo relativo ou de uma sequência de bytes de um arquivo binário para uma variável.

Consulte também: Instrução PUT

Sintaxe:

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

Parâmetros:

FileNumber: Qualquer expressão de números inteiros que determina o número do arquivo.

Position: Para arquivos abertos em modo Random, Position é o número do registro que você deseja ler.

Para arquivos abertos em modo Binary, Position é a posição do byte no arquivo no qual a leitura é iniciada.

Se Position for omitido, a posição atual ou o registro de dados atual do arquivo será usado.

Variable: Nome da variável a ser lida. Com exceção das variáveis do objeto, é possível usar qualquer tipo de variável.

Exemplo:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Deve ser uma variante

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Posicionar no início

Put #iNumber,, "Esta é a primeira linha de texto" REM Preencher linha com texto

Put #iNumber,, "Esta é a segunda linha de texto"

Put #iNumber,, "Esta é a terceira linha de texto"

Seek #iNumber,2

Get #iNumber,,sText

Print sText

Fechar #iNumber

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Get #iNumber,2,sText

Put #iNumber,,"Este é um novo texto"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Este é o texto no registro 20"

Print Lof(#iNumber)

Fechar #iNumber

end sub


Feedback do Produto | Documentação Adicional | Marcas Registradas