Cabeçalho

FT_FUse [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 22/11/2025 Arquivos de Disco/IO

Postagem

📝 Descrição

FT_FUse [AS] – Abre e fecha um arquivo texto para utilização das funções FT_F*.

📌 Sintaxe

FT_FUse( <cTXTFile> )

🔣 Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	cTXTFile	Caracter	Nome do arquivo *.txt que será aberto. Se vazio, fecha o arquivo aberto anteriormente.

📤 Retorno

Retorno	Tipo	Descrição
nRet	Numérico	Retorna o handle do arquivo. Se ocorrer erro na abertura, retorna -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()      // Número de linhas do arquivo
MsgAlert( cValtoChar(nLast), 'UniversoADVPL' )

Do While !FT_FEOF()
    cLine  := FT_FReadLn()        // Lê a linha corrente
    nRecno := FT_FRecno()         // Retorna o recno da linha
    MsgAlert("Linha: " + cLine + " - Recno: " + StrZero(nRecno,3), 'UniversoADVPL')
    FT_FSKIP()                    // Pula para a próxima linha
EndDo

FT_FUSE() // Fecha o arquivo

Return( Nil )