ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

FT_FSkip [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 27/07/2021

Descrição

Move o ponteiro, do arquivo texto aberto pela função FT_FUse(), para uma nova posição.

Sintaxe

FT_FSkip( )

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	nLinhas	Numérico	Indica o número de linhas do arquivo texto (*.txt)	1

Retorno

Tipo

Descrição

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"
 
User Function FT_FSkip()
Local cLine		:= ''
 
Local nHandle	:= 0
Local nLast		:= 0
Local nRecno	:= 0
 
nHandle := FT_FUse("C:TEMPTST.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_fskip_-_resultado_01

Informações adicionais

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Facebook