FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour HARBOUR (SOLUCIONADO)
miarcod
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
HARBOUR (SOLUCIONADO)
Posted: Fri Jun 06, 2014 03:46 PM
Hola,

Alguien me podr铆a indicar porque al ejecutar el siguiente c贸digo con harbour

Code (fw): Select all Collapse
#include "fivewin.ch"

FUNCTION CODIGOSTECLADO()
Local cFile, nMani

cFile := cGetFile32( "Est谩s cami贸n", "Nombre de fichero" )

If !empty(cFile)
聽 聽If len(cFile) < 5 .or. 聽right(cFile,4) != ".txt"
聽 聽 聽 聽 聽cFile += ".txt"
聽 聽EndIf
聽 聽nMani := 聽fcreate(cFile)
聽 聽fclose(nmani)
聽 聽Msginfo("Se gener贸 el fichero " + cFile)
EndIf


El nombre del fichero que se genera no tiene los caracteres que se introducen en el di谩logo (caracteres con acento, etc.)


Si guardo el fichero con el nombre : Est谩s cami贸n
El fichero que se crea tiene el nombre: Est脽s cami鈮

Ya he probado a poner al principo del programa

HB_SetCodePage(850)
//HB_SetCodePage("ESWIN") //NO FUNCIONA ROMPE


pero nada
驴驴????
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: HARBOUR
Posted: Fri Jun 06, 2014 05:12 PM
Has probado

Code (fw): Select all Collapse
聽 聽HB_LANGSELECT( 'ESWIN' ) 聽 聽 聽 //Selecciona lenguaje espaa帽ol //ES
聽 聽HB_SETCODEPAGE( 'ESWIN' ) 聽 //Selecciona el codigo de pagina espa帽ol
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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: HARBOUR
Posted: Fri Jun 06, 2014 05:16 PM
Miacord,

Asi funciona bien aqui:

Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST HB_CODEPAGE_ESWIN

FUNCTION CODIGOSTECLADO()
Local cFile, nMani

HB_SetCodePage("ESWIN")

cFile := cGetFile32( "Est谩s cami贸n", "Nombre de fichero" )

If !empty(cFile)
   If len(cFile) < 5 .or.  right(cFile,4) != ".txt"
         cFile += ".txt"
   EndIf
   nMani :=  fcreate( cFile )
   fclose(nmani)
   Msginfo("Se gener贸 el fichero " + cFile)
EndIf
regards, saludos

Antonio Linares
www.fivetechsoft.com
miarcod
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Re: HARBOUR
Posted: Sat Jun 07, 2014 09:01 AM

gracias, ahora funciona bien, seguir茅 probando

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions