(Resolvido) Format Campo ao importar txt

[Eder]

Ola.

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.

teria que ficar assim: 000523-5

é possivel?

Grato

[Jhonas]

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?

Oi Eder .. é possivel sim ...basta modificar para o seu uso

procedure TForm1.Button1Click(Sender: TObject);
var
   s, s1, s2, s3: string;
begin
   s := Edit1.Text;  // HRG;23-9
   s1 := copy(s,1,pos(';',s));
   delete(s,1,pos(';',s));
   s2 := copy(s,pos(';',s)+1,pos('-',s)-1);
   S3 := copy(s,pos('-',s),2);
   FmtStr(s, '%.6d', [StrToInt(s2)]);
   edit1.text := s1 + s + s3;   // HRG;000023-9
end;

abraço e feliz natal para voce e sua família

[Eder]

Ola..Jonas...Deu certinho...mas é meio complicadinho de entender o esqueminha... :blush:

só me explica por favor com suas palavras esta linha, para mim entender o teu racioncinio:

s1 := copy(s,1,pos(';',s));

abraço e feliz natal para voce e sua família

Carinha ...UM ÓTIMO NATAL E FELIZ ANO NOVO PARA VOCÊ E SUA FAMÍLIA, MUITA SAÚDE, PAZ E FELICIDADES, O RESTO A GENTE VAI SE VIRANDO COMO PODE.

Abraços.

EDER

[Jhonas]

só me explica por favor com suas palavras esta linha, para mim entender o teu racioncinio:

s1 := copy(s,1,pos(';',s));

o esquema é bem simples:

1 - voce pega a string completa ( HRG;23-9 )

2 - depois separa-se a parte alfanumerica na numerica

s1 := copy(s,1,pos(';',s)); desta maneira a variavel s1 receberá ( HRG; )

ou seja copiar a string S da posição 1 ate a posição onde encontrar um ; ( ponto e vírula )

3 - esta parte deve ser retirada da string ficando apenas a parte numerica

delete(s,1,pos(';',s)); a string S tem agora o conteúdo ( 23-9 )

4 - como 23-9 não e um inteiro válido então deve-se separar o numero antes do ( - ) traço

s2 := copy(s,pos(';',s)+1,pos('-',s)-1); a string S2 recebe o valor 23

S3 := copy(s,pos('-',s),2); a string S3 recebe o restante da string ( -9 )

5 - depois basta formatar o numero conform desejado

FmtStr(s, '%.6d', [strToInt(s2)]); Veja que a string S2 contem o valor 29 e será formatado colocando-se os zeros a esquerda do numero ( 000029 ) usando-se o formato ( '%.6d' ) e jogando o resultado na string S

6 - Como os valores estão separados, basta ajuntá-los para que fiquem da maneira que queremos

edit1.text := s1 + s + s3; // HRG;000023-9

ou seja :

S1 = HRG;

S = 000023

S3 = -9

Espero que tenha entendido a explicação

abraço