IBM Lotus Symphony


Função Lof [Tempo de Execução]

Retorna o tamanho de um arquivo aberto em bytes.

Sintaxe:

Lof (FileNumber)

Valores de Retorno:

Longo

Parâmetros:

FileNumber: Qualquer expressão numérica que contenha o número do arquivo especificado na instrução Open.

Ícone de Dica Para obter o comprimento de um arquivo que não está aberto, use a função FileLen.

Códigos de Erro

5 Chamada de procedimento inválida

52 Nome ou número de arquivo inválido

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 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,,"Esta é uma nova linha de 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