أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





الدالة المعرفة SplitEA لانقسام النص

بسم الله والحمد لله والصلاة والسلام على رسول الله أهلا ومرحبا بكم أخوانى الكرام من جديد اقدم لكم اليوم دالة معرفة جديدة ..



26-10-2018 01:47 مساء
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 

بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم أخوانى الكرام من جديد
اقدم لكم اليوم دالة معرفة جديدة واتكلم هنا عن الدالة
SplitEA لانقسام النص والاسماء
أولا بناء الدالة كالتالى
=SplitEA(text,[break],[row])

أول بارميتر اجبارى وهو النص أو الإسم
ثانى بارميتر اختيارى وهو الفاصل ويمكن كتابة اكثر من فاصل وعند التجاهل تكون المسافه هى الفاصل الافتراضى
ثالث بارميتر اختيارى وهو رقم النص او الاسم بعد الانقسام وعند التجاهل يكون رقم ١ أى الاسم الاول هو الافتراضى

الدالة تتعامل مع الاسماء المركبه فى حالة كان الفاصل هو مسافة فقط
واذا اردت ان يكون الفاصل مسافه ولا يتم الاخذ بالاعتبار الاسماء المركبة قم بكتابة مسافة او مسافة كالتالى
" | "

وهناك امكانية اضافة احتمالات اكثر للاسماء المركبة وذلك داخل المتغير name
للاضافة نقوم باضافة الجزء الاول او الثانى من الاسم او الجزئين معا
فمثلا كلمة
"عبد" أو "ام" الى اخره
والجزء الثانى مثل
"الزهراء" أو "الصديق" الى اخره
والجزئين معا مثل
"هارون الرشيد" الى اخره

من مميزات الدالة انها تبحث بنظام الريجيكس
فيمكنك مثلا، مثلا مثلا يعنى:
استخدام الفاصل باك سلاش مع d ليكون الارقام هي الفاصل بين النص
واستخدام الرمز باك سلاش مع D ليكون أى شئ فاصل عدا الارقام يعنى استخراج الارقام منقسمه
ويمكنك استخدام الرمز | كعامل OR لاكثر من فاصل
وغيرها من الرموز الخاصه بالريجيكس
ولا يهم كم كان الفاصل متكرر ولا يهم وجود المسافات الزائدة فكل هذا يتم تنظيفه


واعرض الان عليكم صورة من ملف العمل لبعض النتائج المتوقعة على سبيل المثال وليس الحصر

NzAxMjIx002
الصورة هنا تغنى عن شرح كثير امامك امثله وعدة ونتائج كل منها
لذلك سأنهى كلامى على الدالة هنا

"ملاحظة لو هتنقل الكود وخلاص ممكن الاسماء المكتوبة بالعربى داخل الكود تنتقل لك بعلامات استفهام او لغة غير مفهومه
يبقى الافضل تحمل الملف ولا اقصد اجبار احد على شئ عايز تاخد الكود وتنقل الاسماء فى حالة لم تنسخ بالشكل الصحيح لا مشكله"


وكود الدالة كالتالى

Function SplitEA(txt As String, Optional break As String = " ", Optional rw As Integer = 1) As String
'Programming by Eslam Abdullah
Dim arr() As String, name(), i%
name = Array("عبد", "ابو", "أبو", "ام", "بن", "ابن", "إبن", "أم", "آل", 1, "الزهراء", "الله", "بالله", "العهد", "النصر", "الحق", "الاسلام", "الإسلام", "الدين", "الصديق", "النور")

    With CreateObject("VBScript.RegExp"): .Global = 1
        .Pattern = "^((" & break & ") +|" & break & ")+": txt = .Replace(Application.Trim(txt), "")
        .Pattern = "((" & break & ") +|" & break & ")+": txt = .Replace(txt, break)
    End With
    
    If break = " " Then
        arr = Split(Replace(Application.Trim(Replace(txt, "_", " ")), " ", " _"), "_")
        For i = 0 To UBound(arr)
            If IsNumeric(Application.Match(Trim(arr(i)), name, 0)) Then
                If Application.Match(Trim(arr(i)), name, 0) < Application.Match(1, name, 0) Then arr(i) = Replace(arr(i), " ", "_") Else arr(i) = "_" & arr(i)
            ElseIf IsNumeric(Application.Match(Trim(arr(IIf(i = 0, 0, i - 1)) & arr(i)), name, 0)) And i > 0 Then
                arr(i - 1) = Replace(arr(i - 1), " ", "_")
            End If
        Next i
            arr = Split(Replace(Replace(Join(arr, ""), " _", "_"), "__", "_"))
            If rw > 0 And rw < UBound(arr) + 2 Then SplitEA = Trim(Replace(arr(rw - 1), "_", " ")) Else SplitEA = ""
            Exit Function
    End If
    
