Crear archivo de texto en formato ANSI

Crear archivo de texto en formato ANSI

Postby VikthorThomas » Thu Apr 16, 2020 4:43 am

Buen día

Actualmente uso las funciones FCreate() , FWrite() y FClose() para crear archivos de texto.
Ahora requiero que esos archivos de texto se guarden en formato ANSI, las funciones que estoy usando crean los archivos en UTF-8

¿ Alguna sugerencia ?

Saludos
User avatar
VikthorThomas
 
Posts: 18
Joined: Mon Apr 01, 2019 7:13 pm

Re: Crear archivo de texto en formato ANSI

Postby cnavarro » Thu Apr 16, 2020 4:52 am

No creo que la codificación con la que te guardan los datos dependa de las funciones que utilices de Harbour, más bien dependerá de la codificación que en ese momento tengas activa, y / o del uso de las funciones para pasar a Ansi.
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
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Crear archivo de texto en formato ANSI

Postby VikthorThomas » Thu Apr 16, 2020 5:44 pm

Gracias por responder César.

¿ Cómo puedo revisar que configuración tengo activa ?

Saludos
User avatar
VikthorThomas
 
Posts: 18
Joined: Mon Apr 01, 2019 7:13 pm

Re: Crear archivo de texto en formato ANSI

Postby cnavarro » Thu Apr 16, 2020 6:12 pm

VikthorThomas wrote:Gracias por responder César.

¿ Cómo puedo revisar que configuración tengo activa ?

Saludos

Mi nombre es Cristobal
Tienes que mirar si en algún momento de tu aplicación tienes seteado algún codepage, algo asi
Code: Select all  Expand view  RUN

   HB_SETCODEPAGE( "UTF8" )
 

No has comentado cuál es el origen de lo que estás escribiendo en el fichero: lo creas tú?, lo lees de una base de datos?....
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
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 71 guests