Sentence Case LibreOffice Calc के लिए फ़ंक्शन

SENTENCECASE() विवरण

SENTENCECASE() फ़ंक्शन मौजूदा टेक्स्ट को वाक्य प्रारूप में परिवर्तित करने और शब्दों का एक सेट फॉर्म में लौटाने के लिए डिज़ाइन किया गया है: "Sentence case function" .

Sentence Case अवधि, विस्मयादिबोधक बिंदु, या प्रश्न चिह्न द्वारा अलग की गई पंक्तियों को अलग-अलग वाक्यों में तोड़ता है। फिर, वाक्य में पहले अक्षर को छोड़कर सभी शब्दों को लोअर केस में परिवर्तित करता है और फिर सभी तत्वों को एक सतत पाठ में जोड़ता है।

SENTENCECASE() फ़ंक्शन पूरे पाठ में वाक्यों में अक्षरों के मामले को सही करने के लिए उपयोगी हो सकता है।

StarBASIC SENTENCECASE() के लिए कोड

यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो LibreOffice Calc में वाक्यों (Sentence Case) में शब्दों को केस-जस्टिफ़ाई कर सकता है।

मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित पाठ को मॉड्यूल में कॉपी करें:

Function SentenceCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim sentences As Variant
  Dim i         As Integer
  Dim FCalc     As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")    
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")
  str = FCalc.callFunction("TRIM", Array(str))
  str = LCase(str)
  str = FCalc.callFunction("REGEX", Array(str,"([.!?])(\s)(\w)","$1#$3","g"))
  
  sentences = Split(str, "#")
    
  For i = LBound(sentences) To UBound(sentences)       
    sentences(i) = UCase(Left(sentences(i), 1)) & Mid(sentences(i), 2)       
  Next i
    
  SentenceCase = Join(sentences," ")
End Function

फिर Macro Editor को बंद करें, LibreOffice Calc पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।

एक्सटेंशन का उपयोग करना

आप भी फीचर का इस्तेमाल कर सकते हैं SENTENCECASE() निःशुल्क एक्सटेंशन इंस्टॉल करके YouLibrecalc.oxt या इसका पूर्ण विशेषताओं वाला संस्करण YLC_Utilities.oxt .

उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice Calc में खोली जाएंगी।