arr = Split(txt, break)
If rw > 0 And rw < UBound(arr) + 2 Then SplitEA = Trim(arr(rw - 1)) Else SplitEA = ""
End Function

ملاحظة: تم تحديث الدالة بتاريخ 13/11/2018
الجديد بالدالة:
1- تصحيح خطأ وزيادة سرعة النتائج
2- الان يمكنك اضافة اسماء بجزئين معا مثل
"هارون الرشيد" وذلك لتفادى اذا كان هناك اسم كالجزء الاول واسم كالجزء الثانى
3- الان عند اضافة اى جزء من الاسم لن تضطر لترك مسافة فقط ادخل الاسم مباشرة
4- اذا كان الجزء الاول من الاسم يتم اضافته قبل الرقم 1 بالمتغير name واذا كان الجزء الثانى يضاف بعد الرقم 1 اما لو الجزئين معا يكتب بأى مكان
5- يتم التغاضى عن المسافات بأى مكان حتى لو وجدت داخل الفاصل المستخدم

لتحميل ملف العمل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

كان معكم ومعنا ومعاهم برضوا biggrin2
أخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81



















 
 


أثارت هذه المشاركة إعجاب: abdulwahed catran،





26-10-2018 02:23 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
بسم الله ما شاء الله تبارك الله
ربنا يحفظك يا إسلام ويزيدك علم كمان وكمان ، جزاك الله كل خير
تقبل وافر تقديري واحترامي





26-10-2018 02:48 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5717
الاعجاب : 715
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
دالة رائعة بارك الله فيك استاذ اسلام وزادك الله من فضله



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


26-10-2018 04:21 مساء
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
مشكور مروركم الكريم على الموضوع المتواضع
أستاذى ومعلمى الغالى ياسر
والأستاذ الغالى على
تقبلوا وافر احترامى وتقديرى 81





26-10-2018 11:55 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
ملاحظة: تم تحديث الدالة بتاريخ 25/10/2018
دمتم فى حفظ الله ورعايته 81






27-10-2018 02:51 صباحا
مشاهدة مشاركة منفردة [5]
abdulwahed catran
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 10-2-1968
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 266
الاعجاب : 8
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
بارك الله بكم





27-10-2018 05:46 صباحا
مشاهدة مشاركة منفردة [6]
السيد عبد النبي مقلاش
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-08-2018
رقم العضوية : 7526
المشاركات : 32
الجنس : ذكر
تاريخ الميلاد : 30-3-1965
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 47
الاعجاب : 0
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
الله ينور جزاكم الله خير





27-10-2018 07:51 صباحا
مشاهدة مشاركة منفردة [7]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص

شغل جديد ورائع يا غالى 
اسال الله العظيم ان يزيدك من علمه وفضله
123142





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



27-10-2018 08:22 صباحا
مشاهدة مشاركة منفردة [8]
لخضر لخضر
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-10-2018
رقم العضوية : 8371
المشاركات : 12
الجنس : ذكر
تاريخ الميلاد : 17-3-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 42
الاعجاب : 0
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
دالة ممتازة بارك الله فيك استاذ اسلام 





27-10-2018 10:13 صباحا
مشاهدة مشاركة منفردة [9]
علاء طالب
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-09-2018
رقم العضوية : 8197
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 16-12-1986
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 77
الاعجاب : 1
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
ما شاء الله دائماً متألقين بارك الله فيكم 





27-10-2018 10:18 صباحا
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
مشكور تقديرك الغالى أستاذى الحبيب حسام تلميذك بقى biggrin2
ومشكور مروركم العطر وتقديركم الطيب جميعا أخوانى الكرام 81





27-10-2018 10:57 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
جزاك الله خيراً أخي الحبيب إسلام ومشكور على التنويه بتحديث الدالة





27-10-2018 08:15 مساء
مشاهدة مشاركة منفردة [12]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 489
الاعجاب : 40
 offline 
look/images/icons/i1.gif الدالة المعرفة SplitEA لانقسام النص
السلام عليكم ورحمة الله تعالى وبركاته
بارك الله فيكم أسانذتي الأفاضل وجزاكم الله خير الجزاء .
وزادكم الله علما ونفع بكم.







الكلمات الدلالية
الدالة ، المعرفة ، SplitEA ، لانقسام ، النص ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 07:42 مساء

أعلن هنا
أعلن هنا
أعلن هنا