FSeek

Visão geral

FSeek calcula o deslocamento a partir de FS_SET, FS_RELATIVE ou FS_END e devolve a posição absoluta desde zero. Mover ao fim com deslocamento zero permite obter tamanho, mas também altera o cursor. O exemplo comunitário mostra essa técnica e volta ao início; a adaptação abre somente leitura, consulta FError antes de continuar e fecha seu handle. Não confundir byte com caractere nem posição de arquivo com RecNo de tabela. (TOTVS, s.d., ref. 1)

Sintaxe

FSeek( nHandle, nOffSet, [nOrigem] ) --> nRet

Parâmetros

Exemplo comentado

#Include "Protheus.ch"
#Include "Fileio.ch"

User Function Ed396()
    Local nHandle := -1
    Local nErro := 0
    Local nTamanho
    // Arquivo ficticio existente no contexto de teste; leitura compartilhada.
    nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
    If nHandle < 0
        nErro := FError()
        ConOut(cValToChar(nErro))
    Else
        nTamanho := FSeek(nHandle, 0, FS_END)
        nErro := FError()
        If nErro == 0
            ConOut(cValToChar(nTamanho))
            // Reposicionar antes de uma eventual leitura posterior.
            FSeek(nHandle, 0, FS_SET)
        Else
            ConOut(cValToChar(nErro))
        EndIf
        If !FClose(nHandle)
            ConOut(cValToChar(FError()))
        EndIf
    EndIf
Return Nil

Conteúdos relacionados