फ़ंक्शन CAMELCASE() को अक्षरों के एक परिवर्तनीय मामले के साथ शब्दों को संयोजित करने के लिए डिज़ाइन किया गया है, अर्थात, परिणाम के रूप में एक शब्द वापस आता है, उदाहरण के लिए "camelCaseFunction"।
Camel Case रिक्त स्थान, हाइफ़न, अंडरस्कोर या अक्षर केस द्वारा अलग किए गए शब्दों की एक स्ट्रिंग को अलग-अलग तत्वों में विभाजित करता है। फिर, यह पहले वाले को छोड़कर, जिसे लोअरकेस में बदल दिया जाता है, इन सभी को अपरकेस शब्दों में बदल देता है, और सभी तत्वों को एक शब्द में जोड़ देता है।
CAMELCASE() फ़ंक्शन स्वीकृत कोड लेखन परंपराओं के अनुसार चर नामों को परिवर्तित करने के लिए प्रोग्रामिंग में उपयोगी हो सकता है
यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो विभिन्न शब्दों को एक में जोड़ सकता है, जहां तार्किक भागों को LibreOffice Calc में एक वेरिएबल केस (Camel Case) द्वारा अलग किया जाएगा।
मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित पाठ को मॉड्यूल में कॉपी करें:
Function CamelCase(ByVal str As String) As String
'moonexcel.com.ua
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 या इसका पूर्ण विशेषताओं वाला संस्करण YLC_Utilities.oxt .
उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice Calc में खोली जाएंगी।
