Archivo Txt VB6

[ori]

Les respondo yo misma, ya que lo hice


'---------------------Registro de detalle---------------------
'Tipo de registro

Campo = "4"
strOut1 = strOut1 & Campo

'Nro de tarjeta
'Monto ( se consideran los ultimos 12 caracteres del monto de la operacion campo:9 )
Campo = String$(21, " ")
strAux = Mid$(strBuffer, 13, 21)
strAux2 = Mid$(strAux, 13, 21)
LSet Campo = strAux
strOut1 = strOut1 & Campo



'Fecha de consumo, conversión de fecha DDMMYY

strAux1 = Mid$(strBuffer, 151, 2)
strAux = strAux1
strAuxT = strOut1 & strAux1

strAux4 = Mid$(strBuffer, 153, 2)
strAuxT = strAux4 & strAux1

strAux3 = Mid$(strBuffer, 155, 2)
strAuxT = strAux3 & strAux4 & strAux1
strOut1 = strOut1 & strAuxT
'Monto de consumo
'Valor
Campo = String$(11, " ")
strAux = Mid$(strBuffer, 75, 11)
LSet Campo = strAux
strOut1 = strOut1 & Campo

'Descripción
Campo = "XXXXXXXXXX "
strOut1 = strOut1 & Campo

'Filler
Campo = String$(39, " ")
strOut1 = strOut1 & Campo


strOut1 = strOut1 & Chr$(13) & Chr$(10)



CantidadTransacciones = CantidadTransacciones + 1
MontoTotal = MontoTotal + strAux

strBuffer = String$(256 + 2, " ")
Get #1, , strBuffer

Loop

'-------------------------Registro del headler-----------------------
'tipo de registro
Campo = "3"
strOut = strOut & Campo

Campo = "102860"
strOut = strOut & Campo

'Fecha de Emision del diskette (ddmmaaaa) ( en banco esta ddmmaa)
'ampo = String$(8, " ")
strAux = Format$(Date, "DDMMYY")
LSet Campo = strAux
strOut = strOut & Campo


' Total de registro

strAux = Format$(CantidadTransacciones, "000000")
strOut = strOut & strAux

'Total monto bruto
strAux = Format$(MontoTotal * 100, "00000000000")
strOut = strOut & strAux
MontoTotal = MontoTotal + strAux


Campo = "01026341272"
strOut = strOut & Campo


'Fin de Registro
strOut = strOut

strOut = strOut & Chr$(13) & Chr$(10)


CantidadTransacciones = CantidadTransacciones + 1



'Put #2, , strOut
'CantPagados = CantPagados + 1

strBuffer = String$(256 + 2, " ")
Get #1, , strBuffer



Put #2, , strOut & strOut1
CantPagados = CantPagados + 1

Close #1
Close #2
Close #3


Close
ToLogMER ("Proceso Terminado")