Добавлена новая функция:
GETNUMWORD() Возвращает порядковый номер заданного слова в строке, memo поле , либо возвращает ноль, если слово в строке не найдено. В некотором смысле данная функция является обратной встроенной функции FoxPro GETWORDNUM().
Может быть использована для определения того, имеется данное слово в строке либо нет. Оператор $ определяет вхождение подстроки в строку и не может быть использован для проверки вхождения слова в строку. Может быть также использована для определения того, встречается данное слово в строке более одного или нескольких раз.
GETNUMWORD(cString, cWord[, cDelimiters] [, nOccurrence] [, nFlags])
Тип возвращаемого значения числовой
Параметры
cString - строка, в которой будет разыскиваться слово.
cWord - слово, которое будет разыскиваться в строке cString и номер которого нужно определить.
cDelimiters - символьный тип, наибольшая длина 256 символов, определяет те символы, которые будут служить разделителями слов в строке cString. Разделителями по умолчанию являются пробелы, символы табуляции, возврата каретки и перевода строки.
GETNUMWORD() считает каждый символ из строки cDelimiters как отдельный разделитель, а не всю строку cDelimiters как единый разделитель.
nOccurrence - необязательный числовой параметр, определяет какое именно вхождение слова в строку нужно искать, по умолчанию разыскивается первое вхождение слова в строку.
nFlags - необязательный параметр, определяет критерии поиска в соответствии со следующими значениями
0 Поиск чувствителен к регистру
1 Поиск нечувствителен к регистру
Примечания:
Передайте –1 для необязательных параметров, если, скажем, нужно всего лишь передать параметр nFlags, не указывая явно предыдущие необязательные параметры.
Функция GETNUMWORD() по умолчанию считает, что слова разделены пробелами, символами табуляции, возврата каретки и перевода строки. Если передан параметр cDelimiters, функция игнорирует пробелы, символы табуляции, возврата каретки и перевода строки.
Примеры:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
Set Library To St_Denis Additive
Local lcString
lcString = 'Не желала бы я встретиться с вами, когда у вас в руках револьвер, ;
кокетливо поглядывая на Азазелло, сказала Маргарита. У нее была страсть ко всем людям, которые делают что-либо первоклассно.'
?GETNUMWORD(lcString, 'Азазелло', ',. '+Chr( 10 )+Chr( 13 )) && возвращает 17
** во втором примере memo поле notes таблицы Employee передается по ссылке, поэтому перед именем стоит значок @, только для функции LCK !
?'2 example work with memo field'
Close Database
Open Database (Home( 2 ) + 'data\testdata') Noupdate
Use employee Noupdate In 0
Select employee
Go 1
?GETNUMWORD(@employee.notes, "Telemarketing") && возвращает 62
?GETNUMWORD(@employee.notes, "Buchanan" ) && возвращает 2
** разыскивается второе вхождение слова в memo поле и возвращается его номер
?GETNUMWORD(@employee.notes, "Buchanan", - 1 , 2 ) && возвращает 56
** поиск слова, чувствительный к регистру
?GETNUMWORD(@employee.notes, "french", ',. '+Chr( 10 )+Chr( 13 )) && возвращает 0
** поиск слова, НЕчувствительный к регистру
?GETNUMWORD(@employee.notes, "french", ',. '+Chr( 10 )+Chr( 13 ), - 1 , 1 ) && возвращает 71
?'3 example '
** имеется строка с различными кодами, разделенными запятыми
Local lcAdmissibleCodes, lcCodeforChecking
lcAdmissibleCodes = "W,WN,IR,IU"
lcCodeforChecking = "I"
?lcCodeforChecking $ lcAdmissibleCodes && возвращает .T.
?GETNUMWORD(lcAdmissibleCodes , lcCodeforChecking, ","+Space( 1 ) ) && возвращает 0
lcCodeforChecking = "IR,"
?lcCodeforChecking $ lcAdmissibleCodes && возвращает .T.
?GETNUMWORD(lcAdmissibleCodes , lcCodeforChecking, ","+Space( 1 ) ) && возвращает 0
lcAdmissibleCodes = "W,WN,IR,IU,WN,DS"
lcCodeforChecking = "WN"
** определим встречается ли код "WN" дважды в строке lcAdmissibleCodes
?GETNUMWORD(lcAdmissibleCodes , lcCodeforChecking, ","+Space( 1 ), 2 ) && возвращает 5 , то есть код встречается дважды, поскольку результат не нулевой
Release Library St_Denis
Вы можете загрузить русскую версию данной библиотеки по адресу
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.zip
размер ~600 килобайт
Либо по частям ~120 килобайт каждая часть
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.7z.001
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.7z.002
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.7z.003
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.7z.004
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.7z.005
В файл архива входят :
1) St_Denis.fll библиотека для VFP 8.0 и ниже
2) St_Denis.fll библиотека для VFP 9.0
3) St_Denis.plb библиотека для FoxPro 2.6 for DOS
4) St_Denis.c исходный текст библиотеки
5) St_Denis_Russian.chm подробное описание функций библиотеки, с примерами их использования, дополнительные материалы, среди которых пошаговое описание того, как компилировать библиотеку в
Visual Studio .NET 2005 (2003).
6) St_Denis.prg реализация некоторых функций библиотеки на FoxPro.
7) test_perf.prg тесты, позволяющие наглядно получить преставление о быстродействии некоторых функций библиотеки, сравнение быстродействия функций библиотеки со встроенными функциями и командами FoxPro.
8) mkeywords.prg построение таблицы ключевых слов из memo поля.
Никифоров Игорь
