EXPORTAR TXT COM DADOS RESPONSIVOS
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
Curtidas 1
Melhor post
Natanael Ferreira
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
GOSTEI 2
Mais Respostas
Lucas Santato
10/10/2022
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
GOSTEI 1
Luiz Gustavo
10/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
Muito obrigado pelo seu tempo em me responder , agradeço a todos, serviu muito bem sua dica ! obrigado
GOSTEI 1