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

TITLECASE() الوصف

تم تصميم الدالة TITLECASE() لتحويل النص الموجود إلى تنسيق عنوان وإرجاع مجموعة من الكلمات في النموذج: "Function for Title Case" .

يستبدل رمز الدالة Title Case الفواصل مثل الواصلات والشرطات السفلية بمسافات، ويحول كل الكلمات إلى أحرف كبيرة، ويحول أدوات العطف إلى أحرف صغيرة.

Title Case يمكن أن يكون مفيدًا لتصحيح الحالة في عناوين الأخبار أو عناوين مقالات الموقع أو عناوين مقاطع فيديو YouTube.

TITLECASE() يشبه الدالة PROPER() القياسية، فيما عدا أن أدوات العطف لا يتم كتابتها بأحرف كبيرة.

StarBASIC رمز TITLCASE()

إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها عرض النص كعناوين (Title Case) في LibreOffice Calc.

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

Function TitleCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim words As Variant
  Dim FCalc As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")  
    
  oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
  oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"  
  words = Split(oddWordsLat + "|" + oddWordsCyr,"|") 
  
  str = FCalc.callFunction("PROPER", Array(str))  
  
  For i = LBound(words) To UBound(words)  
    pattern = "(?!^)\b" + words(i) + "\b"
    replacement = LCase(words(i))
    
    str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
  Next i
    
  TitleCase = str
End Function

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

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

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

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