FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problemas con memowrit
Posts: 5
Joined: Thu Aug 07, 2014 07:43 PM
Problemas con memowrit
Posted: Tue Sep 23, 2014 10:42 PM

Amigos

TXT="Provincia de 脩a脩a"

Usando MEMOWRIT("C:\INFO.TXT",TXT)
me percato que la 脩 la pone como 脨
saben como evitar eso

Gracias

Saludos

Vladimir Zorrilla LLerena

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Problemas con memowrit
Posted: Wed Sep 24, 2014 02:11 AM

HI sr.
? STRTRAN(MEMOREAD("C:\INFO.TXT"),"脨","脩")

Salu2

Posts: 5
Joined: Thu Aug 07, 2014 07:43 PM
Re: Problemas con memowrit
Posted: Wed Sep 24, 2014 04:09 AM

Gracias por contestar

Lo que estoy generando es un archivo xml con memowrit

El archivo generado lo van a subir a una pagina web de manera que yo no lo puedo cambiar desde fivewin por que
mi programa no va a leer ese archivo.

Saludos

Vladimir Zorrilla LLerena

Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Problemas con memowrit
Posted: Wed Sep 24, 2014 07:17 AM
Hola Vladimir,

si es XML, y en web, con una probabilidad muy alta est谩s usando utf-8, y es por eso el problema.
Un fichero XML comienza con la declaraci贸n que incluye el encoding que lleva:
Code (fw): Select all Collapse
<?xml version="1.0" encoding="UTF-8" standalone="no"?>


Harbour tiene funciones para escribir utf-8 HB_StrToUTF8() y la contrapartida HB_UTF8ToStr(), es decir que al escribir tienes que usar la primera y al leer la segunda para volver al encoding de Windows.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 5
Joined: Thu Aug 07, 2014 07:43 PM
Re: Problemas con memowrit
Posted: Wed Sep 24, 2014 06:47 PM

Gracias por la aclaracion Carlos la verdad busco solo que la 脩 se grabe como 脩 en un archivo de texto.
fwrite y memowrit no lo hacen .

La pregunta es si hay alguna clase o funcion que grabe la 脩 como 脩 en xharbour o harbour

Y que al abrirlo con el bloc de notas vea la 脩 como 脩

Alguien sabe como lograr esto

Gracias por las respuestas

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problemas con memowrit
Posted: Thu Sep 25, 2014 10:48 AM

Vladimir,

Este c贸digo funciona bien aqui:

MemoWrit( "test.txt", "ca帽a" )
Msginfo( MemoRead( "test.txt" ) )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Problemas con memowrit
Posted: Thu Sep 25, 2014 04:27 PM
Vladimir,
vzorrilla wrote:
La pregunta es si hay alguna clase o funcion que grabe la 脩 como 脩 en xharbour o harbour
Y que al abrirlo con el bloc de notas vea la 脩 como 脩
Alguien sabe como lograr esto

Es que el Block de Notas no es un programa adecuado para mirar xml, porque no soporta la codificaci贸n utf-8 que es de uso com煤n.

No se cual es tu edad, pero si eres 'de los m铆os', 'de mi quinta', habr谩s usado hasta el hartazgo OEM2Ansi y Ansi2OEM. Bueno, la situaci贸n es id茅ntica al problema MS-DOS/WIN, solo que ahora es Win/Web+XML. Ahora el encoding que usa Windows (WINANSI o algo as铆) es diferente del utf-8. Si lo escribes en WinANSI es casi con seguridad que las aplicaciones que procesan el xml se quejen de ese caracter.

Te reitero que la soluci贸n es transformar a utf-8 antes de escribir, y transformar a ansi al leer.

Code (fw): Select all Collapse
cVar:= 'Pira帽a'
__MemoWrit( 'test.txt', HB_StrToUTF8( cVar ) )

MsgInfo( HB_UTF8ToStr( MemoRead( 'test.txt' ) ) )

Deber铆a mostrar la 脩 correctamente.

Otra alternativa, que no se si es aceptable, es que indiques el encoding correcto en el xml y esperar que la otra aplicacion acepte cosas que tengan otro encoding.

Code (fw): Select all Collapse
<?xml version="1.0" encoding="iso-8859-15" standalone="no"?>


Con eso no tendr铆as que usar la transformaci贸n a utf8, y el notepad deber铆a mostrarlo bien, hay que ver si la aplicacion externa lo acepta.

Cuenta como te fue.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Problemas con memowrit
Posted: Thu Sep 25, 2014 04:54 PM

Carlos,

Magnifique ! que dir铆a Hercule Poirot.

Muy bien explicado y sobre todo solucionado.

Gracias por el aporte.

Saludos

Continue the discussion