Import com erro tipo de arquivo.

Olá a todos,

Tenta importar desta forma, pois assim não é analisado nada dentro do arquivo, somente copiado todo seu conteúdo:

Código:

DEFINE VARIABLE conteudo AS MEMPTR      NO-UNDO.
DEFINE VARIABLE peso AS CHARACTER   NO-UNDO.
COPY-LOB FROM FILE "c:\peso.txt" TO conteudo NO-CONVERT NO-ERROR.
ASSIGN peso = GET-STRING(conteudo,0).
disp peso.

Assim você terá todo o conteúdo do arquivo em uma variável.

Depois posta o resultado.

T+

Arnaldo,

Aí pode complicar, mas dei um jeitinho brasileiro que parece funcionar, ou seja:

01) Antes de importar o arquivo, faça um OUTPUT TO <ARQUIVO> APPEND, e execute um comando PUT SKIP(1). neste arquivo, ou seja, o APPEND irá ADICIONAR no arquivo já existente uma quebra de linha/paragrafo.

Fiz o teste abaixo e funcionou, vale a pena tentar se vai dar certo, ok?

Código:

def var w-reg as char format "x(40)".

output to c:\temp\peso.txt.
put "   eduardo/0101".
output close.

input from c:\temp\peso.txt no-convert.

repeat:

import unformatted w-reg.

disp "Geração 000: " w-reg .

end.

input close.

output to c:\temp\peso.txt append.
put skip(1).
output close.

input from c:\temp\peso.txt no-convert.

repeat:

import unformatted w-reg.

disp "Geração 001: " w-reg .

end.

input close.

Simulei com o COPY-LOB na versão 10.2 e também deu erro... não consegui simular desta maneira.

E com o exemplo que enviei, deu certo?