home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / STRTOKEN.C < prev    next >
C/C++ Source or Header  |  1994-05-29  |  1KB  |  37 lines
  1. #include <ClipApi.h>
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. CLIPPER StrToken()    //  cString, nWord
  6. {
  7.    LPSTR szText    = _parc( 1 );
  8.    WORD wOcurrence = _parni( 2 );
  9.    WORD wStart = 0, wEnd = 0, wCounter = 0;
  10.  
  11.    do {
  12.       wStart = wEnd;
  13.  
  14.       while( szText[ wStart ] &&
  15.            ( ( szText[ wStart ] < 'A' || szText[ wStart ] > 'z' ) &&
  16.              ( szText[ wStart ] < '0' || szText[ wStart ] > '9' ) ) )
  17.          wStart++;
  18.  
  19.       if( szText[ wStart ] )
  20.       {
  21.          wEnd = wStart + 1;
  22.  
  23.          while( szText[ wEnd ] &&
  24.               ( ( szText[ wEnd ] >= 'A' && szText[ wEnd ] <= 'z' ) ||
  25.                 ( szText[ wEnd ] >= '0' && szText[ wEnd ] <= '9' ) ) )
  26.             wEnd++;
  27.       }
  28.       else
  29.          wEnd = wStart;
  30.  
  31.    } while( wCounter++ < wOcurrence - 1 && szText[ wEnd ] );
  32.  
  33.    _retclen( szText + wStart, wEnd - wStart );
  34. }
  35.  
  36. //----------------------------------------------------------------------------//
  37.