فصل جملة بالعربي عن الأرقام في سلسلة ما

في هذا القسم، سنكتب دالة بلغة VBA تقوم بفصل النصوص العربية عن الأرقام في سلسلة ما. الدالة ستقوم بترتيب السلسلة بحيث تكون النصوص في جانب والأرقام في جانب آخر.

الخطوات البرمجية

1. استيراد المكتبات اللازمة: نستخدم فقط مكتبة VBA القياسية.
2. وثائق الدالة: تقديم معلومات مفيدة عن وظيفة الدالة.
3. التحقق من المدخلات: التأكد أن السلسلة المدخلة ليست فارغة.
4. التعليقات: الشرح داخل الكود لإيضاح المنطق.
5. مثال على الاستخدام: كيفية استخدام الكود في سيناريو واقعي.

الكود

Function فصل_جملة_عن_الأرقام(ByVal inputString As String) As Collection
    ' فصل_جملة_عن_الأرقام
    ' هذه الدالة تأخذ سلسلة نصية وتفصل النصوص العربية عن الأرقام.
    '
    ' parameters:
    '   inputString (String): السلسلة المدخلة التي تحتوي على النصوص والأرقام.
    '
    ' returns:
    '   Collection: مجموعة تحتوي على عنصرين:
    '                1. النصوص العربية
    '                2. الأرقام
    '
    ' exceptions:
    '   ترفع خطأ إذا كانت السلسلة المدخلة فارغة.

    Dim النصوص As String
    Dim الأرقام As String
    Dim i As Integer
    
    ' التحقق من السلسلة المدخلة
    If Len(inputString) = 0 Then
        Err.Raise vbObjectError + 1, "فصل_جملة_عن_الأرقام", "السلسلة المدخلة لا يمكن أن تكون فارغة"
    End If
    
    ' تهيئة المتغيرات
    النصوص = ""
    الأرقام = ""
    
    ' فصل النصوص عن الأرقام
    For i = 1 To Len(inputString)
        Dim currentChar As String
        currentChar = Mid(inputString, i, 1)
        
        ' تحقق مما إذا كان الحرف هو رقم
        If IsNumeric(currentChar) Then
            الأرقام = الأرقام & currentChar
        Else
            النصوص = النصوص & currentChar
        End If
    Next i
    
    ' إضافة النصوص والأرقام إلى مجموعة
    Dim result As New Collection
    result.Add النصوص
    result.Add الأرقام
    
    ' إرجاع النتيجة
    Set فصل_جملة_عن_الأرقام = result
End Function

مثال على الاستخدام

Sub Test_Fصل_جملة_عن_الأرقام()
    Dim results As Collection
    Dim النصوص As String
    Dim الأرقام As String
    
    ' استدعاء الدالة بفحص سلسلة نصية
    Set results = فصل_جملة_عن_الأرقام("مرحبا1234 هذا اختبار56")
    
    ' الحصول على النصوص والأرقام
    النصوص = results(1) ' النصوص العربية
    الأرقام = results(2) ' الأرقام

    ' طباعة النتائج
    Debug.Print "النصوص: " & النصوص
    Debug.Print "الأرقام: " & الأرقام
End Sub

النقاط الرئيسية

• هذه الدالة توفر وسيلة بسيطة وجميلة لفصل النصوص العربية عن الأرقام في سلسلة نصية واحدة.
• تم استخدام مجموعة (Collection) لتخزين وإرجاع كل من النصوص والأرقام.
• تمت إضافة تعليقات وتوثيق فعال للتسهيل على المطورين الآخرين لفهم الكود بسهولة.

بهذه الطريقة، يمكنك فصل النصوص عن الأرقام بشكل فعال باستخدام VBA. إذا كنت مهتمًا بتوسيع مهاراتك في هذا المجال، يمكنك النظر في الدورات التي تقدمها منصة Enterprise DNA.