GETSUBSTR() işlevi, metnin bir kısmını verilen ayırıcıyla seçmek için tasarlanmıştır.
GETSUBSTR işlev kodu, metni belirtilen ayırıcıya göre bir diziye böler ve belirtilen seri numarasına göre verilen dizinin öğesini döndürür.
Aşağıda, metni parçalara ayırabilen ve LibreOffice Calc içindeki herhangi bir öğeyi alabilen özel bir GETSUBSTR işlevi oluşturmaya yönelik makro kodu verilmiştir.
Yeni bir işlev eklemek için Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni modüle kopyalayın:
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
Ardından, Macro Editor'u kapatın, LibreOffice Calc'ye dönün ve yeni işlevi herhangi bir hücrede kullanın.
"" uzantısını ayarlayarak GETSUBSTR() işlevini de kullanabilirsiniz. YouLibreCalc.oxt ". Bundan sonra LibreOffice Calc'de açılacak tüm dosyalarda bu fonksiyon mevcut olacaktır.