FiveTech Software tech support forums

Posted: **Fri Jun 25, 2021 2: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.

Posted: **Fri Jun 25, 2021 4:57 pm**

Pedro,

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

Aguardamos para verla :-)

Posted: **Fri Jun 25, 2021 5:58 pm**

Prueba asi

Code: Select all | Expand


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

Posted: **Tue Jun 29, 2021 9: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 !

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.

Posted: **Wed Jun 30, 2021 8:19 am**

Efectivamente, debería ser así

Code: Select all | Expand


   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: Select all | Expand


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

Posted: **Wed Jun 30, 2021 3: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 !!!

FiveTech Software tech support forums

Conversión Archivos TXT sin chr(13)

Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)

Re: Conversión Archivos TXT sin chr(13)