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.

  

Este artigo ajudou você?