Скачать 4.38 Mb.
|
© InterTrust Co. Тел. (095) 9567928 Lotus Domino R. 5: @-формулы, LotusScript, встроенные классы LotusScript и Java 275
Все значения констант, представленные в этих таблицах, содержатся в файле LSCONST.LSS. Для использования значений констант, хранящихся в этом файле, его необходимо включить в скрипт с помощью директивы %Include. Пример 1. Вывод запроса: " Вас еще не утомили эти функции?" в окне с заголовком " Вопрос толстой книги ", содержащем кнопки Yes и No. Значение, возвращаемое функцией MessageBox присваивается переменной answer. % Include "LSCONST.LSS" Dim boxType As Long, answer" As Integer boxTypeS = MB YESNO + MB_ICONQUESTION - ' ' answer% = MessageBox("Вас еще не утомили эти функции?", ЬохТуре&, _ "Вопрос толстой книги") Л После нажатия кнопки (предположим, Yes) выводим результат Print answer% ' Выводит 6 Пример 2. Оператор MessageBox выводит в окно сообщений с заголовком "Demo" и кнопкой ОК несколько строк. %Include "LSCONST.LSS" ... Dim twoLiner$ As String twoLiner$ = !Многострочное сообщение! MessageBox twoLiner$, MB_OK, "Demo" twoLiner$ = {Многострочное}+Chr$(10)+{ сообщение} MessageBox twoLiner$, MB OK, "Demo" . •-,.---. Л Получаем подряд два одинаковых сообщения: Оператор ActivateApp (активизировать окно) ActivateApp windowName Активизирует окно приложения, имеющее указанный заголовок. windowName - текст заголовка активизируемого окна - строковое выражение, без учета регистра. При поиске окна учитывается лишь вхождение текста из строки windowName слева в заголовок. Например, если необходимо активизировать окно Notes с заголовком "Lotus Notes - Workspace", то в качестве windowName достаточно задать "Lotus Notes". Если в списке имеющихся окон окажется несколько с одинаковым или подобным заголовком, будет активизировано первое найденное окно. | InterTrust Co. Тел. (095) 9567928 276 Язык LotusScript Учтите, что ActivateApp только активирует окно (т.е. передает ему фокус ввода), но не может восстановить в нормальный размер или максимизировать, если окно свернуто. Для восстановления размеров окна или максимизации следовало бы послать этому окну "серию нажатий клавиш, используя оператор SendKeys. Пример. Активирует окно с заголовком "Lotus Notes - Workspace". ActivateApp "Lotus Notes" ,-,, Оператор SendKeys SendKeys string [, processNow ] Строка string содержит последовательность клавиш клавиатуры, имитацию нажатий которых в активном окне выполняет этот оператор. Имеется целый ряд соглашений, как в строке кодируются клавишные комбинации: {F4}, {CAPSLOCK}, {RIGHT 3}... К сожалению, в реализации LotusScript для Notes этот оператор не поддерживается. В качестве компенсации читателю предлагается пример, в котором необходимый эффект достигается путем вызова соответствующих функций Windows API. Пример можно найти в главе, посвященной обращению к внешним С-функциям на стр. 337. 2.8.8. Специальные функции и операторы Оператор Веер (звуковой сигнал) Веер Издает простой звуковой сигнал. Для воспроизведения более сложных звуков можно воспользоваться либо новым методом Play Tune класса NotesUlWorkspace (см. стр. 711), либо использовать средства Winodws API (см. пример на стр. 331) Функция Command . ":; .-'•• .".•.'. : •••' • ••:••">-,•• •:'/•'•:.:.:.;•-:--:."..•••..••:•"" : •: •••••;•••••'-'•:--••". • .; Command[S] Возвращает строку параметров, которая была передана при запуске приложению Lotus, использующему LotusScript, или пустую строку (""), если приложение было запущено без параметров. Функция Command возвращает значение типа Variant (String). Функция Commands возвращает строку. Пример. Определяется наличие параметров в командной строке. If Command$() = "" Then Print "Notes запущен без параметров" Else Print " Notes запущен с параметрами: " + Command$() End If Функция Environ .';•/•.: ••:•."'•••: "•.. -..-:•'••• ~^-~ •••• • •...". ••:. -;.'.'.•'• ••.•••••'-^--у ••/•'.: .:•;.:;.... ...•::...•.;.•- -.:- -........• Environ[$] ( { environName | n } ) Возвращает информацию, содержащуюся в переменной среды операционной системы. environName - строка символов верхнего регистра, определяющая имя переменной среды, n - число от 1 до 255, включительно, определяющее положение переменной среды в таблице i InterTrust Co. Тел, (095) 9567928 Lotus Domino R. 5: (^-формулы, LotusScript, встроенные классы LotusScript и Java 217 переменных среды. Функция Environ возвращает значение типа Variant, а функция EnvironS возвращает значение типа String. Если для определения имени переменной среды используется environName, возвращается значение, определенное переменной среды. Если переменная среды не найдена, возвращается пустая строка (""). Если строка environName - пустая строка, или строка содержащая значение Null или Empty, то генерируется ошибка. Если позиция переменной среды определена числом п, возвращается строка с именем переменной среды и ее значением. Если значение п превышает действительное число строк в таблице, то возвращается пустая строка (""). Если п меньше 1 или больше 255, то генерируется ошибка. Пример. Microsoft Windows 3.1 хранит временно существующие рабочие файлы в каталоге, объявленном в переменной среды с именем Temp. Введенная пользователем строка выводится в файл MYAPP.TMP в этом каталоге. Для определения пути к временному каталогу см. команду Set Temp в своем AUTOEXEC.BAT. Dim TempDir As String, tempFile As Integer . • .- . . . Dim tempFileName As String, tempStuff As String tempStuff$ = InputBox("Enter some temporary information") TempDir$ = Environ("Temp") , ChDir TempDir$ tempF.ile% = FreeFileO tempFileName$ = "myapp.tmp" Open terrtpFileName$ For Output As tempFile% Print #tempF.ile%, tempStuff $ " Close tempFile% Функция Shell Shell (program [, windowStyle ] ) Запускает программу. Program - строковое выражение, значение которого определяет имя запускаемой на выполнение программы, program должно быть именем исполняемого файла с расширением ВАТ, COM, PIF, или ЕХЕ. Указание расширения или включение полного пути в спецификацию файла программы необязательно. Запуск с помощью функции Shell на выполнение внутренней команды DOS вызывает ошибку. WindowStyle - опция, являющаяся числом, определяющим стиль окна запускаемого приложения; она дается следующей таблицей.
Эти константы определены в файле LSCONST.LSS. Для обеспечения возможности использования этих констант включите этот файл в скрипт. © InterTrust Co. Тел. (095) 9567928 278 -" ' ';'-'- Язык LotusScript " ,v •> Если используется операционная система Windows 3.1 и LotusScript успешно запускает программу, Shell возвращает идентификатор запущенной задачи. Если используется ОС Windows NT и LotusScript успешно запускает программу, Shell возвращает число 33. Если LotusScript не может запустить программу, Shell возвращает ошибку. • , - '--.- ••* -• Shell может вызываться из выражения или оператора присваивания, если они возвращают используемое этим оператором значение. После выполнения Shell, LotusScript продолжает выполнение скрипта, не ожидая завершения выгюлнеуия запущенной программы. Пример. Запуск приложения Windows Calculator в нормальном режиме. , , Dim taskld As Integer , . ' '•' *- ':-: • ' taskld% = Shell("CALC.EXE", 1} > Функция и оператор Yield ^ Yield Функция и оператор Yield передают управление операционной системе, а выполнение текущего процесса "встает в очередь". ОС Windows не может вернуть управление процессу до тех пор, пока не обработает все стоящие в очереди запросы. Оператор и функция Yield допустимы внутри процедуры или класса и не допустимы в модуле. Функция Yield возвращает значение типа Integer равное 0. . , Пример. Объявление для Windows 3.1 API функции, передача управления программе CALC.EXE, ожидание завершения ее выполнения, выдача сообщения о завершении выполнения программы CALC.EXE и продолжение выполнения скрипта. Авторы не рекомендуют относиться к этому примеру как к "боевому приему" для разработки приложений Notes. Во-первых, в 16-разрядной версии Windows пример хотя и работает, но не вполне корректно. Во-вторых, в 32-разрядных версиях Windows функция Shell возвращает 33, а не идентификатор задачи, а функция GetModuleUsage более не применяется. Declare Function GetModuleUsage Lib "Kernel"^ . . . "' (ByVal taskID As Integer) As Integer . ;*' ' ' : • ". i " ', :'.' -': ' "" Sub DoCalc ' '...-. ,:• !; n:;" i"«.-•.-!.•--•:. ••:•.•'••..-. v. /'";. ' ' •-.••••••• Dim taskID As Integer -.-• .'••'•• - •'• • -'•''' •-"•'••''' taskID% = Shell ("CALC.EXE", !)• • - ' ' ' ' ":";"' \-v'^ :^-> •'•• ":. Do While GetModuleUsage (taskID%) > 0 _• . ., ...... Yield ; " ' " _ .-'-.;/ ..-:: : Loop ' ' ......... MessageBox "Calculations done" End Sub . , DoCalc . 'Вызов подпрограммы DoCalc " • ' '' '" ' : ' : ; Оператор Stop Stop ,......, В режиме отладки скрипта имитирует наличие точки останова (breakpoint). При выполнения скрипта вне отладчика никак себя не проявляет. Очень простой и в то же время полезный оператор. Используя данный оператор можно съэкономить ощутимое время на отладке скрипта (особенно таких, как скрипт события QuerySave формы). , ' ••_• . ']•' "'•;•' . •'•.* • -••• •••••' .•'•:'" © InterTrust Co. Тел. (095) 9567928 Lotus Domino R. 5: @гформулы, LotusScript, встроенные классы LotusScript и Java 279 2.8.9. Функции проверки значений Функция IsEmpty IsEmpty (expr ) Проверяет, является ли значение выражения ехрг значением Empty. Возвращает True, если значением выражения ехрг является значение Empty. Это бывает только в случае, когда значение выражения ехрг имеет тип Variant и является пустой строкой. В противном случае функция IsEmpty возвращает значение False (0). Пример. Dim dynaVar As Variant Print IsEmpty(dynaVar) 'Выводит: True dynaVar = PI Print IsEmpty(dynaVar) 'Выводит: False Функция IsNull IsNull (expr ) Возвращает True, если значением выражения ехрг является значение Null. В противном случае возвращает False. Пример. Dim v As Variant Print IsNull(v) 'Выводит: False Print IsEmpty(v) . 'Выводит: True .... v = Null Print IsNull(v) 'Выводит: True Функция IsNumeric •.. • .•-••..•;. :. •.....:...•-•...•:... .•:••-:••:... IsNumeric ( expr ) Возвращает True, если значение выражения ехрг является числом или может быть преобразовано в число. Значения следующих типов являются числом: Integer, Long, Single, Double. Currency, Date/Time, Empty, String (если преобразуется в число), OLE-ошибка, Boolean (True, False). Если значение выражения ехрг не является числом и не может быть преобразовано в число, функция возвращает False. Следующие значения или типы не могут быть числовыми: Null, Array, List. Пример. Dim v As Variant Print IsNumeric(v) 'Выводит: True (v имеет значение Empty) v = 12 Print IsNumeric(v) 'Выводит: True 'Строка, не преобразуемая в число v = "Twelve" Print IsNumeric (v) 'Выводит: E'alse 'Строка, преобразуемая в число • - • v = "12" Print IsNumeric(v) 'Выводит: True ФуНКЦИЯ' IsDate' '"• ; v:-: Г. :..• -- -:•':--. -•; •::;:," • :.-: -.' •. ••;.. .... • :: -••... •• ...•-:..'.••.• '••• .. ... ..-...:••.....•..,. . ' ... ...'..-. . IsDate (expr ) © InterTrust Co. Тел. (095) 9567928 280 Язык LotusScript ' • Проверяет, является ли значение выражения expr значением даты-времени. Возвращает значение True, если значением выражения expr является:
В противном случае возвращает значение False. Пример. Функция IsDate проверяет значения переменных х, у, z на соответствие значению даты/времени. Dim x As Variant, у As Variant, z As Variant x =~ 100 'Числовое значение у = CDat(lOO) 'Числовое значение z - "Nov 2, 1983" 'Строка, представляющая дату Print IsDate(x) 'Выводит: False Print IsDate(у) 'Выводит: True Print IsDate(z) 'Выводит: True Print: IsDate ("100") 'Выводит: False Print IsDate("Nov 2, 1983") 'Выводит: True |
В excel имеются средства для обработки данных, организованных по принципу баз данных – функции списка, основные операции которых... | Республике Саха (Якутия)» (далее – гау «мфц рс(Я)» или Оператор) считает важнейшими своими задачами соблюдение принципов законности,... | ||
Положения об особенностях обработки персональных данных, осуществляемой без использования средств автоматизации и устанавливает порядок... | Рриториальных органов, а также порядок взаимодействия Роскомнадзора и его территориальных органов с операторами, осуществляющими... | ||
Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных данных,... | Категории обрабатываемых персональных данных, источники их получения, сроки обработки и хранения. 3 | ||
Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | ||
Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | Ии администрации сельского поселения (Н. П. Свистуновой) довести под роспись до сотрудников администрации сельского поселения, обязанности... |
Поиск Главная страница   Заполнение бланков   Бланки   Договоры   Документы    |