Descrição
| Abre e fecha um arquivo texto para disponibilizar às funções FT_F*. |
Sintaxe
| FT_FUse( <cTXTFile> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cTXTFile | Caracter | Indica o nome do arquivo *.txt que será aberto. Caso o nome não seja passado e já exista um arquivo aberto, o mesmo será fechado |
Retorno
| Retorno | Tipo | Descrição |
| nRet | Numérico |
Retorna o handle de controle do arquivo. Em caso de falha na abertura, a função retornará -1. |
Exemplo
#INCLUDE "TOTVS.CH"
#INCLUDE "FILEIO.CH"
User Function FT_FUse()
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
|
As funções FT_F* são utilizadas para ler arquivos texto, em que as linhas são delimitadas pela seqüência de caracteres CRLF ou LF(*) e o tamanho máximo, de cada linha, de 1022 bytes. Além disso, o arquivo é aberto em uma área de trabalho similar a usada pelas tabelas de dados |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