Dim T as long
Dim c as string
dim variavel as string
dim texto as string
CaminhoArquivo = "E:\CONCILIAÇÃO\Importar TXT FCONT\ArquivoTXT\INVICTA 01_01 A 31_03_2011.txt"
open Open CaminhoArquivo for input as #1
T = 0
C= ""
while not eof(1)
line input #1, variavel
If Mid(variavel, 1, 5) = "|I150" Then
T = T + 1
C = "/" & T
variavel = variavel & T
else
If Mid(variavel, 1, 5) = "|I350" Then
C=""
End If
variavel = variavel & C
texto = texto & variavel
wend
close #1
open "C:\temp\teste.txt" for output as #1
write #1, texto
close #1
Bom Dia
Como posso editar esse codigo para fazer as alterações como descrito abaixo.
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
Obrigado