FiveTech Support Forums

/* STR_EXTRAECARACTERES   OJO ESTÁ FALLANDO EN hb_xfree(cadena)
   Devuelve la parte de caracteres de una cadena.
*/
HB_FUNC( STR_EXTRAECARACTERES )
{
   size_t nSize;
   char *cadena;      // Contendrá una copia para trabajar de la cadena pasada a la función
       
   nSize = strlen( hb_parc( 1 ) )+1; //Suma uno para incluir el caracter de final de cadena='\0'
   //cadena=(char *)malloc(nSize);     // Reserva la memoria para la variable: cadena.
   cadena=(char *)hb_xgrab(nSize);
      
   memcpy( ( void * ) cadena, ( void * ) hb_parc( 1 ), nSize );
  
   while ( *cadena && !isdigit(*cadena) )
         cadena++;
   
   *cadena='\0';
   
   //Devuelve la cadena al prg:
   //MessageBox( GetActiveWindow(), result, "Resultado:", 0x40 );
   hb_retc( cadena );       
   hb_xfree(cadena);  //Libera la memoria reservada para la variable: cadena
                      // hb_xfree(cadena) Si se usa esta de Harbour es más seguro el liberado.
}

#pragma BEGINDUMP

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

HB_FUNC( STR_EXTRAECARACTERES )
{
   size_t nSize;
   char *cadena;      // Contendrá una copia para trabajar de la cadena pasada a la función
       
   nSize = strlen( hb_parc( 1 ) )+1; //Suma uno para incluir el caracter de final de cadena='\0'
   //cadena=(char *)malloc(nSize);     // Reserva la memoria para la variable: cadena.
   cadena=(char *)hb_xgrab(nSize);
      
   memcpy( ( void * ) cadena, ( void * ) hb_parc( 1 ), nSize );
  
   while ( *cadena && !isdigit(*cadena) )
         cadena++;
   
   *cadena='\0';
   
   //Devuelve la cadena al prg:
   //MessageBox( GetActiveWindow(), result, "Resultado:", 0x40 );
   hb_retc( cadena );       
   hb_xfree(cadena);  //Libera la memoria reservada para la variable: cadena
                      // hb_xfree(cadena) Si se usa esta de Harbour es más seguro el liberado.
}

#pragma ENDDUMP

#pragma BEGINDUMP

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

HB_FUNC( STR_EXTRAECARACTERES )
{
   char * cadena = ( char * ) hb_xgrab( hb_parclen( 1 ) + 1 );      // Contendrá una copia para trabajar de la cadena pasada a la función
   char * pIndex = cadena;    
       
   strcpy( cadena, hb_parc( 1 ) );     
       
   while ( * pIndex && ! isdigit( * pIndex ) )
      pIndex++;
   
   * pIndex = '\0';
   
   hb_retc( cadena );       
   hb_xfree( ( void * ) cadena );  //Libera la memoria reservada para la variable: cadena
                        // hb_xfree(cadena) Si se usa esta de Harbour es más seguro el liberado.
}

#pragma ENDDUMP

#pragma BEGINDUMP
#include "hbapi.h"
#include "windows.h"
#include "string.h"

/* STR_EXTRAECARACTERES
   Devuelve la parte de caracteres inicial de una cadena que contenga números a partir de
    un cierto caracter. Ejemplo de uso desde un PRG:
    
    STR_EXTRAECARACTERES( "cParteCaracteres0123" )  --> cParteCaracteres
*/
HB_FUNC( STR_EXTRAECARACTERES )
{
   char *cadena = (char *)hb_xgrab( hb_parclen(1)+1 ); // Contendrá una copia para trabajar de la cadena pasada a la función
   char *pIndex = cadena;                              // Suma uno para incluir el caracter de final de cadena='\0'
       
   strcpy( cadena, hb_parc(1) );
  
   while ( *pIndex && !isdigit(*pIndex) )
        pIndex++;
   
   *pIndex = 0;   
   
   //Devuelve la cadena al prg recortada hasta donde empiezan los dígitos:
   //MessageBox( GetActiveWindow(), cadena, "Resultado:", 0x40 );
   hb_retc( cadena );       
   hb_xfree( (void *)cadena );  //Libera la memoria reservada para la variable: cadena
}
#pragma ENDDUMP

    /* STR_EXTRAECARACTERES   OJO ESTÁ FALLANDO EN hb_xfree(cadena)
       Devuelve la parte de caracteres de una cadena.
    */
    HB_FUNC( STR_EXTRAECARACTERES )
    {
       size_t nSize = hb_parclen( 1 ) + 1;
       char *cadena = hb_parc( 1 );      // Contendrá una copia para trabajar de la cadena pasada a la función
       char *wCadena =  (char *) hb_xgrab( nSize );   
    
       while ( *cadena && !HB_ISDIGIT(*cadena) )
       {
             *wCadena++ = *cadena++;    
       }
       *wCadena++ = '\0';
       
       //Devuelve la cadena al prg:
       //MessageBox( GetActiveWindow(), result, "Resultado:", 0x40 );
       hb_retc( wCadena );      
       hb_xfree(wCadena);  //Libera la memoria reservada para la variable: cadena
    }

#pragma BEGINDUMP
#include "hbapi.h"
#include "windows.h"
#include "string.h"

HB_FUNC( STR_EXTRAECARACTERES )
{
   char * cadena = ( char * ) hb_parc( 1 ); 
   char * pIndex = cadena; 
       
   while ( * pIndex && ! isdigit( * pIndex ) )
        pIndex++;
   
   hb_retclen( cadena, pIndex - cadena );       
}

#pragma ENDDUMP

    #pragma BEGINDUMP
    #include "hbapi.h"
    #include "windows.h"
    #include "string.h"

    HB_FUNC( STR_EXTRAECARACTERES )
    {
       char * cadena = ( char * ) hb_parc( 1 );
       HB_SIZE ilen = hb_parclen( 1 );
       HB_SIZE iIndex = 0;
           
       while ( * cadena && ! isdigit( * cadena ) ) {
            iIndex++;
            *cadena++;
       }
       
       hb_retclen( cadena, iLen - iIndex);      
    }

    #pragma ENDDUMP