Hola, me quede con la duda y probe el codigo
y me funciona bien, lee linea por linea... si usas el debug me lee los 10
registros que tiene el archivo.
Open "c:\f136_84283877.txt" For Input As #1
Reg_Leidos = 0
Do While Not EOF(1)
Line Input #1, Registro
sTipo = Mid(Registro, 1, 1)
sCabecera = Mid(Registro, 12, 4)
sFactura = Mid(Registro, 16, 8)
sCAE = Mid(Registro, 136, 14)
sVenceCAE = Mid(Registro, 150, 8)
Reg_Leidos = Reg_Leidos + 1
Loop
Close #1
Una vez me paso una cosa muy rara. Yo desde un programa archivos .txt via
mail
para actualizar stock. Si ese archivo lo abris desde un webmail por ej
yahoo. el archivo txt no el caracter chr(13) que yo le habia colocado cuando
los arme, Ahora bien si configuraba la cuenta de yahoo en el outlook express
y descargaba por ahi el archivo el mismo estaba ok y funcionaba
correctamente con el caracters chr(13) que le puse.
Espero que te sirva..
Saludso, Gabriel
----- Original Message -----
From: "Néstor Taboada" <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Sunday, November 04, 2007 7:44 PM
Subject: [vbusers] Achivo TXT AFIP RECE - Facturacion Electronica
Y entonces? como detecto el final de línea?
Gracias.
Néstor.
----- Original Message -----
From: "G.Asato" <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Saturday, November 03, 2007 11:16 AM
Subject: [vbusers] Achivo TXT AFIP RECE - Facturacion Electronica
Puede ser que el archivo que te mandan no tenga el chr(13) para la
siguiente linea al final de cada una y por eso te lee todo junto.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Friday, November 02, 2007 11:13 AM
Subject: [vbusers] Achivo TXT AFIP RECE - Facturacion Electronica
Que tal Colegas, los molesto en esta oportunidad para consultarlos en la
forma de leer un archivo txt que devuelve la AFIP cuando asigna los
dichosos
CAE para las Facturas Electronicas. El tema es que envia un archivo
txt,
con varias lineas (registros), pero cuando lo leo, me lo lee como un
solo
registro, no linea por linea.
Quisiera saber si alguno me puede dar una mano.
El codigo que uso para leer el txt es el siguiente:
Dim Registro as String
Open Nombre_del_Archivo_txt For Input As #1
Reg_Leidos = 0
Do While Not EOF(1)
Line Input #1, Registro
sTipo = Mid(Registro, 1, 1)
If sTipo = \"2\" Then
sCabecera = Mid(Registro, 12, 4)
sFactura = Mid(Registro, 16, 8)
sCAE = Mid(Registro, 136, 14)
sVenceCAE = Mid(Registro, 150, 8)
sSql = \"UPDATE FACTURAS SET CAE = \'\" & sCAE & \"\',
CAE_Vence = #\" & Mid(sVenceCAE, 1, 4) & \"/\" & Mid(sVenceCAE, 5, 2) &
\"/\" & Mid(sVenceCAE, 7, 2) & \"# \" & _
\"WHERE Cabecera = \" & sCabecera & \" AND Factura =
\"
& sFactura & \" AND CAE_Pendiente = True AND Anulado = False;\"
DbBase.Execute sSql, I
Reg_Leidos = Reg_Leidos + I
End If
Loop
Close #1
DbBase.CommitTrans
El tema es que en Registro, me trae de una todo el archivo txt, no la
primera linea.
Desde ya, agradezco mucho la colaboracion.
Saludos.
Néstor.
__________________________________
Registrate desde
http://servicios.arnet.com.ar/registracion/registracion.asp?origenid=9 y
participá de todos los beneficios del Portal Arnet.
--------------------------------------------------------------------------------
13070868360001200710261419010397200000008428387701360400000008A S
22007102601001000000001000000018030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743051815943520071105
200710012007103120071130
22007102601001000000002000000028030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743059097201820071105
200710012007103120071130
22007102601001000000003000000038030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743031554889420071105
200710012007103120071130
22007102601001000000004000000048030500010912000000000147983000000000000000000000000122300000000000025683000000000000000000000000000000A5743091201837520071105
200710012007103120071130
22007102601001000000005000000058030500010912000000000388047000000000000000000000000320700000000000067347000000000000000000000000000000A5743044588939720071105
200710012007103120071130
22007102601001000000006000000068030500010912000000000394944000000000000000000000000326400000000000068544000000000000000000000000000000A5743036297464020071105
200710012007103120071130
22007102601001000000007000000078030546231034000000000296450000000000000000000000000245000000000000051450000000000000000000000000000000A5743010503813620071105
200710012007103120071105
22007102601001000000008000000088030516272380000000000155122000000000000000000000000128200000000000026922000000000000000000000000000000A5743094207245820071105
200710012007103120071105
3
000008000000001770593000000000000000000000001463300000000000307293000000000000000000000000000000
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.19/1105 - Release Date:
02/11/2007 11:04
--
No virus found in this incoming message.
Checked by AVG Free Edition. Version: 7.5.503 / Virus Database:
269.15.20/1107 - Release Date: 03/11/2007 11:22
