VBA Collection in Basic

[eeigor]

Кто подскажет, поддерживает ли Basic что-то вроде VBA Collection?
Что это за объект: com.sun.star.script.NativeObjectWrapper?
Его нет в числе ThisComponent.AvailableServiceNames, но Xray его видит-таки...
http://www.openoffice.org/api/docs/common/ref/com/sun/star/script/NativeObjectWrapper.html

Обратите внимание на то, что в примере строка "Option Compatible" закомментирована. Компилятор понимает...
Или это из области "недокументированного"?.. В примере ниже код работает. Данные извлекаются по ключу, как и требуется. При копировании структуры копируется указатель, как и ожидалось (по аналогии с массивами)...

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

'Option Compatible  'turns on the VBA-compatible Basic compiler mode at the module level

Sub TestVBACollection()
   Dim obj As New Collection  'com.sun.star.script.NativeObjectWrapper

   obj.Add("Entry 1", "foo")  'key = "foo", Item = "Entry 1"
   obj.Add("Entry 2", "bar")  'key = "bar", Item = "Entry 2"
   Print "Count: "; obj.Count, obj("foo"), obj("bar")  '>> Count: 2  Entry 1  Entry 2
End Sub

В чём главное отличие от массива? Доступ как по индексу, так и по ключу, а не только по индексу (то есть без поиска перебором элементов). Ключ надо знать. В процедуре должна быть обработка ошибки доступа по ложному ключу. Метод "Add" объекта VBA Collection позволяет вставить элемент в заданную позицию:
.Add(item, [key], [before, after])

А как здесь?

UPD: И здесь также.

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

Sub TestVBACollectio3()
   Dim obj As New Collection  'com.sun.star.script.NativeObjectWrapper

   obj.Add("Entry 1", "foo")  'Item = "Entry 1", key = "foo",
   obj.Add("Entry 2", "bar", 1)  'Item = "Entry 2", key = "bar", before:=1

   For Each v In obj
       s = s & v & Chr$(10)  '>> Entry2  Entry 1
   Next
   MsgBox s, , "Готово"
   Print obj("foo"), obj(2)  '>> Entry1  Entry 1

   obj.remove("foo")
   Print obj.Count  '>> 1
End Sub

Элемент "Entry 2" вставлен перед первым элементов в коллекции (на скриншоте).
Такую коллекцию легко поддерживать в отсортированном виде, вставляя новый элемент в заданную позицию (в лексикографическом порядке).
Далее элемент удаляется из коллекции. См. также описание на скриншоте 2.

Странно, что переменная obj объявлена как Collection, а не Object.
Хотя уже и так ясно, что это именно Collection, и добавлен он для совместимости с VBA.
Будет ли безопасным его использование в Basic?


UPD2: Объяснение нашлось вот здесь
https://libocon.org/assets/libocon2020/Slides/OsLo-2020.libOBasic.pdf
Правда, требуется установка опции Compatible. Может, она где в настройках задана по умолчанию?

Ещё бы что-то вроде Scripting.Dictionary найти (у меня Linux)... Ведь объект NativeObjectWrapper объявлен как any ObjectId.

P.S. За время эксперимента ошибок не возникало.

[sokol92]

Аналогом объекта Scripting.Dictionary является сервис com.sun.star.container.EnumerableMap. Мой тест (ниже) показывает, что сервис обладает вполне приемлемыми скоростными характеристиками. Приятный, но недокументированный (?) бонус - метод createKeyEnumeration нумерует ключи по возрастанию.

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

Sub testEnumerableMap
Dim serviceEnumerableMap, oEnumerableMap, keyEnum
Dim nmax as Long, i as Long, key as String, t as Long, s as String, v

Nmax=100000
key=String(200, "a")
 
serviceEnumerableMap=com.sun.star.container.EnumerableMap
oEnumerableMap = serviceEnumerableMap.create("string", "any")

t=GetSystemTicks()
For i=1 To nmax
    oEnumerableMap.put key & i, i
Next i   

s="Запись " & nmax & ": " & (GetSystemTicks()-t)
t=GetSystemTicks()

For i=1 To nmax
    v=oEnumerableMap.get(key & i)
Next i   

s=s & chr(10) & "Чтение " & nmax & ": " & (GetSystemTicks()-t)
t=GetSystemTicks()

KeyEnum=oEnumerableMap.createKeyEnumeration(0)
i=0

While KeyEnum.hasMoreElements
   v=KeyEnum.NextElement
   i=i+1
Wend

s=s & chr(10) & "Нумератор " & i & ": " & (GetSystemTicks()-t)
 
Msgbox s
End Sub

[eeigor]

Спасибо, Владимир. Это пригодится.