Notifications
Clear all

Alterar TXT VBA sem importar para o excel

2 Posts
2 Usuários
0 Reactions
1,249 Visualizações
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Boa tarde

É possível criar um código para editar arquivos textos sem abrir o mesmo em uma planilha ???

Exemplo: tenho um txt e preciso fazer a seguinte modificação:

toda vez que ele encontrar a linha que comece com I150 , que carrega o trimestre (primeira Linha no caso de 01/10/2011 a 31/12/2011) quero que ele coloque o numero do trimestre no final das linhas posteriores
|I150|01102011|31122011|
|I155|5||116162,24|D|116862,80|140574,52|92450,52|D|
|I156|1.01.01.01.00|116862,80|140574,52|
|I155|671||13270,68|D|235216,99|153592,22|94895,45|D|
|I156|1.01.01.02.00|235216,99|153592,22|
|I155|673||15089,90|D|79,80|15169,70|0,00|D|
|I156|1.01.01.02.00|79,80|15169,70|

Resultado
|I150|01102011|31122011|4
|I155|5||116162,24|D|116862,80|140574,52|92450,52|D|4
|I156|1.01.01.01.00|116862,80|140574,52|4
|I155|671||13270,68|D|235216,99|153592,22|94895,45|D|4
|I156|1.01.01.02.00|235216,99|153592,22|4
|I155|673||15089,90|D|79,80|15169,70|0,00|D|4
|I156|1.01.01.02.00|79,80|15169,70|4

favor dar um retorno mesmo que seja para dizer que não é possível.
ou sugerir outra solução.

Obrigado

 
Postado : 27/05/2013 10:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Creio que possivel é .
Talvez o tópico :http://www.tomasvasquez.com.br/blog/microsoft-office/vba-lendo-um-arquivo-texto-linha-a-linha-sem-filesystemobject , lhe auxilie.
Particularmente, creio ser mais simples importar no excel, retrabalhar e salvar novamente em txt.

 
Postado : 27/05/2013 11:34 am