Descrição
| Move o ponteiro, do arquivo texto aberto pela função FT_FUse(), para uma nova posição. |
Sintaxe
| FT_FSkip( <nLinhas> ) |
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
| 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
Informações adicionais
|
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