GETSUBSTR() फ़ंक्शन का उद्देश्य दिए गए विभाजक द्वारा पाठ के भाग का चयन करना है।
GETSUBSTR फ़ंक्शन कोड निर्दिष्ट विभाजक द्वारा पाठ को एक सरणी में विभाजित करता है और निर्दिष्ट क्रम संख्या के अनुसार दिए गए सरणी के तत्व को लौटाता है।
नीचे एक कस्टम फ़ंक्शन GETSUBSTR बनाने के लिए मैक्रो कोड है जो टेक्स्ट को भागों में विभाजित कर सकता है और इसके किसी भी तत्व को LibreOffice calc में पुनः प्राप्त कर सकता है।
एक नया फ़ंक्शन जोड़ने के लिए, मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित टेक्स्ट को मॉड्यूल में कॉपी करें:
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
फिर, Macro Editor को बंद करें, LibreOffice calc पर वापस लौटें और किसी भी सेल में नए फ़ंक्शन का उपयोग करें।
आप एक्सटेंशन "सेट करके GETSUBSTR() फ़ंक्शन का भी उपयोग कर सकते हैं YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।