********************************
'Функция функции: вернуть одно из выбранных значений на основе истинного или ложного условия
'Параметр: blncondition: переменная условия, varresulttrue: возвращаемое значение, когда условие верно, varresultfalse: возвращаемое значение, когда условие неверно
Functioniif (blncondition, varresulttrue, varresultfalse)
Ifcbool (blncondition) тогда
Iif = varresulttrue
Еще
Iif = varresultfalse
Эндиф
Конечная функция
'*******************
'Функция функции: определяет, находится ли строковый элемент в данном перечислении
'Статья: sele: строка, которую нужно судить, Sarray: укажите Enum
'Например: определите, основан ли файл изображения на расширении: inarray (strfileext, "jpg, gif, bmp, png")
FunctionInarray (sele, sarray)
Димарарей
Дими
aarray = split (sarray, ",")
Fori = 0toubound (aarray)
Iftrim (sele) = trim (aarray (i)) then
Inarray = true
Выходная функция
Эндиф
Следующий
Inarray = false
Конечная функция
'*******************
Функция функции: определить, соответствует ли строка регулярному выражению
«Аргументы: StrString: String, Strpattern: регулярное выражение
FunctionDoreTest (StrString, Strpattern)
Пример
Setore = newRegexp
ore.pattern = strpattern
ore.ignorecase = true
doretest = ore.test (strstring)
Setore = ничего
Конечная функция
'*******************
'Функция функции: регулярная извлечение
'Аргументы: строка: строка, патрин: регулярное выражение
'Return: запятая в массиве результатов
FunctionDoreExec (strng, patrn)
DimRegex, Match, Matches, Retstr 'создает переменные.
SetRegex = newRegexp 'создает регулярное выражение.
regex.pattern = режим Patrn'Set.
regex.ignorecase = true 'установлен на нечувствительный случай.
regex.global = true 'настройка применяется во всем мире.
Setmatches = regex.execute (strng) 'выполняет поиск.