حل جذرى للبحث في الكلمات ذات التشكيل والهمزات والتاءات والياءات

[ًعبد من عباد الله]

سلام الله على الجميع وكل عام وأنتم بخير

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

تم تعديل يونيو 22, 2017 بواسطه وائل أبو عبد الرحمن

[عبق الرياحيين]

3 ساعات مضت, وائل أبو عبد الرحمن said:

سلام الله على الجميع وكل عام وأنتم بخير

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

طيب هات قاعدة فيها جدول به كلمات بالتشكيل والهمزات ونموذج البحث اللى بتشتغل بيه
 

[أ / محمد صالح]

بسم الله الرحمن الرحيم

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

كل عام أنتم جميعا بكل خير

كنت قد صممت ملفا للبحث في القرآن الكريم به دالة لكل ما تريد

وهو تجاهل الهمزات والتشكيل والتاء المربوطة والياء المتطرفة

لاحظ استعمالها في الفلتر

كما أنه يمكن استعمالها في الاستعلام أو التقرير

ربما يفيدك أخي الكريم

ويفيد كل راغب في العلم النافع

ولا تنسوني من صالح دعائكم

البحث في القرآن الكريم بدون تشكيل.rar

[ًعبد من عباد الله]

أ . محمد صالح

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

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

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

تم تعديل يونيو 23, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

أ . محمد صالح

أسعد الله صباحكم بكل خير في خير يوم طلعت عليه الشمس في خير أيام العام

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

1- كيفيه استخدام الدالة في التقرير.

2- كيفيه استخدام الدالة للبحث في بيانات عدة حقول في الجدول وليس لبيانات حقل واحد.

 

[ابو جودي]

10 ساعات مضت, وائل أبو عبد الرحمن said:

أ . محمد صالح

أسعد الله صباحكم بكل خير في خير يوم طلعت عليه الشمس في خير أيام العام

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

1- كيفيه استخدام الدالة في التقرير.

2- كيفيه استخدام الدالة للبحث في بيانات عدة حقول في الجدول وليس لبيانات حقل واحد.

 

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

- تم الاستعانه بالله سبحانه وتعالى عزوجل ثم بكود احترافى لاستاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @رمهان فى البحث المتعدد وبعض التعديلات من قبل الاستاذ @أ / محمد صالح

- تم العتديل من قبل العبد الفقير الى الله فى الية جعل اسم الحقول كما يريدها المبرمج دون التقيد باسم الحقل فى الجدول وايضا اختيار حقول دون الاخرى حسب الحاجة فى مربع التحرير والسرد
اللهم اغفر لكل من تعلمنا منهم وعلى ايديهم ووالديهم يارب العالمين

البحث المتعدد بدون تشكيل.rar

تم تعديل يونيو 23, 2017 بواسطه ابا جودى

[أ / محمد صالح]

11 ساعات مضت, وائل أبو عبد الرحمن said:

أ . محمد صالح

أسعد الله صباحكم بكل خير في خير يوم طلعت عليه الشمس في خير أيام العام

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

1- كيفيه استخدام الدالة في التقرير.

2- كيفيه استخدام الدالة للبحث في بيانات عدة حقول في الجدول وليس لبيانات حقل واحد.

 

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

فليس منطقيا أن تعرض النص بدون تشكيل وهمزات .... إلخ في التقرير

على العموم استدعاؤها في التقرير مثل استدعائها في أي مكان

=cleantxt([fieldname])

حيث fieldname هو اسم الحقل المراد حذف تشكيله

أما إذا كان مقصودك عرض نتيجة الفلتر في تقرير

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

DoCmd.OpenReport "reportname", , , Me.Filter

* وبالنسبة للمطلوب الثاني فيمكنك استعمال المعامل المنطقي or  (أو) فيكون شرط الفلتر هو

Me.Filter = "cleantxt([field1]) Like ""*" & FindAsType & "*"" Or cleantxt([field2]) Like ""*" & FindAsType & "*""": Me.FilterOn = True

حيث field1 هو اسم الحقل الأول و field2 هو اسم الحقل الثاني

وفي هذه الحالة سيبحث عن النص في الحقل الأول ويحضر سجلاته وكذلك سيبحث عن نفس النص في الحقل الثاني ويجلب سجلاته

