User Function Example()
// Abre o arquivo
nHandle := FT_FUse("c:\garbage\teste.txt")
// Se houver erro de abertura abandona processamento
if nHandle = -1
return
endif
// Posiciona na primeria linha
FT_FGoTop()
// Retorna o número de linhas do arquivo
nLast := FT_FLastRec()
MsgAlert( nLast )
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) )
// Pula para próxima linha
FT_FSKIP()
End
// Fecha o Arquivo
FT_FUSE()
return
|