Cabeçalho

FT_FEOF [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 25/04/2025 Arquivos de Disco/IO

Postagem

Descrição

FT_FEOF [AS] - Indica se o ponteiro está posicionado no fim do arquivo texto.

Sintaxe

FT_FEOF()

Parâmetros

Par

Nome

Tipo

Descrição

Default

Obg

Ref

Retorno

Retorno	Tipo	Descrição
lRet	Boolean	Retorna verdadeiro (.T.), se o ponteiro do arquivo texto (aberto pela função FT_FUse) estiver posicionado no final; caso contrário, falso (.F.)

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"

User Function FT_FEOF()
Local cLine		:= ''

Local nHandle	:= 0
Local nLast		:= 0
Local nRecno	:= 0

nHandle := FT_FUse("C:\TEMP\TST.TXT")
If nHandle == -1  // Se houver erro de abertura abandona processamento
	Return( Nil )
Endif

FT_FGoTop()// Posiciona na primeira linha

nLast := FT_FLastRec() // Retorna o número de linhas do arquivo
MsgAlert( cValtoChar( nLast ), 'UniversoADVPL' )

Do While !FT_FEOF()
	cLine  := FT_FReadLn() // Retorna a linha corrente  
	nRecno := FT_FRecno()  // Retorna o recno da linha  
	MsgAlert( "Linha: " + cLine + " - Recno: " + StrZero(nRecno,3), 'UniversoADVPL' ) )    
	FT_FSKIP() // Pula para próxima linha  
EndDo

FT_FUSE() // Fecha o arquivo

Return( Nil )

Resultado
ft_feof_-_resultado_01