Не работает функция InStrRev

[Борис_С]

Добрый вечер.
Выполняю код под Linux

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

    Dim path As String
    Dim i1
    path = "abc"
    i1 = InStrRev(path, "a")
Получаю ошибку "программа или функция не определена ("InStrRev")
Что за чудеса?
У меня только одна мысль: под Linux этой функции в Basic нет.
Проверил под Windows. Та же ошибка.

[mikekaganski]

https://help.libreoffice.org/latest/en-US/text/sbasic/shared/03120411.html?DbPAR=BASIC#bm_id3155934

InStrRev Function [VBA]

Вы используете Option VBASupport 1 ?

[Борис_С]

А где это прописывается?

[bigor]

де это прописывается?

откройте ссылку, там все написано, в подкрашенном прямоугольнике

[Борис_С]

В начале кода поставил
Option Explicit
Option VBASupport 1

Теперь basic стал ругаться на обычный оператор WhatTheOS()
Синтаксическая ошибка Basic
Ожидается =

[economist]

Option Explicit - это серьезное усложнение, все переменные нужно объявлять вверху и заранее. Но самое сложное - нужно сразу придумать им понятные и запоминающиеся имена. Нейминг - проблема №1 в программировании. Потому что именно в этот момент голова обязана продумать программу целиком.  Что сложно, но сильно повышает ее качество и надежность после написания. Если пока не готовы - уберите эту строку.

Option VBASupport 1 - это объявление на уровне модуля. Разделите программу на 2 части, с/без VBASupport, и можно использовать лучшее из 2-х миров. 
 

[sokol92]

Если пока не готовы - уберите эту строку

Если пока не готовы - отложите написание программы. 

Я не знаю (исторических ?) причин, по которым весьма востребованные функции (InStrRev, Round) работают лишь при Option VBASupport 1.

Можно добавить в библиотеку LO Basic такой модуль и использовать функцию VBA_InStrRev в других модулях (проверьте).
В функции VBA_InStrRev оригинальное имя параметра "Compare" "не нравится" компилятору и изменено на nCompare.

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

Option Explicit
Option VBASupport 1

Function VBA_InStrRev(ByVal StringCheck As String, ByVal StringMatch As String , _
                  Optional ByVal Start As Long = 0, Optional ByVal nCompare As Integer = 1) As Long
  If Start = 0 Then Start = Len(StringCheck)
  VBA_InStrRev = InStrRev(StringCheck, StringMatch, Start, nCompare)
End Sub


[kompilainenn]

Я не знаю (исторических ?) причин

Отсутствие разработчика, заинтересованного в этом

[Борис_С]

Как я понимаю, проще всего вместо функции InStrRev использовать старый добрый цикл
для получения позиции нужного символа.

[sokol92]

проще всего вместо функции InStrRev использовать старый добрый цикл
для получения позиции нужного символа.

Проще и эффективнее функцию выше.

Посимвольная обработка в LO Basic будет медленной (если, конечно, это важно).

Возможная альтернатива - реализация с использованием функции Split.

[sokol92]

Отсутствие разработчика, заинтересованного в этом

В данном конкретном случае мне это кажется маловероятным - функция же реализована в LO ...
Может быть, были какие-то соображения о совместимости с прошлыми версиями. Но это всё гадания...