GETSUBSTR Función para LibreOffice Calc

GETSUBSTR() Descripción

La función GETSUBSTR() está destinada a seleccionar parte del texto mediante el separador dado.

El código de función GETSUBSTR divide el texto en una matriz mediante el separador especificado y devuelve el elemento de la matriz dada de acuerdo con el número de serie especificado.

BASIC Código para GETSUBSTR

A continuación se muestra el código de macro para crear una función personalizada GETSUBSTR que puede dividir el texto en partes y recuperar cualquier elemento del mismo en LibreOffice Calc.

Para agregar una nueva función, abra el menú Tools - Macros - Edit Macros..., seleccione Module1 y copie el siguiente texto al 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

Luego, cierre Macro Editor, regrese a LibreOffice Calc y use la nueva función en cualquier celda.

Usando la extensión YouLibreCalc

También puede utilizar la función GETSUBSTR() configurando la extensión " YouLibreCalc.oxt ". Después de eso, esta función estará disponible en todos los archivos que se abrirán en LibreOffice Calc.