Problemas con la Ñ

[horacio]

Colegas, debo verificar la existencia de un archivo

Code: Select all  Expand view

File( C:\escuelas\VIÑAS\config.ini )
 

Me devuelve .F., sin embargo el archivo existe en esa ruta. Me he dado cuenta que cambiando la Ñ por cualquier otra letra funciona. Esta es mi configuración del idioma

Code: Select all  Expand view

Request HB_LANG_ES
Hb_LangSelect("ES")
 

Algo me está faltando ? Desde ya muchas gracias

Saludos

[karinha]

Code: Select all  Expand view

REQUEST HB_LANG_ESWIN
Function Main()
    HB_LANGSELECT( 'ESWIN' )
    HB_SetCodePage("ESWIN")
    lOemToAnsi:=.T.
 

Saludos.

[horacio]

Gracias por responder. Obtengo este error

Code: Select all  Expand view

  Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 02/06/2017, 12:22:47
   Error description: Error BASE/1302  Argument error: HB_CDPISUTF8
   Args:
     [   1] = C   ESWIN

Stack Calls
===========
   Called from:  => HB_CDPISUTF8( 0 )
   Called from: ../../../langcomp.prg => HB_LANGSELECT( 0 )
   Called from: C:\acugan\main.prg => DEFINEENTORNO( 193 )
   Called from: C:\acugan\main.prg => MAIN( 32 )
 

Uso Harbour.

Saludos

[karinha]

Code: Select all  Expand view

hb_cdpIsUTF8()

Compliance

hb32 hb34

Library*

Harbour core

Text updated here on 2014-04-11 11:00:13
 

hbcpage.lib ??

hb_cdpIsUTF8([<cCPID>]) ➜ .T.|.F.
returns .T. if the current or the given <cCPID> code page is UTF8 otherwise returns .F.

Saludos.

[horacio]

Gracias Karinha por tu respuesta. He adjuntado la librería hbcpage.lib al proyecto y obtengo este error

Code: Select all  Expand view

   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 05/06/2017, 08:12:58
   Error description: Error BASE/1302  Argument error: HB_CDPISUTF8
   Args:
     [   1] = C   ESWIN

Stack Calls
===========
   Called from:  => HB_CDPISUTF8( 0 )
   Called from: ../../../langcomp.prg => HB_LANGSELECT( 0 )
   Called from: C:\acugan\main.prg => DEFINEENTORNO( 194 )
   Called from: C:\acugan\main.prg => MAIN( 32 )

 

Saludos

[cnavarro]

Harbour o xHarbour?

[horacio]

Cristobal, gracias por responder. Utilizo Harbour.

Saludos

[karinha]

Muestra:

main.prg

[horacio]

Karinha, te posteo la función donde estan estas llamadas.

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Function DefineEntorno()

    Set Epoch To 1950
    Set Date  To British
    Set Delete   On
    Set Multiple Off
    Set Autopen  On
    Set Softseek On
    Set Century  On
    Set Confirm  On
    Set 3dlook   On
    Set Decimals To 2
    Set Fixed Off
    Set Exact on
    Set Optimize On
    Request HB_LANG_ES
    HB_LANGSELECT( 'ESWIN' )
    HB_SetCodePage("ESWIN")
    SetHandleCount( 250 )
    Request DBFCDX
    RddSetDefault( "DBFCDX" )
    Return 0
   
 

Saludos

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

REQUEST HB_LANG_ESWIN
// REQUEST HB_LANG_ES
// REQUEST HB_CODEPAGE_PT850 // Cual es el de espania?

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

Function Main()

   SET EPOCH TO 1950
   SET DATE  TO BRITISH
   SET DELETE   ON
   SET MULTIPLE OFF
   SET AUTOPEN  ON
   SET SOFTSEEK ON
   SET CENTURY  ON
   SET CONFIRM  ON
   SET 3DLOOK   ON
   SET DECIMALS TO 2
   SET FIXED OFF
   SET EXACT ON
   SET OPTIMIZE ON

   // Request HB_LANG_ES
   HB_LANGSELECT( 'ESWIN' )
   HB_SetCodePage("ESWIN")

   // SetHandleCount( 250 )  // 16 bits no usar

   RDDSETDEFAULT("DBFCDX")

   ? [Main: Perfecto]

Return Nil

//----------------------------------------------------------------------------//
// Function DefineEntorno()  // main = principal - gerenciador
 

[cnavarro]

Yes, this run OK for me

Code: Select all  Expand view

#include "Fivewin.ch"

REQUEST HB_LANG_ESWIN

//----------------------------------------------------------------------------//

Function Main()

     HB_LANGSELECT( 'ESWIN' )
     HB_SetCodePage("ESWIN")
     
     ? File( "viña.txt" )

Return nil

//----------------------------------------------------------------------------//

 

[horacio]

Cristobal, no es el problema el nombre del archivo sino la ruta y este es el ejemplo que no funciona "C:\escuelas\VIÑAS\config.ini"

Saludos

[horacio]

Karinha, hice los cambios que me propusiste pero, si bien no da errores no funciona.

Saludos

[cnavarro]

Cuando leas el INI haz

? cFile ( o la variable que contenga el nombre completo ) y di lo que aparece

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

REQUEST HB_LANG_ESWIN
// REQUEST HB_LANG_ES
// REQUEST HB_CODEPAGE_PT850 // Cual es el de espania?

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

Function Main()

   LOCAL cFile

   SET EPOCH TO 1950
   SET DATE  TO BRITISH
   SET DELETE   ON
   SET MULTIPLE OFF
   SET AUTOPEN  ON
   SET SOFTSEEK ON
   SET CENTURY  ON
   SET CONFIRM  ON
   SET 3DLOOK   ON
   SET DECIMALS TO 2
   SET FIXED OFF
   SET EXACT ON
   SET OPTIMIZE ON

   cFile := "C:\escuelas\VIÑAS\config.ini"

   // Request HB_LANG_ES
   HB_LANGSELECT( 'ESWIN' )
   HB_SetCodePage("ESWIN")

   // SetHandleCount( 250 )  // 16 bits no usar

   RDDSETDEFAULT("DBFCDX")

   ? [Main: Perfecto], cFile

   ? [Main: Perfecto], OemToAnsi( cFile )

   ? [Main: Perfecto], AnsiToOem( cFile )

Return Nil

//----------------------------------------------------------------------------//
// Function DefineEntorno()  // main = principal - gerenciador