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.

Importante

Os sistemas Senior utilizam sempre os caracteres alfanuméricos no formato Windows-1252. Para tratar esse cenário, recomenda-se o uso da função ConverteCodificacaoString.

Exemplo:

LerNovaLinha(aLinha,xRet);

xRetorno = ConverteCodificacaoString(aLinha, “WINDOWS-1252”, xTextoCodificacaoAlterada);

PORTAL DE DOCUMENTAÇÃO
Gestão de Pessoas \| HCM - versão 6.10.4