بحث بعدد الكلمات المتشابهة

[حامل المسك]

أساتذتي الكرام،،

السلام عليكم ورحمة الله وبركاته،،

وفقكم الله ورعاكم،،

لدي جدول به عدد كبير من البيانات..

وأريد أن أستخرج البيانات المتشابهة  وذلك عند طريق عدد الكلمات فمثلاً:

يكون لدي نموذج أكتب به رقم 5 فيقوم البرنامج بالبحث من خلال سجلات الجدول عمود (س) مثلا عن البيانات التي تتشابه في خمس كلمات، وإذا غيرت الرقم لـ 4 يبحث عن السجلات التي تتشابه في أربع كلمات.. وهكذا..

ويزداد الأمر جمالاً إذا تم وضع خيار لاحتساب الهمزات أو لا وكذا التاء المربوطة من عدمه..

فهل بالإمكان؟

مع جزيل الشكر وعظيم الامتنان،،

 

مرفق مثال،،

 

بحث بعدد الكلمات.accdb

[محمد ايمن]

تفضل اخي الكريم

مبدئيا تم حل الطلب الأول 😅 

بحث بعدد الكلمات.rar

[حامل المسك]

حياك الله خبرينا وأستاذنا محمد وكتب الله أجرك،،

وأشكر لك تجاوبك الرائع،،

ولعلي لم أوضح المقصود بالشكل الصحيح..

أقصد بالتشابه ليس في العدد بذاته إنما في الكلمات المتشابهة

بمعنى..

فهد زايد أسامة

فهد محمد محسن زايد

ففي السجلين تشابهت كلمتين( فهد، و زايد) فعند طلب العبارات التي فيها كلمتين متشابه يأتي بهذين السجلين..

وإذا كان هناك ثلاث كلمات تشابهت يأتي بها عند طلب الثلاث كلمات وهكذا..

[Moosak]

في 28‏/5‏/2023 at 21:14, حامل المسك said:

إذا تم وضع خيار لاحتساب الهمزات أو لا وكذا التاء المربوطة من عدمه..

بالنسبة لي سأساهم في هذا الجزء بدالة تقوم بتوحيد الحروف المتشابهة إلى حرف واحد وذلك لتلافي موضوع أخطاء الطباعة : 🙂 

Function ReplaceArabicLetters(strText As String) As String
' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة
' أ،إ،ا =(تحول إلى)=> ا
' ي،ى =(تحول إلى)=> ي
' ـه،ـة =(تحول إلى)=> ـه
' Moosak

    strText = Replace(strText, "أ", "ا")
    strText = Replace(strText, "إ", "ا")
    strText = Replace(strText, "ى", "ي")
    strText = Replace(strText, "ة", "ه")
    
    ReplaceArabicLetters = strText
End Function

مثال :

ReplaceArabicLetters("أجمل إنسان في الحياة من ينسى الأحزان ويعيش الأمل")
النتيجة : اجمل انسان في الحياه من ينسي الاحزان ويعيش الامل

 

[حامل المسك]

38 دقائق مضت, Moosak said:

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

أستاذنا @Moosak وأستاذنا @محمد ايمن

تكامل رائع ،، وبإذن الله نتمكن من تحقيق المطلوب،،

مع جزيل الشكر وعظيم الامتنان،،

[محمد ايمن]

اخي الكريم @حامل المسك السلام عليكم و رحمة الله و بركاته

حسب خبرتي ( والله اعلم ) لا يمكنك البحث ضمن الحقل الواحد بهذه الطريقة

أي انه يمكنك البحث عن كلمة واحدة فقط ( او نص متسلسل ) ليرجع لك كافة السجلات التي تحتوي تلك الكلمة

مثال : احمد محمد محمود حامد > يمكنك البحث عن ( محمد محمود ) لكن لا يمكن البحث عن ( احمد حامد )

تم حل مشكلة تجاهل الهمزات و التاء بفضل مساعدة اخينا @Moosak

بحث بعدد 2الكلمات.rar

[محمد القدسي]

مثال : احمد محمد محمود حامد > يمكنك البحث عن ( محمد محمود ) لكن لا يمكن البحث عن ( احمد حامد )

السلام عليكم 

اعتقد استاذي @محمد ايمن يمكن البحث عن احمد حامد بكتابة ( احمد*حامد)

فانها تظهر عند الفلترة

[محمد ايمن]

@محمد القدسي كلامك صحيح اخي الكريم

وهذا تعديل للمثال

بحث بعدد 3الكلمات.rar

[حامل المسك]

أستاذتي الكرام،،

جهود رائعة، وأفكار متميزة،،

وهذا مما يميزكم في عطائكم،،

وما تفضلتم به حل مناسب ،،

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

كلمات الشكر لا تفيكم حقكم ،، 

شكر الله لكم ورضي عنكم ووفقكم،،

،،

 

[Moosak]

8 ساعات مضت, محمد ايمن said:

وهذا تعديل للمثال

تحسين بسيط على الكود .. وهو حتى كلمات البحث تطبق عليها دالة تجاهل الهمزات 🙂 

فلو كتبت في البحث ( أحمد ) تظهر جميع النتائج .. أحمد .. احمد .. إحمد .. وهكذا ..

بحث بعدد 3الكلمات.rar

[حامل المسك]

1 ساعه مضت, Moosak said:

تحسين بسيط على الكود .. وهو حتى كلمات البحث تطبق عليها دالة تجاهل الهمزات 🙂 

فلو كتبت في البحث ( أحمد ) تظهر جميع النتائج .. أحمد .. احمد .. إحمد .. وهكذا ..

هذا ليس تحسين بسيط بل إبداع متميز مستمر،،

شكرًا @Moosak