Сообщения

1

Разработка приложений / Разбить строку

« : 15 Июнь 2011, 10:13:52 »

Необходимо разбить строку на подстроки, т.е. например у меня имеется строка : "default/profiles/about"
надо получить 3 отдельных строки default, profiles, about
Подскажите пожалуйста с помощью каких функций Lotus Scripta можно это сделать?

2

Разработка приложений / Re: команда Shell, есть ли аналог???

« : 04 Апрель 2011, 20:09:40 »

В общем: надо подождать пока выполнится процесс Shell а потом передать управление агенту лотуса. Как это можно сделать?

3

Разработка приложений / команда Shell, есть ли аналог???

« : 31 Март 2011, 18:22:12 »

Здравствуйте! Возникла такая проблема:
В агенте создается bat файл, далее функция Shell, вызывает этот bat файл, который вызывает макросы из openofficа. И продолжается выполнение кода агента, но мне надо дождаться пока все команды bat файла выполнятся, а потом продолжать выполнение кода агента.

Пыталась воспользоваться функцией Yield, но так как функции GetModuleUsage нет, не знаю как её применить

Может есть аналог функции shell???

Вот код агента
Sub CreateRunDeleteBAT()
   Const FILE_BAT_NAME = "c:\temp\macro.bat"
   Dim macros  As Integer
   Dim FileNumber As Integer
   
   FileNumber = Freefile
   
'creat batch file
   Open FILE_BAT_NAME  For Output As #FileNumber
   Print #FileNumber, "C:"
   Print #FileNumber, "cd " & Chr(34) & "C:\Program Files\OpenOffice.org 3\program" & Chr(34)    
   Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.DoExport "
   Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.CheckPDFFilterProperties(Nbvjirf)"
   Close #FileNumber
   
'run batch file
   macros= Shell(FILE_BAT_NAME,1)
   
   
'Delete batch file
   Kill FILE_BAT_NAME
End Sub