TOP

Kebab Case الدالة لـ LibreOffice Cal

KEBABCASE() الوصف

تم تصميم الدالة KEBABCASE() لدمج الكلمات باستخدام واصلة، أي أنها تُرجع كلمة واحدة، على سبيل المثال "kebab-case-function".

Kebab Case يقسم سلسلة من الكلمات المفصولة بمسافات أو واصلات أو شرطات سفلية أو تغييرات في حالة الأحرف، ثم يحول تلك الكلمات إلى أحرف صغيرة ويربطها بفاصل واصلة ("-").

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


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

إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها تحويل النص إلى كلمات فردية مفصولة بواصلات (Kebab Case) في LibreOffice Calc.

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

Function KebabCase(ByVal str As String) As String  
  'moonexcel.com.ua
  Dim words As Variant  
  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," ")              
      
  KebabCase = Join(words,"-")  
End Function

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