السجلات الموجود بها هذا النص في هذا الحقل أو ذاك 

ويمكن تكرار (أو) بأي عدد من الحقول

نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

 

منذ ساعه, ابا جودى said:

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

- تم الاستعانه بالله سبحانه وتعالى عزوجل ثم بكود احترافى لاستاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @رمهان فى البحث المتعدد وبعض التعديلات من قبل الاستاذ @أ / محمد صالح

- تم العتديل من قبل العبد الفقير الى الله فى الية جعل اسم الحقول كما يريدها المبرمج دون التقيد باسم الحقل فى الجدول وايضا اختيار حقول دون الاخرى حسب الحاجة فى مربع التحرير والسرد
اللهم اغفر لكل من تعلمنا منهم وعلى ايديهم ووالديهم يارب العالمين

البحث المتعدد بدون تشكيل.rar

بارك الله لك أخي الكريم أبا جودي

جهود مشكورة

وربما تم حذف دالة cleantext من المرفق الخاص بكم سهوا رغم أنه لم يتم حذف النموذج quran 

فالأفضل حذف الاثنين أو ابقاؤهما

فلن يعمل البحث داخل النموذج بدون الدالة فلماذا الإبقاء على النموذج؟؟!!!

وإذا سمحت لي أعتقد أن الدالة الخاصة بي cleantext

Public Function cleantxt(txt As String) As String
For Each itm In Array("إ", "أ", "آ")
    txt = Replace(txt, CStr(itm), "ا")
Next
For Each itm In Array("َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ْ", "ّ", "ـ")
    txt = Replace(txt, CStr(itm), "")
Next
txt = Replace(txt, "ة ", "ه ")
txt = Replace(txt, "ي ", "ى ")
cleantxt = txt
End Function

أقل في عدد الأسطر من الدالة المجمعة 

Public Function change_characters(str_Name As String)
'كود العبد الفقير الى الله
        str_Name = Replace(str_Name, "أ", "ا")
        str_Name = Replace(str_Name, "إ", "ا")
        str_Name = Replace(str_Name, "آ", "ا")
        str_Name = Replace(str_Name, "ة", "ه")
        str_Name = Replace(str_Name, "ى", "ي")
        change_characters = str_Name

'كود الاستاذ ابو خليل لحذف التشكيل

Dim i As Integer
Dim fld As String, wr As String, spa As String
wr = ""
fld = str_Name
i = 1
Do While i <= Len(fld)
spa = Mid(fld, i, 1)
If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then
Else
wr = wr & spa
End If
i = i + 1
Loop
change_characters = wr
   
End Function

وهذا يعني سرعة في البحث أكثر

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

وليس أن يختار الحقل الذي يبحث فيه وحده

الحكم في مقصد الأخ صاحب السؤال هو نفسه

ويختار ما يلبي طلبه والحمد لله الذي هدانا لهذا

وكل عام والجميع بكل خير

[ًعبد من عباد الله]

منذ ساعه, أ / محمد صالح said:

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

أ . محمد صالح

أسعد الله مساءك بكل خير 

نعم أستاذى الفاضل ظنك في محله أريد أن يشمل البحث كل الحقول التى بها نصوص في نفس الوقت (بحث متعدد).

1 ساعه مضت, أ / محمد صالح said:

وهذا يعني سرعة في البحث أكثر

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

[ابو جودي]

شكرا استاذى الجليل ومعلمى القدير  استاذ @أ / محمد صالح على كلماتكم الطيبة
 

اقتباس

بارك الله لك أخي الكريم أبا جودي

جهود مشكورة

واسمح لى بالرد والتوضيح

وربما تم حذف دالة cleantext من المرفق الخاص بكم سهوا رغم أنه لم يتم حذف النموذج quran 
لم تحذف الداله سهوا بل عن قصد لانه تم استبدالها مطلقا
لم احذف النموذج هذا سهوا كان من المقترض حذف النموذج فعلا

فالأفضل حذف الاثنين أو ابقاؤهما
لم احذف النموذج هذا سهوا لان الافكار التى جالت بخاطرى كانت تستدعى عمل نموذج خاص بها والا لقمت بالتعديل على النموذد وابقيت عليه كما هو

