Показать сообщение отдельно
Старый 04.04.2007, 12:36   #4  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Цитата:
Сообщение от VKUR Посмотреть сообщение
Для начала хотя бы преобразовать в джоб
ну, подход примерно такой:

1. описываем переменные как str
str recid;
str imtetype;
и остальные тоже

2. описываем вот эти объектные переменные как COM
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

т.е заменяем на
COM s;
COM db;
и т.д.

3. Далее для воплощения оператора New NotesSession нужно знать строковый идентификатор этого COM-объекта.

например, для Excel это "Excel.Application" и строка создания выглядит так:
xlApp = new COM("Excel.Application");

а вам нужно аналогичное для NotesSession (вместо многоточия):
s = new COM("...");

4. В конце каждого оператора - точка с запятой : s.Initialize(Password);

5. Для объектов слово Set не надо, просто присваивание: db = s.GetDatabase(Server, Path);

6. Если у метода нет параметров, то все равно круглые скобки в конце: doc = db.CreateDocument();

7. Конструкцию "If doc Is Nothing Then" заменяем на "if (!doc)"

8. Select Case => switch

9. Ключевое слово Call не надо.

ну и т.д. Начинайте!

P.S. 10. Оператор Path$ = "dev\po2.nsf" , содержащий обратный слэш можно преобразовать либо так c удвоением: path = 'dev\\po2.nsf'; либо так с собакой: path = @'dev\po2.nsf';
За это сообщение автора поблагодарили: VKUR (1).