EXPORTAR TXT COM DADOS RESPONSIVOS

10/10/2022

OI PESSOAL BOA NOITE TUDO BLZA?
Queria uma ajuda com uma situa��o, estou tentando gerar um arquivo TXT com delphi, usando Writeln, ainda estou aprendendo algo, at� consegui fazer exporta��o certinho
porem gostaria de saber se h� um jeito de gerar dados com um determinado padr�o por exemplo:

meu banco tem um campo l� matricula que ao ser consultado resulta na exporta��o ex: 125, tem como atrav�s ele sair no arquivo do txt por exemplo contendo 6 caracteres : 000125 e assim com demais 000097 etc.
tou pegando assim...

........
Writeln(F,fdquery.FieldByName('matricula').AsString;

A exporta��o ta pegando todos os campos puxa todas as matriculas, s� queria que sa�sse formatado como disse.

Luiz Gustavo

Curtir t�pico + 1

Responder

Post mais votado

13/10/2022

Voc� pode utilizar a fun��o Format para acrescentar zeros a esquerda do n�mero.

Exemplo:

Writeln(F, Format('%6.6d', [fdquery.FieldByName('matricula').AsInteger]));

No exemplo acima definimos o texto como tendo 6 caracteres, sendo completado com zeros a esquerda se necess�rio.

Basta trocar este valor para mais ou menos de acordo com a sua necessidade.

Veja estes links:

https://www.devmedia.com.br/quick-tips-utilizando-a-funcao-format-no-delphi/14357
https://www.delphibasics.co.uk/RTL.php?Name=Format
https://www.eugostododelphi.dev/2011/03/use-o-format-por-favor.html?m=1

Natanael Ferreira

Responder

Gostei + 2

Mais Posts

13/10/2022

Lucas Santato

Voc� pode utilizar a fun��o PadLeft

MinhaString.PadLeft(6, '0')

D� uma olhada nesse link, pode te ajudar.
http://www.delphibasics.co.uk/Method.php?NameSpace=system&Class=String&Type=Class&Method=PadLeft

Responder

Gostei + 1

15/10/2022

Luiz Gustavo

Voc� pode utilizar a fun��o Format para acrescentar zeros a esquerda do n�mero.

Exemplo:

Writeln(F, Format('%6.6d', [fdquery.FieldByName('matricula').AsInteger]));

Muito obrigado pelo seu tempo em me responder , agrade�o a todos, serviu muito bem sua dica ! obrigado

Responder

Gostei + 1