problemas con la Ñ lower ( SOLUCIONADO )

[Patricio Avalos Aguirre]

Estimados

Tengo problemas con la letra Ñ, la funcion lower() no funciona con esta Letra

existe la funcion CHARUPPER que hace lo Contrario, revice dicha funcion para cambiarla a lower pero me arroja error al compilar

Code: Select all  Expand view

Warning W8065 .\\SalidaAR.PRG 1598: Call to function 'HB_ISNUM' with no prototyp
e in function HB_FUN_CHARLOWER
        c:\borland\bcc582\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_ISNUM' referenced from D:\APL\PRGS\BENAVENTE\ARR
IENDO\OBJ\SALIDAAR.OBJ
 

existira la funcion CHARLOWER ??

trate de hacer esto pero no me compila, es sacada de la funcion CHARUPPER

Code: Select all  Expand view

#pragma BEGINDUMP
#include <Windows.h>

HB_FUNC( CHARLOWER )
{
   unsigned char uc[ 2 ];

   if( HB_ISNUM( 1 ) )
   {
      uc[ 0 ] = hb_parnl( 1 );
      uc[ 1 ] = 0;

      hb_retc( CharLower( ( LPSTR ) uc ) );
   }
   else
      hb_retc( CharLower( ( char * ) hb_parc( 1 ) ) );
}
#pragma ENDDUMP
 

[jll-fwh]

Patricio:

No funcionan ni lower() y upper()

Un saludo
JLL

[albeiroval]

Patricio prueba asi..

Code: Select all  Expand view

#include "fivewin.ch"

function main()
  Local cChar:= "Ñ"
 
  ? cChar
  cChar:= CharLower( cChar )
  ? cChar
return nil

#pragma BEGINDUMP

#include <Windows.h>

HB_FUNC( CHARLOWER )
{
   LPSTR cChar;
   
   cChar = CharLower( (LPSTR) hb_parc(1) );
   hb_retc( cChar );
}

#pragma ENDDUMP
 

Saludos,

[Patricio Avalos Aguirre]

Excelente

Muchas Gracias Albeiro.

[Patricio Avalos Aguirre]

Estimados

Solo un detalle, que modifica la variable con si se pasara por referencia
alguna forma que no modifique dicha variable

Code: Select all  Expand view

ejemplo
local p := "HOLA ÑOÑO"
? CharLower( p )  // hola ñoño
? p // hola ñoño, no deberia modificar la variable !no me gusta!!!
 

[albeiroval]

Hola Patricio,

Prueba asi :

Code: Select all  Expand view

#include "fivewin.ch"

function main()
  Local cChar:= "ÑOÑO"
 
  ? cChar
  ? CharLower( cChar )
  ? cChar
return nil

#pragma BEGINDUMP

#include <Windows.h>

#define MAX_CHAR 300

HB_FUNC( CHARLOWER )
{
   CHAR cChar[MAX_CHAR];
     
   strcpy( cChar, (LPSTR)hb_parc(1) );
   CharLower( cChar );
   hb_retc( cChar );
}

#pragma ENDDUMP
 
 

Saludos,

Albeiro,

[Patricio Avalos Aguirre]

Excelente

ahora si, queda solucionado.. jeje

Muchas gracias Albeiro..