TOP

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

SNAKECASE() الوصف

تم تصميم الدالة SNAKECASE() لدمج الكلمات باستخدام الشرطة السفلية، لذلك تقوم بإرجاع كلمة واحدة، على سبيل المثال "snake_case_function".

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

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


رمز BASIC للوظيفة Snake Case

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

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

Function SnakeCase(ByVal str As String) As String
  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, " ")            
    
  SnakeCase = Join(words,"_")
End Function

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