LOG_file_write

Gravar um bloco de texto em um arquivo aberto via função LOG_file_create() ou LOG_file_openMode() em modo de edição.

Sintaxe

LOG_file_write( < l_hdl > , < l_text > ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_hdl

INTEGER

Sim

Handle do arquivo recuperado na abertura do arquivo pela função LOG_file_create() ou LOG_file_openMode() no modo de edição.

l_text

VARCHAR

Sim

Conteúdo de texto a ser gravado no arquivo.

Quando usar conteúdo de uma variável 4GL tipo CHAR neste parâmetro irá considerar os espaços em branco no final do texto. Neste caso, utilize a instrução CLIPPED para ignorar os espaços em branco. Exemplo: l_var_char CLIPPED.

Retorno

Tipo	Descrição
`SMALLINT`	Verdadeiro se o conteúdo foi adicionado com sucesso no arquivo.

Atenção

Esta função não irá quebrar a linha após adição da cada bloco de texto.

O ponteiro de gravação ficará posicionado exatamente após o último bloco de texto gravado pela última instrução de gravação de texto usando esta mesma função LOG_file_write() ou então LOG_file_writeln(), sendo que esta última irá posicionar sempre na 1a posição da linha seguinte do texto adicionado.

Exemplo

#---------------------------------------#
 FUNCTION LOG_fileWrite_test()
#---------------------------------------#
  DEFINE l_file   CHAR(250)
  DEFINE l_handle SMALLINT
  DEFINE l_text   VARCHAR(1000)

  LET l_file = "c:\\temp\\arquivo1.txt"

  LET l_text = "Adicionando texto no arquivo"

  LET l_handle = LOG_file_create(l_file,0)
  IF l_handle >= 0 THEN
     IF LOG_file_write(l_handle,l_text) THEN
        CALL conout("Texto adicionado ao arquivo com sucesso")
     ELSE
        CALL conout("Falha ao adicionar texto no arquivo")
     END IF
     LET l_handle = LOG_file_close(l_handle)
  END IF
END FUNCTION

Informações

Fontes: file.4gl, file.prw

Veja também

LOG_file_close

LOG_file_create

LOG_file_openMode

Páginas filhas