Conversión Archivos TXT sin chr(13)

[pedroluis]

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.

[Antonio Linares]

Pedro,

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

Aguardamos para verla

[cnavarro]

Prueba asi

Code: Select all  Expand view  RUN

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

[pedroluis]

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 !

[karinha]

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.

[cnavarro]

Efectivamente, debería ser así

Code: Select all  Expand view  RUN

   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 view  RUN

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

[pedroluis]

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 !!!