FiveTech Support Forums

Function ReemplazarVocales(cCadena)
Local cRespuesta

cRespuesta:=STRTRAN(cCadena   ,"á","a")
cRespuesta:=STRTRAN(cRespuesta,"é","e")
cRespuesta:=STRTRAN(cRespuesta,"í","i")
cRespuesta:=STRTRAN(cRespuesta,"ó","o")
cRespuesta:=STRTRAN(cRespuesta,"ú","u")

cRespuesta:=STRTRAN(cRespuesta,"Á","A")
cRespuesta:=STRTRAN(cRespuesta,"É","E")
cRespuesta:=STRTRAN(cRespuesta,"Í","I")
cRespuesta:=STRTRAN(cRespuesta,"Ó","O")
cRespuesta:=STRTRAN(cRespuesta,"Ú","U")

Return cRespuesta

Function ReemplazarVocales2(cCadena)
Local cRespuesta,N,aArray1,aArray2

aArray1:={"á","é","í","ó","ú","Á","É","Í","Ó","Ú"}
aArray2:={"a","e","i","o","u","A","E","I","O","U"}

cRespuesta:=cCadena

FOR N=1 TO LEN(aArray1)
   cRespuesta:=STRTRAN(cRespuesta,aArray1[N],aArray2[N])
NEXT

Return cRespuesta
//

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <hbapiitm.h>
#include <hbapierr.h>

HB_FUNC( UNACC )
{
   char * cData     = hb_parc( 1 );
   HB_ISIZ      nLen      = hb_parclen( 1 );
   HB_ISIZ      nPos = 0, nPosRet = 0, nVal;

   char         cElem;

   if( ! cData )
   {
      hb_errRT_BASE( EG_ARG, 3012, NULL,
                     HB_ERR_FUNCNAME, 1, hb_paramError( 1 ) );
      return;
   }

   if( ! nLen )
   {
      hb_retc_null();
      return;
   }
   
   
   while( nPos < nLen )
   {
   
      cElem = cData[ nPos ];

      if( cElem == 'á' )
      {
         cData[ nPosRet ] = 'a';
      }
      else if( cElem == 'é' )
      {
         cData[ nPosRet ] = 'e';
      }
      else if( cElem == 'í' )
      {
         cData[ nPosRet ] = 'i';
      }
      else if( cElem == 'ó' )
      {
         cData[ nPosRet ] = 'o';
      }
      else if( cElem == 'ú' )
      {
         cData[ nPosRet ] = 'u';
      }
      if( cElem == 'Á' )
      {
         cData[ nPosRet ] = 'A';
      }
      else if( cElem == 'É' )
      {
         cData[ nPosRet ] = 'E';
      }
      else if( cElem == 'Í' )
      {
         cData[ nPosRet ] = 'I';
      }
      else if( cElem == 'Ó' )
      {
         cData[ nPosRet ] = 'O';
      }
      else if( cElem == 'Ú' )
      {
         cData[ nPosRet ] = 'U';
      }
   
      nPosRet++;
      nPos++;
   
   }
   hb_storc( cData, 1 );
}


#pragma ENDDUMP