GETSUBSTR الدالة لـ LibreOffice Calcc

GETSUBSTR() الوصف

الدالة GETSUBSTR() مخصصة لتحديد جزء من النص بواسطة الفاصل المحدد.

يقوم كود الدالة GETSUBSTR بتقسيم النص إلى صفيف بواسطة الفاصل المحدد وإرجاع عنصر الصفيف المحدد وفقًا للرقم التسلسلي المحدد.

StarBASIC رمز GETSUBSTR

يوجد أدناه رمز الماكرو لإنشاء وظيفة مخصصة GETSUBSTR يمكنها تقسيم النص إلى أجزاء واسترداد أي عنصر منه في برنامج LibreOffice Calc.

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

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

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

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

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

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