Lotusscript

[Xalet]

Доброго времени суток всем.
Возникли некоторые вопросы по ЛС. Вообще он очень похож на бейсик. Но в некоторых моментах отличается. Собственно вопрос:

Есть код на ВБ:

Dim Doc As Object
Dim Sheet As Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 1
CellRangeAddress.StartRow = 1
CellRangeAddress.EndColumn = 2
CellRangeAddress.EndRow = 2
CellAddress.Sheet = 0
CellAddress.Column = 0
CellAddress.Row = 5
Sheet.moveRange(CellAddress, CellRangeAddress)

Как сделать его аналог на ЛС?

ругается на :

Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Спасибо.

 

[Omh]

As Varinat

, не?

 

[Xalet]

As Varinat, не?

На такое не ругается. Но и не работает.

CellRangeAddress.Sheet = 0

в этом месте ошибка: Variant doesn't contains an object

 

[abbatik]

ругается на :

Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Спасибо.

Сорри за оффотоп, но будь я LS, я бы тоже ругнулся, что какую-то сивуху пытаются втюхать

А по делу да, Variant.

Можешь потом попробовать set CellAddress = CreateObject ("com.sun.star.table.CellRangeAddress")

 

[Xalet]

А по делу да, Variant.

Можешь потом попробовать set CellAddress = CreateObject ("com.sun.star.table.CellRangeAddress")

Чего я ток не пробовал. Так тоже не работает. CellRangeAddress это не объект, а структура.

Нашел. Если вдруг кому понадобится, то структуры для ОпенОфиса создаются серис менеджером:

Set obj = svcMgr.Bridge_getStruct("com.sun.star.table.CellRangeAddress")

 

[azat20]

писать выгрузку в OO зло Но зато написав раз,не паришься уже. Там хрен пойми как обращаться к объектам. Методом проб и ошибок, взяв в руки бубен через продолжительное время получается

 

[Xalet]

писать выгрузку в OO зло Но зато написав раз,не паришься уже. Там хрен пойми как обращаться к объектам. Методом проб и ошибок, взяв в руки бубен через продолжительное время получается

Так оно у меня написано было уже. Но на джаве и работало через бридж. Появилось мнение, что так оно медленно работает. Решили переделать без джавы. В эксель всё в разы проще делается, но он денег стоит и предлагать клиенту как решение не особо хорошо.

 

[Akupaka]

В эксель всё в разы проще делается, но он денег стоит и предлагать клиенту как решение не особо хорошо

главное, чтобы клиенту к экселю не пришлось доставлять еще и ОО

 

[Xalet]

главное, чтобы клиенту к экселю не пришлось доставлять еще и ОО

у меня они вместе дружно живут и симфони еще в нагрузку. Не проблемма точно. ИМХО

 

[Akupaka]

проблема не в совместимости двух продуктов на одной машине, а в том, что клиенту это лишняя задача

 

[Xalet]

проблема не в совместимости двух продуктов на одной машине, а в том, что клиенту это лишняя задача

так это смотря в каких целях использовать... Если только распечатать отчет, то пользователь может и не знать, что у него стоит ОО вообще.

 

[Akupaka]

спорщик
если ты в конторе из 10-20 человек и админ и разраб, то да, ты себе поставил и забыл...
а если ты пишешь для конторы, серьезной конторы, у которой стандарты и всякая остальная чепуха, и если эта чепуха не совпадает с той, что ты используешь, то для конторы это лишняя задача