EXPORTAR TXT COM DADOS RESPONSIVOS
10/10/2022
0
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.
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:
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
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
Mais Posts
13/10/2022
Lucas Santato
Você pode utilizar a função PadLeft
Dê uma olhada nesse link, pode te ajudar.
http://www.delphibasics.co.uk/Method.php?NameSpace=system&Class=String&Type=Class&Method=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
15/10/2022
Luiz Gustavo
Você pode utilizar a função Format para acrescentar zeros a esquerda do número.
Exemplo:
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
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
Muito obrigado pelo seu tempo em me responder , agradeço a todos, serviu muito bem sua dica ! obrigado
Responder
Clique aqui para fazer login e interagir na Comunidade :)