فلن يعمل البحث داخل النموذج بدون الدالة فلماذا الإبقاء على النموذج؟؟!!!
فعلا لا فض فوك صح كلام حضرتك

لا علم نية حضرتك فى الاسطر السابقة ورددت عليها ولكن استاذى الجليل  استاذ @أ / محمد صالح
اعطيت كل صاحب حق حقه فى كلماتى
 

اقتباس

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

- تم الاستعانه بالله سبحانه وتعالى عزوجل ثم بكود احترافى لاستاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @رمهان فى البحث المتعدد وبعض التعديلات من قبل الاستاذ @أ / محمد صالح

قمت بالتعديل على المرفق كما وضحتم
اولا انظر الى التقريرين بالداله الخاصة بكم وبالاستاذ @ابو خليل
بالاخص انظر الى
بِسْمِ اللّهِ الرَّحْمـَنِ الرَّحِيمِ

- كود الاستاذ ابو خليل جرد الكلمات من التشكيل وهذا ما لم يحدث بالداله الخاصة بحضرتك
الحمد لله تعالى ان نسبت العمل الى صاحبه الكريم جزاه الله الخير كله

اعتقد فى بعض الاحيان معيار الكيف اهم من الكم
لذلك لم اعر عدد اسطر الكود اهتماما

 

المطلب الثانى
 على ارض الواقع لو البحث سوف يكون على مثلا   10   حقول
الكلمة المراد البحث عنها سوف تكون فى الحقل   5   
 

هل علم المستخدم اين هو مكان الكلمة وفى اى حقل ؟

ولو قمنا بالوزن والعد لعدد الحروف والكلمات المستخدمه فى الكود سوف يكون

Me.Filter = "cleantxt([field1]) Like ""*" & FindAsType & "*"" Or cleantxt([field2]) Like ""*" & FindAsType & "*""" Or cleantxt([field3]) Like ""*" & FindAsType & "*""" Or cleantxt([field4]) Like ""*" & FindAsType & "*""" Or cleantxt([field5]) Like ""*" & FindAsType & "*""" Or cleantxt([field6]) Like ""*" & FindAsType & "*""" Or cleantxt([field7]) Like ""*" & FindAsType & "*""" Or cleantxt([field8]) Like ""*" & FindAsType & "*""" Or cleantxt([field9]) Like ""*" & FindAsType & "*""" Or cleantxt([field10]) Like ""*" & FindAsType & "*""": Me.FilterOn = True

- بينما استطاع المستخدم فى فكرتى المتواضعه اولا تحديد الحقل اولا اذا هو على علم مسبقا اين تقع الكلمة التى توافق نتيجة البحث
-الكود اصغر
- وربما ايضا حضرتك لاحظت ان فى فكرتى المتواضعة يستطيع المبرمج اختيار حقول البحث فقط وتسميتها كما يريد دون التقيد بكامل حقول الجدول وبالاسم الخاص بكل حقل

والقول الفصل هو الحمد لله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل فسبحانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

اللهم اغفر لكل من تعلمنا منهم وعلى ايديهم ووالديهم يارب العالمين
كل عام وانتم بخير

 

البحث بدون تشكيل.rar

تم تعديل يونيو 23, 2017 بواسطه ابا جودى

[ًعبد من عباد الله]

4 ساعات مضت, ابا جودى said:

اتفضل ان شاء الله يكون طلب حضرتك هنا كما تريد

م . محمد عصام (أبا جودى) سلام الله عليكم ورحمته وبركاته

(رغم أنى واخد على خاطرى منك حبتين) ولكن هذا لن يمنعنى أن أسجل شكرى لك وإعجابى بعملك المبدع كعادتك هذا أولا وثانيا لن يمنعنى أن أقول لك كل عام وأنتم لله أقرب وتقبل الله من الجميع.

بعملكم الذى تفضلتم به إضافة جميلة وهى حرية الأختيار المتعدد بين الحقول لذا أخى وحتى يكتمل إبداعك ينقص هذا العمل 4 مطالب كما هو موضح بالصورة المرفقة. 

1- إضافة بند جديد باسم الكل للبحث في كل حقول الجدول في نفس الوقت.

