tenho um pequeno arquivo a ser importado neste formato(txt):
BRQ;526536-5
BLU;256553-8
JVL;1230-8
HRG;23-9
FLO;256536-1
notem que o camarada que me enviou o arquivo mandou sem preenchimento de zeros a esquerda então meu codigo esta importando sem o preenchimento dos zeros...mas eu preciso dos mesmo.
deveria ser assim:
BRQ;526536-5
BLU;256553-8
JVL;001230-8
HRG;000023-9
FLO;256536-1
parte do meu codigo que estou importando é este:
If Linhas > 1 then//aqui verifica e desconcidera A primeira linhas do txt
begin
Table1.Insert;
Table1.FieldByName('Filial').Value := Copy(Entrada,2, Pos(PathSep, Entrada) - 2);
Delete(Entrada, 1, Pos(PathSep, Entrada));
Table1.FieldByName('Ctrc').Value := Copy(Entrada,1,
Length(Entrada));
Table1.Post;
end;
então eu pensei que ao importar poderia já verificar se falta os zeros e incluir na importação.
Pergunta
Eder
Ola.
tenho um pequeno arquivo a ser importado neste formato(txt):
notem que o camarada que me enviou o arquivo mandou sem preenchimento de zeros a esquerda então meu codigo esta importando sem o preenchimento dos zeros...mas eu preciso dos mesmo.deveria ser assim:
parte do meu codigo que estou importando é este:
então eu pensei que ao importar poderia já verificar se falta os zeros e incluir na importação.
teria que ficar assim: 000523-5
é possivel?
Grato
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.