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

TITLECASE() विवरण

फ़ंक्शन TITLECASE() मौजूदा टेक्स्ट को हेडिंग फॉर्मेट में बदलने के लिए डिज़ाइन किया गया है और शब्दों का एक सेट फॉर्म में लौटाता है: "Function for Title Case" .

Title Case फ़ंक्शन कोड विभाजक जैसे हाइफ़न और अंडरस्कोर को रिक्त स्थान से बदल देता है, सभी शब्दों को अपरकेस में परिवर्तित करता है, और संयोजनों को लोअरकेस में परिवर्तित करता है।

Title Case समाचार सुर्खियों, साइट लेख शीर्षक, या YouTube वीडियो शीर्षक में केस सुधार के लिए उपयोगी हो सकता है।

TITLECASE() मानक PROPER() फ़ंक्शन के समान है, सिवाय इसके कि संयोजन बड़े अक्षरों में नहीं लिखे गए हैं।

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

यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो टेक्स्ट को LibreOffice Calc में शीर्षक (Title Case) के रूप में प्रदर्शित कर सकता है।

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

Function TitleCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim words As Variant
  Dim FCalc As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")  
    
  oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
  oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"  
  words = Split(oddWordsLat + "|" + oddWordsCyr,"|") 
  
  str = FCalc.callFunction("PROPER", Array(str))  
  
  For i = LBound(words) To UBound(words)  
    pattern = "(?!^)\b" + words(i) + "\b"
    replacement = LCase(words(i))
    
    str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
  Next i
    
  TitleCase = str
End Function

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

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

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

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