2- تلوين أو تظليل كلمة البحث في نتائج البحث في النموذج وفي التقرير.

3- ظهور مسار باسم الحقل وكلمة البحث في عنوان التقرير.

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

أكرر شكرى للجميع لحسن تجاوبهم وتفاعلهم المثمر جعله في ميزان حسناتكم وجزاكم خير

 

تم تعديل يونيو 23, 2017 بواسطه وائل أبو عبد الرحمن

[أ / محمد صالح]

46 دقائق مضت, وائل أبو عبد الرحمن said:

أ . محمد صالح

أسعد الله مساءك بكل خير 

نعم أستاذى الفاضل ظنك في محله أريد أن يشمل البحث كل الحقول التى بها نصوص في نفس الوقت (بحث متعدد).

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

لم أفهم السطر الأخير أخي الكريم وائل

الدالة تقوم بتجاهل الهمزات والتشكيل ... إلخ

وتستعمل مع كود الفلترة ... للبحث سواء في حقل واحد .... أو في أكثر من حقل

حسب ما تم شرحه سابقا في سطر الفلتر مع استعمال المعامل or في حالة البحث في أكثر من حقل

وفقنا الله وإياكم لكل خير

[ًعبد من عباد الله]

أستاذى . محمد صالح

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

وشاكر لك حلمك وسعة صدرك وجزاك الله خيرا.

 

تم تعديل يونيو 23, 2017 بواسطه وائل أبو عبد الرحمن

[أ / محمد صالح]

2 ساعات مضت, وائل أبو عبد الرحمن said:

أستاذى . محمد صالح

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

وشاكر لك حلمك وسعة صدرك وجزاك الله خيرا.

 

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

هذا مثال بسيط لحقل به سورة غافر وحقل به 45 آية من سورة يس

والبحث في نص السورتين

لاحظ تعديل سطر الفلتر إلى

Me.Filter = "cleantxt([ayatext1]) Like ""*" & FindAsType & "*""" & _
"or cleantxt([ayatext2]) Like ""*" & FindAsType & "*"""

نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

البحث في حقلين بدون تشكيل.rar

[ًعبد من عباد الله]

أخى وأستاذى العزيز \ محمد صالح

بارك الله فيك ونفعنا بعلمك في الدنيا والأخرة

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

1- شرح بالكتابة داخل الكود كدليل لى عند رغبتى إضافة حقل جديد لأنى حاولت ولم اوفق.

2- إضافة على الكود لتمييز كلمة البحث بلون أو تظليل.

3- بالمرفق هدية وما يميزها أنه أهم نسخة موثقة موجودة على الانترنت والصادرة من مجمع الملك فهد لطباعة المصحف الشريف فضلا عن موافقتها لرسم المصحف لأنها بالرسم العثمانى

http://fonts.qurancomplex.gov.sa/?page_id=42

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

ملحوظة مساحة رفع الملفات لا تستوعب الملفين فرفعت نصوص الآيات ويمكن تحميل الخط من الموقع وهو باسم UthmanicHafs1 Ver09

أسف أنى أتعبت حضرتك معى ولكن شرف الأمر وبركة الوقت سوف تعظم الأجر والمثوبة بإذن الله 

 

 

آيات القرآن الكريم بالرسم العثمانى.rar

تم تعديل يونيو 23, 2017 بواسطه وائل أبو عبد الرحمن

[ابو جودي]

انا اتمنى اولا يا استاذ @وائل أبو عبد الرحمن ان تترفق بى فظروف عملى لو تلاحظ تمنعنى من التواجد بصفة مستمرة ولو لاحظت انقطعت بالدخول في الفترة السابقة  الى الموقع

وللعلم سأنقطع مرة اخرى قأرجوا منكم العفو والسماح

ولغلاوتك عندى بعد انتهائى من الافطار والصلاة يعلم الله لم اقوم من على الجهاز حتى اتمتت طلباتك بالتمام والكمال ولكن وقعت فى مشكلة صغيرة لم استطع تلوين نتيجة البحث مع التشكيل

جرب المرفق الاتى ابحث بكلمة  موت
وجرب بعد كتابة كلمة البحث الضغط على الزر  البحث فى كل الحقول ثم اختر من مربع التحرير والسرد الايات مرة ثم اختر من مربع التحرير والسرد الحديث
وفى كل مرة لاحظ الفرق
وفى كل مره اقتح التقرير ولاحظ الفرق

