Как выполнить подстановку регулярных выражений в строке в макросе LO Basic?

Question

Как выполнить подстановку регулярных выражений в строке в макросе LO Basic?

371

cas 2018-04-15 в 02:44

Это кажется чем-то, что должно быть чрезвычайно легко сделать, но это не так - в любом случае, конечно, не очевидно, как это сделать.

Я хочу написать функцию в LibreOffice Basic, которая принимает строку, шаблон поиска регулярного выражения и строку замены и возвращает строку, измененную поиском и заменой регулярного выражения. Как s/search/replace/gв sed или perl.

После нескольких часов попыток разобраться в ужасной документации, вот что у меня есть:

Function ReSub (T as String, S as String, R as String) As String Dim result as String  ' In other languages, this is trivially easy. perl has an s/// operator, ' and most other languages have a function call. e.g. ' ' perl: $result = ($T =~ s/$S/$R/g); ' python: result = re.sub(S,R,T)  search = CreateUnoService("com.sun.star.util.TextSearch") opts = CreateUnoStruct("com.sun.star.util.SearchOptions")  opts.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP  opts.searchString = S opts.replaceString = R  search.setOptions(opts)  found = search.searchForward(T, 0, Len(T))  ' result = ?????????????? ReSub = result  End Function

Выполнение этого в среде IDE показывает, что все работает нормально, но я понятия не имею, откуда взять полученную измененную строку. Tне изменяется напрямую, и не находится ни в одном found, searchни в optsобъектах.

Я мог бы написать цикл while search.SearchForwareи выполнить подстановку самостоятельно, используя Mid()оператор - но тогда я был бы ограничен заменой на фиксированные строки (без обратных ссылок или &, если я не реализовал их сам. В Basic).

Так:

это установка на opts.replaceStringсамом деле DO - нибудь?
Если так:
- Что это делает?
- где / как я могу получить результат того, что он делает?

Примечание: этот вопрос касается программирования в Libre Office Basic для возврата измененной строки и не имеет никакого отношения к выполнению поиска и замены в ячейках с помощью пользовательского интерфейса Libre Office Calc.

1

@JimK спасибо, да, я нашел это здесь вчера. Очень полезно и информативно. На самом деле я написал похожий цикл, но использовал для замены вместо `Mid ()` функцию Mid (). Это работает, но это неуклюже - и кажется, что в этом нет необходимости, так как структура `SearchOptions` на самом деле имеет объект` ReplaceString`. Я не включил цикл в свой вопрос, потому что хотел избежать советов по его улучшению, когда мне нужна информация о том, как использовать `replaceString`, чтобы я мог полностью от него избавиться. cas 6 лет назад 0

1 ответ на вопрос

1

Accepted Answer · 2018-04-16 14:37:32

Похоже, у вас уже есть рабочее решение, поэтому позвольте мне просто сказать, что то, что вы ищете, кажется, не существует. С помощью com.sun.star.util.TextSearchXrayTool видно, что ни у поискового объекта, ни у найденного результата нет методов, выполняющих замену.

AFAICT, SearchOptions.replaceString используется только для замены в документах, например oDoc.replaceAll(oReplace). Существует, XStringSubstitutionно это используется только для PathSubstitution .

Таким образом, единственный способ сделать замену самостоятельно. Раздел 19.2 макродокумента Эндрю предоставляет функцию замены строк индексом.

Лично я постоянно сталкиваюсь с такого рода ограничениями в Basic, поэтому вместо этого я предпочитаю писать макросы в Python-UNO. Обработка файлов - это еще одна вещь, которая излишне сложна в Basic.

Было бы неплохо добавить свой собственный ответ, показывающий решение, которое используется Mid()в случае, если другие люди найдут этот вопрос. Тогда, вероятно, прими этот ответ, а не мой.

Как выполнить подстановку регулярных выражений в строке в макросе LO Basic?

1 ответ на вопрос

Похожие вопросы