**********************************************************************

CLEAR ALL
CLOSE ALL
Строка=" Тананаев Дмитрий Александрович - Пример разбивки строки по словам "

*Убираем пробелы справа и слева"
Строка=ALLTRIM(Строка)

*Узнаем длинну строки"
длинна=LEN(Строка)

*Определяем разделитель слов"
разделитель=" "

*Какой по счету разделитель ищем"
номер=1

*Предыдущая позиция разделителителя"
предыдущая=1

* Количество разделителей в строке
слов=OCCURS(разделитель,Строка)+1
DIMENSION слово(слов)

*Обработка строки

DO WHILE .t.
позиция = AT(разделитель,Строка,номер)
IF позиция=0
слово(номер)=SUBSTR(Строка,предыдущая,длинна-предыдущая+1)
EXIT
ENDIF
слово(номер)=SUBSTR(Строка,предыдущая,позиция-предыдущая)
предыдущая=позиция+1
номер=номер+1
ENDDO

*Вывод результатов

FOR номер=1 TO слов
?номер,слово(номер)
ENDFOR