IBM Lotus Symphony


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

Escreve um registro em um arquivo relativo ou uma sequência de bytes em um arquivo binário.

Consulte também: Instrução Get

Sintaxe:

Put [#] FileNumber As Integer, [position], Variable

Parâmetros:

FileNumber: Qualquer expressão de números inteiros que define o arquivo no qual você deseja escrever.

Position: Para arquivos relativos (arquivos de acesso aleatório), o número do registro que você deseja escrever.

Par arquivos binários (acesso binário), a posição do byte no arquivo file no qual você deseja começar a escrever.

Variable: Nome da variável que você deseja escrever no arquivo.

Nota para arquivos relativos: Se o conteúdo desta variável não corresponder ao comprimento do registro especificado na cláusula Len da instrução Open, o espaço entre o final do registro recém-escrito e o próximo registro será preenchido com dados existentes do arquivo no qual você está escrevendo.

Nota para arquivos binários: O conteúdo das variáveis é escrito na posição especificada e o ponteiro de arquivo é inserido diretamente após o último byte. Não fica nenhum espaço entre os registros.

Exemplo:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Deve ser um tipo variante

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Posicionar para iniciar composição

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