topic-40573

Posts: 117

Joined: Sun Oct 08, 2017 12:51 PM

Conversión Archivos TXT sin chr(13)
Posted: Fri Jun 25, 2021 02:07 PM

Hola Gente !

Tengo un archivo con formato TXT, de ARBA (retenciones de Ingresos Brutos
de la Provincia de Buenos Aires), el cual descargaba todos los meses y
convertía directamente con un APPEND FROM para generar un DBF.

Resulta que a partir de 2 meses hasta la fecha, el mismo archivo no puedo
convertirlo (con el APPEND FROM), ya que no contiene el caracter '0D' o sea
el chr(13).

La pregunta es: ¿ cómo puedo hacer para agregarle al archivo txt el caracter
chr(13) para después convertilo con APPEND FROM ?,

Cualquier alternativa será bienvenida !

Les dejo una pequeña muestra en las imágenes.

Desde ya, muy agradecido por las molestias.
Saludos a todos !
Pedro Lavallén - Argentina - San Luis.

Pedro L. Lavallen

San Luis (Capital), Argentina

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Fri Jun 25, 2021 04:57 PM

Pedro,

Has repetido las imágenes en vez de poner la segunda imagen

Aguardamos para verla :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Fri Jun 25, 2021 05:58 PM

Prueba asi

Code (fw): Select all Collapse

   hb_Memowrit( "mifichero.txt", StrTran( hb_MemoRead( "mifichero.txt" ), Chr( 10 ), Chr( 13 ) ) ) )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

pedroluis

Posts: 117

Joined: Sun Oct 08, 2017 12:51 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Tue Jun 29, 2021 09:13 PM

Hola Cnavarro !
gracias por las respuesta, pero no funciona.
se queda colgado un tiempo largo y tengo que salir con 'Esc'

Ahora que puse bien los gráficos de arriba (que me había olvidado poner el segundo)
lo único que quiero hacer es agregarle (al segundo) es el caracter '0D' o sea el chr(13)
antes del '0a' (CHR10).

Saludos !

Pedro L. Lavallen

San Luis (Capital), Argentina

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Tue Jun 29, 2021 10:31 PM

Mira:

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=17386

http://fivewin.com.br/index.php?/topic/16201-arquivo-txtmemowritcaracter-especial-%1A/

https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/809976-Archivos-de-texto-en-clipper.html

Regards, Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Wed Jun 30, 2021 08:19 AM

Efectivamente, debería ser así

Code (fw): Select all Collapse

   hb_Memowrit( "mifichero.txt", StrTran( hb_MemoRead( "mifichero.txt" ), Chr( 10 ), CRLF ) )

Lo que no justifica que el programa se quede colgado como dices
Es muy grande el fichero?
Si lo haces paso a paso, sería así

Code (fw): Select all Collapse

   local cStr     := hb_MemoRead( "mifichero.txt" )
   local cTmp   := StrTran( cStr, Chr( 10 ), CRLF )
   ? cTmp
   hb_Memowrit( "mifichero.txt", cTmp )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

pedroluis

Posts: 117

Joined: Sun Oct 08, 2017 12:51 PM

Re: Conversión Archivos TXT sin chr(13)
Posted: Wed Jun 30, 2021 03:49 PM

Cnavarro:
Excelente. Funciona perfectamente !!!
Y si, el archivo es grande, tiene 3.800.000 reistros, por eso tarda.
Les agradezco también a los otros compañeros por sus respuestas,
pero usé la íltima respuesta del amigo Cnavarro y funcionó de 10 !
Saludos !!!

Pedro L. Lavallen

San Luis (Capital), Argentina

FiveTech Support Forums

Continue the discussion