بهذا ادين بكل الشكر لله سبحانه وتعالى الذى هدانى وما كنت لاهتدى لولا ان هدانى الله عزوجل سبحانك لا علم لنا الا ما علمتنا فيارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك ثم ادين بعد ذلك بالفضل والشكر لكل اساتذتنا الافاضل الكرام الذين لم يبخلوا ولم يملوا جزاهم الله خيرا الجزاء واحسن اليهم كما احسنوا الينا

اخص بالشكر الاستاذ الجليل @رمهان صاحب السبق الاول فى الية البحث بهذا الاسلوب الاكثر من الرائع
اخص بالشكر الاستاذ الجليل @ابو خليلصاحب الاكواد الخاصة بازالة التشكيل
اخص بالشكر الاستاذ الجليل @أ / محمد صالح التعديل على كود البحث
اخص بالشكر الاستاذ الجليل @Gamal.Saad التعديل على كود البحث

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

كل عام وانتم الى الله تعالى اقرب كل عام وانتم بكل الخير ان شاء الله
اسأل الله تعالى لى ولكم ولكل المسلمين والمؤمنين الاحياء والاموات العفو والعافية والمغفرة

دمتم بكل الخير
احبكم فى الله ولوجه الله

البحث بدون تشكيل-2.rar

تم تعديل يونيو 23, 2017 بواسطه ابا جودى

[ًعبد من عباد الله]

الحمد لله الذى بنعمته تتم الصالحات

منذ ساعه, ابا جودى said:

حبكم فى الله ولوجه الله

أخى العزيز (أبا جودى) بارك الله فيك

أحبك الذى أحببتنا فيه ونحن نحبكم في الله

منذ ساعه, ابا جودى said:

ولغلاوتك عندى

وأنت لولا أنك غال عندنا بالمثل ما عبرنا لك عما بداخلنا

منذ ساعه, ابا جودى said:

وللعلم سأنقطع مرة اخرى قأرجوا منكم العفو والسماح

أعانك الله ولا تطلب السماح بل نحن من نعتذر عن إشغالنا لكم بحاجاتنا

منذ ساعه, ابا جودى said:

وهذا المرفق ناتج مجهود كل اساذتا الكرام

بارك الله في هذا الصرح الكبير ولولا جهودكم ما أستفدنا ولا تعلمنا

منذ ساعه, ابا جودى said:

لم اقوم من على الجهاز حتى اتمتت طلباتك بالتمام والكمال ولكن وقعت فى مشكلة صغيرة لم استطع تلوين نتيجة البحث مع التشكيل

العمل رائع في شكله ومضمونه فقط بقيت (تكة) صغيرة وهى إذا كان تلوين كلمة البحث في التقرير هو ما يمنع ظهور الكلمات مشكولة فالأولى لنا عدم ظهور التلوين بالتقرير وظهور التشكيل وذلك لضبط ظهور الكلمات في شكلها الأخير قبل طباعتها.

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

سوف أنتظر فراغاك بإذن الله لنتم ما بداناه في عملنا الرئيسى أرجو أن تكون قد تذكرته الآن كما أرجو إن لم نثقل عليك عندما يحين ذلك ألا تنسى أخبارنا

كل عام وأنتم إلى الله أقرب وعلى طاعته أدوم كل وانتم بخير

تم تعديل يونيو 24, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

أخ العزيز م . محمد عصام (أبا جودى)

الأخوة الكرام 

3 ساعات مضت, وائل أبو عبد الرحمن said:

3- بالمرفق هدية وما يميزها أنه أهم نسخة موثقة موجودة على الانترنت والصادرة من مجمع الملك فهد لطباعة المصحف الشريف فضلا عن موافقتها لرسم المصحف لأنها بالرسم العثمانى

http://fonts.qurancomplex.gov.sa/?page_id=42

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

ملحوظة مساحة رفع الملفات لا تستوعب الملفين فرفعت نصوص الآيات ويمكن تحميل الخط من الموقع وهو باسم UthmanicHafs1 Ver09

