Программное удаление строк в OOo Calc

[ost]

Доброго.
Есть таблица OOo Calc, содержащая строки-записи.
Есть программно сформированный одномерный массив с номерами строк . Он не сортирован.

Подскажите, пожалуйста, корректный и желательно быстрый способ программного удаления тех строк таблицы, номера которых содержит массив. Назовем их "Ненужными". =)

Проблема:
Программное удаление первой же строки ведет к изменению их нумерации и, соответственно, утрате актуальности всей информации в массиве: номера строк в массиве перестают соответствовать номерам строк таблицы, что приводит к удалению "Нужных" строк и неудалению "Ненужных". О_О

Способ решения, который приходит в голову: отсортировать массив и начать удаление строк со строки с наибольшим номером.
Сильное ощущение, что есть другой более красивый способ. Есть же?

[JohnSUN]

Есть, как не естьбыть.
С помощью .getDataArray считать лист в массив, в цикле переписать нужные (не попадающие в массив исключений) строки в новый, вспомогательный массив и или очистить лист и вписать новый массив на старое место, или создать пустой лист и шарахнуть новый массив с помощью .setDataArray туда

[economist]

Чисто ради пятничного разговора.
В MS Excel (кто бы мог подумать!) - самый
быстрый способ удаления строк - это добавить к ячейкам комментарий, скажем в цикл, а потом...  

Код Выделить Развернуть


For Each с in Range()
c.AddComment
Next

' а затем удаляем
Rows("1:65535").SpecialCells(xlCellTypeComments).EntireRow.Delete    


Excel при этом берет на себя все заботы по упорядочению массива. Аналогичного в OpenOffice|LibreOffice StarBasic не нашел. Но удалять надо 100% идя снизу-вверх.

[ost]

...С помощью .getDataArray

=) Всемогущий getDataArray с братом setDataArray!
Спасибо.

Тут вот еще какое дело.
При использовании getDataArray и последующем setDataArray в новый лист постоянно докучает тот факт, что форматы не копируются. =( Можно ли как то "оптом" скопировать форматы из source-диапазона на одном листе в target-диапазон - на другом?

[ost]

=) Попробую на будущей неделе.

[JohnSUN]

форматы не копируются. =( Можно ли как то "оптом" скопировать форматы из source-диапазона на одном листе в target-диапазон - на другом?

Я бы скопировал весь исходный лист с помощью oSheets.copyByName и вычистил бы через .clearContents(511) - в смысле, убрал всё, кроме форматов
Почему-то мне кажется, что сделать это "одним махом" проще и быстрее, чем отлавливать и копировать исходные форматы по одному

[ost]

Я бы скопировал весь исходный лист с помощью oSheets.copyByName

А можно ли так же просто скопировать лист из одной книги в другую?

[rami]

Можно:

Код Выделить Развернуть

Sub Main
oUrl="file:///Путь/к/документу/Документ.ods"   'адрес копируемого документа
oSheet=ThisComponent.Sheets(0)   'куда вставляем
sSheet="Лист1"   'имя копируемого листа
oSheet.link(oURL,sSheet,"","",com.sun.star.sheet.SheetLinkMode.NORMAL)  'вставка
oSheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)   'удаление связи
End Sub

[ost]

Можно:

Код Выделить Развернуть

Sub Main
oUrl="file:///Путь/к/документу/Документ.ods"   'адрес копируемого документа
oSheet=ThisComponent.Sheets(0)   'куда вставляем
sSheet="Лист1"   'имя копируемого листа
oSheet.link(oURL,sSheet,"","",com.sun.star.sheet.SheetLinkMode.NORMAL)  'вставка
oSheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)   'удаление связи
End Sub

Шикарно! Спасибо.
Мегарешпект и уважуха!