#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define STR_BUFFER 256                // максимальная длина строки
#define WD " ,.:;?!\t\n\r\"\"\'"      // символы-разделители

// Функции для работы с лексемами

int wordcount(const char *str, const char *worddelim)
/*
 Возвращает число лексем в строке str, разделенных разделителями worddelim
*/
{
  int i, count, len;

  count = i = 0;
  len = strlen(str);

  while (i<=len)
    {
      while ((i<=len) && (strchr(worddelim, str[i]) != NULL)) i++; // пока текущий символ из worddelim, двигаемся к концу
      if (i<=len) count++;                                         // начало лексемы, увеличиваем счётчик лексем
      while ((i<=len) && (strchr(worddelim, str[i]) == NULL)) i++; // пока текущий символ НЕ из worddelim, двигаемся к концу
    }
  return count;
}

int wordpos(const unsigned int n, const char *str, const char *worddelim)
/*
 Возвращает позицию лексемы номер n в строке str с разделителями worddelim
 Если лексемы номер n не существует, возвращает -1
*/
{
  int i, count, len;

  count = i = 0;
  len = strlen(str);

  while ((i<=len) && (count != n))
    {
      while ((i<=len) && (strchr(worddelim, str[i]) != NULL)) i++;   // пока текущий символ из worddelim, двигаемся к концу
      if (i<=len) count++;                                           // начало лексемы, увеличиваем счётчик лексем
      if (count != n)                                                // если это не лексема номер n - ищем следующую.
        while ((i<=len) && (strchr(worddelim, str[i]) == NULL)) i++; // пока текущий символ НЕ из worddelim, двигаемся к концу
      else
        return i;                                                    // это лексема номер n - возвращаем её позицию
    }
  return -1;                                                         // нет лексемы с номером n - возвращаем -1
}

char *extractword(const unsigned int n, char *str, char *worddelim)
/*
 Извлекает лексему номер n из строки str с разделителями worddelim и возвращает указатель на нее
 Если лексемы номер n нет, возвращает NULL
*/
{
  int i, j, len;
  char *word;

  word = NULL;
  len = strlen(str);
  i = wordpos(n, str, worddelim); // ищем позицию лексемы номер n

  if (i == -1) return word;      // лексемы номер n нет - возвращаем NULL

  if (wordpos(n+1, str, worddelim) != -1) j = wordpos(n+1, str, worddelim)-i; 
  // лексема не последняя - ее длина равна позиция следующей лексемы минус позиция искомой лексемы
  else j = len - i;
  // лексема последняя - ее длина равна длина строки минус позиция искомой лексемы

  word = (char *) calloc(j+1, sizeof(char)); // выделяем память под искомую лексему - длина лексемы плюс '\0'
  j = 0;
  while ((i<len) && (strchr(worddelim, str[i]) == NULL)) word[j++] = str[i++]; 
  word[strlen(word)] = '\0'; // копируем лексему из строки str во временную переменную word и завершаем ее '\0'
  return word;
}

// Проверяем, как это работает

int main()
{
  int i, wcount;
  char *s, *d1;

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  d1 = (char *) calloc(STR_BUFFER, sizeof(char));

  strncpy(s, "Hello, my crazy world!", STR_BUFFER);
  printf(" String - \"%s\", delimeters - \"%s\"\n\n", s, WD);

  wcount = wordcount(s, WD);
  printf(" Word count - %u\n\n", wcount);

  for (i = 1; i <= 5; i++)
  {
    printf(" Word number %i start position - %i\n", i, wordpos(i, s, WD));
  }
  printf("\n");

  for (i = 1; i <= wcount; i++)
  {
    d1 = extractword(i, s, ". ");
    printf(" Word number %d - %s\n", i, d1);
  }

  free(s); free(d1);

  return 0;
}

