Camel Case وظيفة LibreOffice Calc

YLC

Online

CAMELCASE() الوصف

تم تصميم الدالة CAMELCASE() لدمج الكلمات ذات حالة الأحرف المتغيرة، أي أنه يتم إرجاع كلمة واحدة كنتيجة، على سبيل المثال "camelCaseFunction".

Camel Case يقسم سلسلة من الكلمات مفصولة بمسافات أو واصلات أو شرطات سفلية أو حالة الأحرف إلى عناصر منفصلة. ثم يقوم بتحويل كل هذه الكلمات إلى كلمات كبيرة باستثناء الكلمة الأولى التي يتم تحويلها إلى أحرف صغيرة، ويجمع كل العناصر في كلمة واحدة.

يمكن أن تكون الدالة CAMELCASE() مفيدة في البرمجة لتحويل أسماء المتغيرات وفقًا لاتفاقيات كتابة التعليمات البرمجية المقبولة (coding conventions) .

BASIC كود الدالة Camel Case

إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها دمج كلمات مختلفة في كلمة واحدة، حيث سيتم فصل الأجزاء المنطقية بحالة متغيرة (Camel Case) في برنامج LibreOffice Calc.

افتح القائمة 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 واستخدم وظيفتنا الجديدة في أي خلية.

باستخدام ملحق YouLibreCalc

يمكنك أيضًا استخدام الدالة CAMELCASE() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.