быть сохранено при текущем выполнении
Примечания
Состояние среды, задаваемое параметром <cTokenEnvironment>, должно
быть сохранено при текущем выполнении программы, а не восстановлено,
например, из .MEM-файла.
Примеры
. Пошаговое разбиение на элементы (текста - на строки, а строк - на
слова):
TOKENINIT(@cTextString, CHR(13) + CHR(10), 2)
cLine := TOKENNEXT()
DO WHILE .NOT. TOKENEND()
cLine := TOKENNEXT(cTextString)
WORD(cLine)
ENDDO
* Функция, выделяющая слова из строк:
FUNCTION WORD(cLine)
cOldEnv := SAVETOKEN()
TOKENINIT(@cLine, " .,-:;")
DO WHILE .NOT. TOKENEND()
cWord := TOKENNEXT(cLine)
? cWord
ENDDO
RESTTOKEN(cOldEnv)
RETURN ("")
See Also: SAVETOKEN()
TOKENINIT()
TOKENNEXT()
SAVETOKEN()
Сохраняет среду пошаговой детализации выделения элементов.
------------------------------------------------------------------------------
Синтаксис
SAVETOKEN() --> cTokenEnvironment
Возвращаемое значение
cTokenEnvironment - символьная строка, содержащая внутреннюю среду
пошаговой детализации выделения элементов.
Описание
Функция сохраняет внутреннюю среду пошагового выделения элементов
(внутренние указатели, инициализированную символьную переменную и
т.д.).
Выделение элементов можно производить по шагам, связанным с уровнем
детализации. Например, выделение строки текста - элемента первого
уровня, а затем выделение слов в строке - элементов второго уровня.
Пошаговая детализация при выделении элементов облегчается при
сохранении и последующем восстановлении внутренней среды с помощью
RESTTOKEN(). При этом сохраняются ранее инициализированная символьная
переменная, внутренние указатели и соответствующие области программы.