char *extractword2(const unsigned int n, char *str, char *worddelim)
/*
 Извлекает лексему номер n из строки str с разделителями worddelim с помощью strtok и возвращает указатель на нее
 Если лексемы номер n нет, возвращает NULL
*/
{
  int i;
  char *s, *word;

  s = strdup(str);
  word = strtok(s, worddelim);
  if (n == 1) return word;
  for (i = 2; i <= n; i++) word = strtok(NULL, worddelim);
  return word;
}

  int i;
  char *source, *w1, *w2, *s;
  [...]
  s = strdup(source);
  w1 = strtok(s, worddelim);
  w1 = strtok(NULL, worddelim);

  s = strdup(source);
  w2 = strtok(s, worddelim);
  for (i = 2; i<=4; i++) 
    w2 = strtok(NULL, worddelim);

  int i;
  char *source, *w1, *w2;

  w1 = extractword2(2, source, worddelim);
  w2 = extractword2(4, source, worddelim);

  char *s, *word;

  s = strdup(str);
  word = strtok(s, worddelim);

  free(s);
  return word;

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#define WD " "
#define STR_BUFFER 256

char *extractword2(const unsigned int n, const char *str, const char *worddelim)
{
  int i;
  char *s, *word;

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  strncpy(s, str, STR_BUFFER);
  word = (char *) calloc(STR_BUFFER, sizeof(char));

  word = strtok(s, worddelim);
  if (n != 1)
    for (i = 2; i <= n; i++) word = strtok(NULL, worddelim);

  printf("[extractword2] Word '%s' - %i\n", word, *word);

  free(s);
  return word;
}

int main()
{
  char *s, *word;

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  strncpy(s, "Hello, my crazy world!", STR_BUFFER);

  printf("String - %s\n", s);

  word = extractword2(2, s, WD);
  printf("Word #2 '%s' - %i\n", word, *word);
  free(word);

  word = extractword2(4, s, WD);
  printf("Word #4 '%s' - %i\n", word, *word);
  free(word);

  return 0;
}

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#define WD " "
#define STR_BUFFER 256

void extractword3(const unsigned int n, const char *str, const char *worddelim, char **result)
{
  int i;
  char *s;

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  strncpy(s, str, STR_BUFFER);

  *result = strtok(s, worddelim);
  if (n != 1)
    for (i = 2; i <= n; i++) *result = strtok(NULL, worddelim);
  printf("[extractword3] Word '%s' - %i\n", *result, **result);

  free(s);
}

int main()
{
  char *s, *word;

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  strncpy(s, "Hello, my crazy world!", STR_BUFFER);

  printf("String - %s\n", s);

  word = (char *) calloc(STR_BUFFER, sizeof(char));

  extractword3(2, s, WD, &word);
  printf("Word #2 - '%s' %i\n", word, *word);

  extractword3(4, s, WD, &word);
  printf("Word #4 - '%s' %i\n", word, *word);

  free(word);
  return 0;
}

  s = (char *) calloc(STR_BUFFER, sizeof(char));
  strncpy(s, str, STR_BUFFER);
...
  free(s);  

  s = strdup(str);
...
  free(s);

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define WD " "
#define STR_BUFFER 256

void extractword4(char *word, const unsigned int n, const char *str, const char *worddelim)
{
  int i = 2;
  char s[STR_BUFFER]; // сюда поместим копию разбираемой строки
  char *p;

  // делаем локальную копию разбираемой строки
  strcpy(s, str);

  // получаем указатель на первую лексему
  p = strtok(s, worddelim); 
  // если нам нужна не первая лексема
  if (n != 1) 
    while ( i <= n && p != NULL ) 
    // перебираем, пока не дойдём до нужного номера или пока не кончатся лексемы
    {
      p = strtok(NULL, worddelim);
      i++;
    }
  // Если n-ая лексема найдена, копируем ее в буфер, переданный в функцию, иначе заносим туда \0
  if ( p != NULL) strcpy(word, p); else *word = '\0';
  return;
}

int main()
{
  char *s, *word;

  word = (char *) calloc(STR_BUFFER, sizeof(char));
  s = (char *) calloc(STR_BUFFER, sizeof(char));

  strncpy(s, "Hello, my crazy world!", STR_BUFFER);

  printf("\n tst3, String - %s\n", s);

  extractword4(word, 1, s, WD);
  printf(" Word #1 '%s' - %i\n", word, *word);
  extractword4(word, 2, s, WD);
  printf(" Word #2 '%s' - %i\n", word, *word);
  extractword4(word, 4, s, WD);
  printf(" Word #4 '%s' - %i\n", word, *word);
  extractword4(word, 6, s, WD);
  printf(" Word #6 '%s' - %i\n", word, *word);
  free(word); free(s);
  return 0;
}