Cabeçalho

FT_FGoTop [AS]

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

Postagem

Descrição

FT_FGoTop [AS] - Posiciona no início (primeiro caracter da primeira linha) do arquivo texto aberto pela função FT_FUse()..

Sintaxe

FT_FGoTop()

Parâmetros

Par

Nome

Tipo

Descrição

Default

Obg

Ref

Retorno

Tipo

Descrição

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"
 
User Function FT_FGoTop()
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_fgotop_-_resultado_01