Descrição
FT_FLastRec [AS] - Lê e retorna o número total de linhas do arquivo texto aberto pela função FT_FUse().
|
Sintaxe
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
Retorno
| Retorno |
Tipo |
Descrição |
| nRet |
Numérico
|
Retorna a quantidade de linhas existentes no arquivo. Caso o arquivo esteja vazio ou não exista arquivo aberto, a função retornará 0 (zero)
|
Exemplo
#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"
User Function FT_FLastRec()
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
Informações adicionais
|
As linhas são delimitadas pela sequência de caracteres CRLF ou LF
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
