Descrição
| Lê e retorna a posição atual do ponteiro do arquivo texto aberto pela função FT_FUse(). |
Sintaxe
| FT_FRecno() |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
Retorno
| Retorno | Tipo | Descrição |
| cRet | Caracter |
Retorna a posição corrente do ponteiro do arquivo texto |
Exemplo
#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"
User Function FT_FRecno()
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! 😎