FiveTech Support Forums

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

HB_FUNC( DEVUELVEMATRIZ )
{
   LPSTR szTitle = "Nuevo valor";
   //LPSTR szMsg = "Hasta Aquí llega";

   PHB_ITEM pArray; 

   char cadena[] = "STATES 1:2|200,2,1:2|201,2,1:7923|202,2,1:5568|203,2,1:1423|204,2,1:1423|205,2,1:1|206,2,1:1|208,2,1:1|209,2,1:17|210,2,1:1|213,2,1:A2DED32F|";
  
   char *elemento;

   elemento = [b]strtok[/b](cadena," |");

   pArray = hb_itemArrayNew(0);

   while (elemento != NULL)
   {
      //printf("%s\n",elemento);
      MessageBox( GetActiveWindow(), elemento, szTitle, 0x40 ); 

      hb_arrayAddForward(pArray,( PHB_ITEM ) elemento );
      elemento = strtok(NULL," |");
   }
   
   /* Manejo de la matriz dentro de la función en C.
   for(i=1;i<=13;i++)
   {
     MessageBox( GetActiveWindow(), pArray+i-1, szTitle, 0x40 );
   }      
   */
   
  //Devolver matriz al prg:
   hb_itemReturn( pArray );

   //return pArray;
}
#pragma ENDDUMP

   hb_reta( 3 );
   hb_stornl(  1, -1, 1 );
   hb_stornl( 12, -1, 2 );
   hb_stornl( 13, -1, 3 );

HB_FUNC( DEVUELVEMATRIZ )
{
   LPSTR szTitle = "Nuevo valor";
   //LPSTR szMsg = "Hasta Aquí llega";

   PHB_ITEM pArray; 

   char cadena[] = "STATES 1:2|200,2,1:2|201,2,1:7923|202,2,1:5568|203,2,1:1423|204,2,1:1423|205,2,1:1|206,2,1:1|208,2,1:1|209,2,1:17|210,2,1:1|213,2,1:A2DED32F|";
  
   char *elemento;

   elemento = [b]strtok[/b](cadena," |");

   pArray = hb_itemArrayNew( 0 );

   while (elemento != NULL)
   {
      PHB_ITEM pItem = hb_itemPutC( NULL, elemento );

      //printf("%s\n",elemento);
      MessageBox( GetActiveWindow(), elemento, szTitle, 0x40 ); 

      hb_arrayAddForward( pArray,( PHB_ITEM ) pItem );
      hb_itemRelease( pItem );

      elemento = strtok(NULL," |");
   }
   
   /* Manejo de la matriz dentro de la función en C.
   for(i=1;i<=13;i++)
   {
     MessageBox( GetActiveWindow(), pArray+i-1, szTitle, 0x40 );
   }      
   */
   
  //Devolver matriz al prg:
   hb_itemReturn( pArray );

   //return pArray;
}

#pragma BEGINDUMP

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

HB_FUNC( DEVUELVEMATRIZ )
{
   PHB_ITEM pArray;

   size_t nSize = 0;
   char *cadena;    // Contendrá una copia para trabajar de la cadena pasada a la función
   char *elemento;
       
   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.
   //memset(cadena,NULL,nSize);      // Inecesario porque cadena será igual que hb_parc( 1 )
       
   memcpy( ( void * ) cadena, ( void * ) hb_parc( 1 ), nSize );

   elemento = strtok(cadena," |");

   pArray = hb_itemArrayNew( 0 );

   while (elemento != NULL)
       {
          PHB_ITEM pItem = hb_itemPutC( NULL, elemento );

          //printf("%s\n",elemento);
          //MessageBox( GetActiveWindow(), elemento, "elemento", 0x40 );

          hb_arrayAddForward( pArray,( PHB_ITEM ) pItem );
          hb_itemRelease( pItem );

          elemento = strtok(NULL," |");
       }
       
   free(cadena);  //Libera la memoria reservada para la variable: cadena
   //Devolver matriz al prg:
   hb_itemReturn( pArray );
   hb_itemRelease( pArray );
}