Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

MEMOGET()

Propósito

Atribuir um arquivo texto a uma variável de memória.

Sintaxe

MEMOGET (<item>, <var.C>)

Argumentos

<item>

representa o nome do item M4 com o nome do arquivo a ser lido.

<var.C>

representa o nome de uma variável-caracter que receberá o texto do arquivo.

Utilização

Retorna verdadeiro (.T.), se a leitura foi bem sucedida ou falso (.F.), se não pode ler ou criar o arquivo caso este não exista. Utilizado em conjunto das funções MEMOEDIT() e MEMOPUT() para editar e gravar um texto, relacionado a um ou mais registros.

Exemplos

O exemplo a seguir mostra-nos como editar um arquivo relacionado a um registro do banco de dados.

DATABASE bdemp1 33 a 2

USE tab_func

FIND 123    && Lê o registro do funcionário 123

PRIVATE var_text (500)

* Lê o texto associado ao registro

IF MEMOGET (cur_func, var_text)

  var_text = MEMOEDIT (var_text,01,01,10,10,.T.)

  var_log = MEMOPUT(cur_func, var_text)

ELSE

  ? "Não foi possível abrir o arquivo"

ENDIF

Consulte

$LEN, $LENTMP, MEMODEL(), MEMOEDIT(), MEMOFILE(), MEMOGET(), MEMOLINE(), MEMOPUT(), MEMOREAD(), MLCOUNT(), MEMOSEEK, MEMOSAVE e SPACE().

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!