TOP

Camel Case LibreOffice calc के लिए फ़ंक्शन

CAMELCASE() विवरण

फ़ंक्शन CAMELCASE() को अक्षरों के एक परिवर्तनीय मामले के साथ शब्दों को संयोजित करने के लिए डिज़ाइन किया गया है, अर्थात, परिणाम के रूप में एक शब्द वापस आता है, उदाहरण के लिए "camelCaseFunction"।

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

CAMELCASe() फ़ंक्शन स्वीकृत कोड लेखन परंपराओं (coding कन्वेंशनs) के अनुसार चर नामों को परिवर्तित करने के लिए प्रोग्रामिंग में उपयोगी हो सकता है।


BASIC फ़ंक्शन के लिए कोड Camel Case

यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो विभिन्न शब्दों को एक में जोड़ सकता है, जहां तार्किक भागों को LibreOffice calc प्रोग्राम में एक वेरिएबल केस (Camel Case) द्वारा अलग किया जाएगा।

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

Function CamelCase(ByVal str As String) As String
  Dim words 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 = FCalc.callFunction("REGEX", Array(str,"([:lower:])([:upper:])","$1 $2","g"))
    
  str = LCase(str)
  words = Split(str, " ")
    
  For i = LBound(words) + 1 To UBound(words)       
    words(i) = UCase(Left(words(i), 1)) & Mid(words(i), 2)       
  Next i
    
  CamelCase = Join(words,"")
End Function

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