Como fazer uma substituição de regex em uma seqüência de caracteres em uma "macro" do LO Basic?

Parece algo que deve ser extremamente fácil de fazer, mas não é - certamente não é óbvio como fazê-lo.

Quero escrever uma função no LibreOffice Basic que use uma string, um padrão de pesquisa regexp e uma string de substituição e retorne a string conforme modificada pela pesquisa e substituição do regex. Como um s/search/replace/gsed ou perl.

Depois de várias horas tentando entender a documentação abismal, é isso que tenho:

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

Percorrer isso no IDE mostra que isso funciona OK, mas não tenho idéia de onde posso obter a sequência modificada resultante. Tnão está sendo modificado diretamente, e não é em qualquer um dos found, searchou optsobjetos também.

Eu poderia escrever um loop while search.SearchForwaree fazer a substituição usando a Mid()instrução - mas depois eu estaria restrito a substituir por strings fixas (sem referências posteriores ou &, a menos que eu as tenha implementado. No Basic).

Assim:

• não definir opts.replaceStringrealmente FAZER alguma coisa?
• Se então:
  • O que isso faz?
  • onde / como recupero o resultado do que ele faz?

Nota: esta pergunta é sobre a programação no Libre Office Basic para retornar uma sequência alterada e não tem nada a ver com pesquisar e substituir células com a interface do usuário do Libre Office Calc.

Parece que você já tem uma solução funcional, então deixe-me dizer simplesmente que o que você está procurando não parece existir. Com com.sun.star.util.TextSearch, o XrayTool mostra que nem o objeto de pesquisa nem o resultado encontrado possuem métodos para executar a substituição.

AFAICT, SearchOptions.replaceString é usado apenas para substituir em documentos, por exemplo oDoc.replaceAll(oReplace). Existe, XStringSubstitutionmas isso é usado apenas para PathSubstitution .

Portanto, a única maneira é fazer a substituição de si mesmo. A seção 19.2 do documento macro de Andrew fornece uma função para substituir as seqüências de caracteres pelo índice.

Pessoalmente, encontro esse tipo de limitação o tempo todo com o Basic, então prefiro escrever macros no Python-UNO. O manuseio de arquivos é outra coisa desnecessariamente difícil no Basic.

Pode ser uma boa ideia adicionar sua própria resposta, mostrando a solução usada Mid()no caso de outras pessoas encontrarem essa pergunta. Então provavelmente aceite essa resposta e não a minha.