फ़ंक्शन CAMELCASE() को अक्षरों के एक परिवर्तनीय मामले के साथ शब्दों को संयोजित करने के लिए डिज़ाइन किया गया है, अर्थात, परिणाम के रूप में एक शब्द वापस आता है, उदाहरण के लिए "camelCaseFunction"।
Camel Case रिक्त स्थान, हाइफ़न, अंडरस्कोर या अक्षर केस द्वारा अलग किए गए शब्दों की एक स्ट्रिंग को अलग-अलग तत्वों में विभाजित करता है। फिर, यह पहले वाले को छोड़कर, जिसे लोअरकेस में बदल दिया जाता है, इन सभी को अपरकेस शब्दों में बदल देता है, और सभी तत्वों को एक शब्द में जोड़ देता है।
CAMELCASE() फ़ंक्शन स्वीकृत कोड लेखन परंपराओं के अनुसार चर नामों को परिवर्तित करने के लिए प्रोग्रामिंग में उपयोगी हो सकता है
यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो विभिन्न शब्दों को एक में जोड़ सकता है, जहां तार्किक भागों को 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 पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।
आप एक्सटेंशन "सेट करके CAMELCASE() फ़ंक्शन का भी उपयोग कर सकते हैं YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।