LerNovaLinha
Esta função funciona em conjunto com a função AbrirArquivo. Após abrir o arquivo é possível ler linha a linha do arquivo.
Sintaxe: LerNovaLinha(aLinha,vRet);
Parâmetros:
Nome | Tipo | Descrição |
aLinha | Alfa |
Variável que receberá o conteúdo de cada linha do arquivo. |
xRet | Numérico |
Se conseguiu ler a linha normalmente vai retornar 1. Caso contrário se chegou no final do arquivo o retorno será 0(zero). |
Retorno:
Vai retornar no primeiro parâmetro através da variável alfa o conteúdo da linha. No segundo é uma variável de controle a cada linha válida retorna 1. Ao final do arquivo não havendo mais informações vai retornar 0(zero).
Exemplo:
Definir Alfa aLinha;
/* Abre o arquivo teste.txt */
AbrirArquivo("c:/teste.txt", vRet);
/* Se não conseguiu abrir o arquivo, mostra mensagem */
Se (vRet <> 1)
MensagemLog("Não foi Possível Abrir o Arquivo!");
/* Ler Linha a Linha do arquivo. */
LerNovaLinha(aLinha,xRet);
Enquanto (xRet = 1) {
LerNovaLinha(aLinha,xRet);
}
Utilização: Gerador de Relatórios e Regras.