Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 7 Próxima »

Retorna o conteúdo de um arquivo do tipo texto.

Sintaxe

MemoRead( < cFile >, [ lChangeCase ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cFile

caractere

Indica o caminho do arquivo que será lido do tipo texto.

X

 

lChangeCase

lógico

Se verdadeiro (.T.), nomes de arquivos e pastas serão convertidos para letras minúsculas; caso contrário, falso (.F.), não será feito nenhum ajuste no nome do arquivo informado. Valor padrão (.T.). Veja maiores informações em Observações.

 

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna o conteúdo do arquivo texto, ou uma string vazia ("") em caso de erro.

Observações

  • A função lê arquivos texto (string terminada com caracter 0) no server e no client. Para paths relativos a leitura será feita no Server a partir da pasta de environment do sistema. Para paths absolutos leitura será feita no client.
  • A leitura terá limite de tamanho de 65535 bytes.
  • O parâmetro opcional lChangeCase foi introduzido a partir do build 7.00.131227A pois em sistemas LINUX/UNIX, existe a diferenciação entre maiúsculo e minúsculo em nomes de arquivos ou pastas. Quando este parâmetro for informado, terá prioridade sobre comportamento de Case Sensitive definido pelas chaves de ini CASESENSITIVE ou SERVERTYPE. Porem, quando não especificado o parâmetro, o valor padrão (.T.) fica condicionado ao que está configurado nessas chaves.
  • Em ambiente Windows, os nomes de arquivos não possuem diferenciação entre maiúsculo e minúsculo, logo, a função conseguirá abrir o arquivo <cFile> independente do valor definido no parâmetro <lChangeCase>.
  • Em caso de erro, utilize a função FError para maiores detalhes.

Exemplos

User Function Teste
// Retorna conteúdo do arquivo TXT
Local cLine := MemoRead( "c:\dir\test.txt" )

// Verifica o número de linhas no texto
Local nLines := MLCount( cLine )

// Varre todas as linhas do texto
For nX := 1 To nLines
MsgAlert( MemoLine( cLine, , nX ) )
Next nX
Return

Abrangência

Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

Veja também

  • Sem rótulos