GETSUBSTR Função para LibreOffice Calc

GETSUBSTR() Descrição

A função GETSUBSTR() destina-se a selecionar parte do texto pelo separador fornecido.

O código de função GETSUBSTR divide o texto em uma matriz pelo separador especificado e retorna o elemento da matriz fornecida de acordo com o número de série especificado.

StarBASIC Código para GETSUBSTR

Abaixo está o código de macro para criar uma função personalizada GETSUBSTR que pode dividir o texto em partes e recuperar qualquer elemento dele no programa LibreOffice Calc.

Para adicionar uma nova função, abra o menu Tools - Macros - Edit Macros..., selecione Module1 e copie o seguinte texto para o módulo:

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

Em seguida, feche Macro Editor, retorne para LibreOffice Calc e use a nova função em qualquer célula.

Usando a extensão

Você também pode usar o recurso GETSUBSTR() instalando a extensão gratuita YouLibreCalc.oxt ou sua versão completa YLC_Utilities.oxt .

Depois disso, esta função estará disponível em todos os arquivos que serão abertos em LibreOffice Calc.