أسف أنى أتعبت حضرتك معى ولكن شرف الأمر وبركة الوقت سوف تعظم الأجر والمثوبة بإذن الله 

 

 

آيات القرآن الكريم بالرسم العثمانى.rar

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

UthmanicHafs1 Ver09.rar

[ابو جودي]

المشكلة فى الترميز المستخدم فى الخط العثمانى
حاول استخدام مصحف لا يعتمد على الخط العثمانى

ولو ان لاحد اساتذتنا الكرام الافاضل حل فحتما لن يتأخر فى تقديمه اليكم

[ًعبد من عباد الله]

الأخوة الكرام سلام الله على الجميع

خيرا بإذن الله فما دام الأمر كذلك هناك اقتراح كنوع من التحايل على الحل بشكل غير مباشر لعله يفى بالغرض بإذن الله وهو:-

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

[عبق الرياحيين]

في 6/24/2017 at 01:10, ابا جودى said:

انا اتمنى اولا يا استاذ @وائل أبو عبد الرحمن ان تترفق بى فظروف عملى لو تلاحظ تمنعنى من التواجد بصفة مستمرة ولو لاحظت انقطعت بالدخول في الفترة السابقة  الى الموقع

وللعلم سأنقطع مرة اخرى قأرجوا منكم العفو والسماح

ولغلاوتك عندى بعد انتهائى من الافطار والصلاة يعلم الله لم اقوم من على الجهاز حتى اتمتت طلباتك بالتمام والكمال ولكن وقعت فى مشكلة صغيرة لم استطع تلوين نتيجة البحث مع التشكيل

جرب المرفق الاتى ابحث بكلمة  موت
وجرب بعد كتابة كلمة البحث الضغط على الزر  البحث فى كل الحقول ثم اختر من مربع التحرير والسرد الايات مرة ثم اختر من مربع التحرير والسرد الحديث
وفى كل مرة لاحظ الفرق
وفى كل مره اقتح التقرير ولاحظ الفرق

بهذا ادين بكل الشكر لله سبحانه وتعالى الذى هدانى وما كنت لاهتدى لولا ان هدانى الله عزوجل سبحانك لا علم لنا الا ما علمتنا فيارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك ثم ادين بعد ذلك بالفضل والشكر لكل اساتذتنا الافاضل الكرام الذين لم يبخلوا ولم يملوا جزاهم الله خيرا الجزاء واحسن اليهم كما احسنوا الينا

اخص بالشكر الاستاذ الجليل @رمهان صاحب السبق الاول فى الية البحث بهذا الاسلوب الاكثر من الرائع
اخص بالشكر الاستاذ الجليل @ابو خليلصاحب الاكواد الخاصة بازالة التشكيل
اخص بالشكر الاستاذ الجليل @أ / محمد صالح التعديل على كود البحث
اخص بالشكر الاستاذ الجليل @Gamal.Saad التعديل على كود البحث

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

كل عام وانتم الى الله تعالى اقرب كل عام وانتم بكل الخير ان شاء الله
اسأل الله تعالى لى ولكم ولكل المسلمين والمؤمنين الاحياء والاموات العفو والعافية والمغفرة

دمتم بكل الخير
احبكم فى الله ولوجه الله

البحث بدون تشكيل-2.rar

ما شاء الله بجد شغل اكثر من رائع

[ًعبد من عباد الله]

أ - محمد صالح سلام الله عليكم ورحمته وبركاته

أحتاج من حضرتك مشكورا المساعدة بتعديل مهم على الكود الذى تفضلت به في هذا الموضوع للبحث في الكلمات المشكولة استكمالا للمطلوب حتى تكتمل الفائدة

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

جرب حضرتك مثلا أن تبحث عن كلمة (لغة) إذا كتبتها (لغه) ظهرت في نتائج البحث وإذا كتبتها بشكلها الأصلى (لغة) لم تظهر في نتائج البحث أتمنى أن المطلوب يكون واضحا لتصور حضرتك وشكرا لك وأسف على الأزعاج.

تم تعديل أغسطس 11, 2017 بواسطه وائل أبو عبد الرحمن

[tiger wanted]

بسم الله الرحمن الرحيم 

جارى الاطلاع على المرفقات وسيتم الرد ولكم منا جزيل الشكر والتقدير والعرفان