TOP

Camel Case وظيفة LibreOffice Calc

CAMELCASE() الوصف

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

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

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


رمز StarBASIC للوظيفة Camel Case

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

افتح القائمة Tools - Macros - Edit Macros...، وحدد Module1 وانسخ النص التالي إلى الوحدة:

  1. Function CamelCase(ByVal str As StringAs String  
  2.   'moonexcel.com.ua  
  3.   Dim words As Variant  
  4.   Dim i     As Integer  
  5.   Dim FCalc As Object  
  6.     
  7.   FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")  
  8.     
  9.   str = Replace(str,"-"," ")  
  10.   str = Replace(str,"_"," ")    
  11.   str = FCalc.callFunction("TRIM", Array(str))    
  12.   str = FCalc.callFunction("REGEX", Array(str,"([:lower:])([:upper:])","$1 $2","g"))  
  13.       
  14.   str = LCase(str)  
  15.   words = Split(str, " ")  
  16.       
  17.   For i = LBound(words) + 1 To UBound(words)         
  18.     words(i) = UCase(Left(words(i), 1)) & Mid(words(i), 2)         
  19.   Next i  
  20.       
  21.   CamelCase = Join(words,"")  
  22. End Function  

ثم أغلق Macro Editor، وارجع إلى LibreOffice Calc واستخدم وظيفتنا الجديدة في أي خلية.

باستخدام التمديد

يمكنك أيضًا استخدام الميزة CAMELCASE() عن طريق تثبيت الامتداد المجاني YouLibreCalc.oxt أو نسخته كاملة المواصفات YLC_Utilities.oxt .

بعد ذلك ستكون هذه الوظيفة متاحة في كافة الملفات التي سيتم فتحها في LibreOffice Calc.