¿Como crear una macro que filtre un txt y guarde lo filtrado en otro txt, utilizando como mediador access?
Poseo nivel de programación en vb (intermedio), dicho esto explico mi problema, tengo un sistema de registro ya funciona a la perfección pero quiero agregar una macro que me busque un txt especifico, lo lea y a medida que lo vaya leyendo lo filtre y extraiga lo que necesito de allí y luego lo guarde en otro archivo txt, necesito ideas de como hacer ya ley los 21mil tutoriales de macros... Pero no hayo como hacerlo...
1 Respuesta
Ya he conseguido hacer una parte pero al momento de crearlos me dice que el archivo ya existe, este es mi código hasta ahora..
Dim contadoo As Long
contadoo = 0
Dim filasss As String
Dim productosss As String
Dim divisa4
Open Ubica & "CONTRAT.txt" For Input As #1
Open Ubica & "TRANSAC\transaccion.txt" For Append As #2
While Not EOF(1)
Line Input #1, filasss
While ((Mid(filasss, 66, 32)) <> "122 REVERSO ENTERAR REMUNERACION")
Line Input #1, filasss
Print #2, Mid(filasss, 1, 180)
If IsNumeric(Mid(filasss, 20, 1)) = -1 Then
productosss = Trim(Mid(filasss, 19, 8))
End If
If (Mid(filasss, 66, 32)) = "122 REVERSO ENTERAR REMUNERACION" Then
Close #2
Name Ubica & "TRANSAC\transaccion.txt" As Ubica & "TRANSAC\transaccion_" & productosss & ".txt"
'Kill Ubica & "transaccion.txt"
Open Ubica & "TRANSAC\transaccion.txt" For Append As #2
End If
Wend
contad = contad + 1
Wend
Close #1
Close #2
Kill Ubica & "Fondo\FondoP.txt"Dim contadoo As Long
contadoo = 0
Dim filasss As String
Dim productosss As String
Dim divisa4
Open Ubica & "CONTRATO.txt" For Input As #1
Open Ubica & "TRANSAC\transaccion.txt" For Append As #2
While Not EOF(1)
Line Input #1, filasss
While ((Mid(filasss, 66, 32)) <> "122 REVERSO ENTERAR REMUNERACION")
Line Input #1, filasss
Print #2, Mid(filasss, 1, 180)
If IsNumeric(Mid(filasss, 20, 1)) = -1 Then
productosss = Trim(Mid(filasss, 19, 8))
End If
If (Mid(filasss, 66, 32)) = "122 REVERSO ENTERAR REMUNERACION" Then
Close #2
Name Ubica & "TRANSAC\transaccion.txt" As Ubica & "TRANSAC\transaccion_" & productosss & ".txt"
'Kill Ubica & "transaccion.txt"
Open Ubica & "TRANSAC\transaccion.txt" For Append As #2
End If
Wend
contad = contad + 1
Wend
Close #1
Close #2
Kill Ubica & "Fondo\FondoP.txt"
