المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : البحث في القرآن الكريم بالتشكيل أو بدونه


ثامر أبو بلقيس
06-07-2015, 11:12 PM
السلام عليكم ورحمة الله وبركاته
تريد صناعة أداة بحث عن مفردة في القرآن الكريم
أو آية كريمة و معرفة رقم الاية و السورة
جيد
01 - حمل الملف الموجود في المشاركة التالية
http://www.abc4web.net/vb/showpost.php?p=285806&postcount=86
ضعه في مجلد Docs
ضف في ساحة العمل Input1 لتكتب فيها المفردة المراد البحث عنها و تكون بالتشكيل
02 - فعل الاضافة SQLite
03 - ضف زرا و ازرع فيه
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
result4 = Input.GetText("Input1");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y then
g = String.Find(s.Data[i]["alaya"],result4, 1, false);
if g~= -1 then
Dialog.Message(s.Data[i]["soura"].." ".."الآية".." "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end

للتجربة أكتب الان مثلا الكلمة " التَّوَّاب " في الانبوت 1 و لاحظ النتائج
حيث ستظهر الاية الكريمة المتضمنة للمفردة و في نافذة الرسالة الحوارية ستجد رقم الاية و السورة

----------------------------------------------------------------------------------------------------------------
لكن اذا لم تقم بتشكيل المفردة و لتكن " التواب " لن تظهر النتائج كون أننا نبحث في قاعدة بيانات فيها الكلمات
بالتشكيل
--------------------------------------------------------------------------------------------------------------------
ما الحل ؟
نقوم بكتابة الكلمة أو الاية بغير تشكيل في الانبوت عند البحث في الايات
نحذف علامات التشكيل حيث نستبدل كل علامة بلاشيء
أي نقوم بالاستبدال كود الاستبدال العادي لن يعطي نتائج لأننا نحتاج الى جملة من الاستبدالات
دفعة واحدة
راجع الدرس التالي
http://www.abc4web.net/vb/showthread.php?t=31186

نستغله في الكود السابق ليصبح الكود كالتالي :
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
result4 = Input.GetText("Input1");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y then
istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
m = s.Data[i]["alaya"]
abou_belkiss = string.gsub (m, ".",istibdalate)
g = String.Find(abou_belkiss,result4, 1, false);
g2 = String.Find(s.Data[i]["alaya"],result4, 1, false);
if g~= -1 or g2~= -1 then
Dialog.Message(s.Data[i]["soura"].." ".."الآية".." "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end


طيب ... نجرب الان و نكتب " التواب " بدون تشكيل
ستظهر النتائج
اذن لدينا طريقتي بحث وفق الكود السابق

ياإما تكون كل الحروف بالتشكيل
أو لا تشكل أي حرف

بالتوفيق :abc_138:

عبود عبود
06-07-2015, 11:32 PM
ليس لدى فرصة التجربة

ولكن لدى الثقة الكاملة فى جمال هذا العمل لأنة من برمجتك

بارك الله فيك وجزاك خيرا ونفع بك

ثامر أبو بلقيس
06-07-2015, 11:38 PM
شكرا أستاذ عبود على هذا الرد المحفز و المشجع شكرا

نواصل

قلنا الكود الاول سيتعامل مع المفردات اذا كانت بالتشكيل

أما الكود الثاني فسيتعامل بحالتين
- إما كل الحروف بالتشكيل
- أو الحروف كلها ليست بالتشكيل

لكن ماذا لو المستعمل قام بتشكيل حروف و ترك حروف بدون تشكيل

إليك الحل :
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
gg = Input.GetText("Input1");
istibdalate2={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}

result4 = string.gsub (gg, ".",istibdalate2)
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y then
istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
m = s.Data[i]["alaya"]
abou_belkiss = string.gsub (m, ".",istibdalate)
g = String.Find(abou_belkiss,result4, 1, false);
if g~= -1 then
Dialog.Message(s.Data[i]["soura"].." ".."الاية".." "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end

تقديري للجميع :abc_138:

ميزو فوكس
06-07-2015, 11:38 PM
ليس لدى فرصة التجربة

ولكن لدى الثقة الكاملة فى جمال هذا العمل لأنة من برمجتك

بارك الله فيك وجزاك خيرا ونفع بك

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

ميزو فوكس
06-07-2015, 11:40 PM
بس برضوا يا استاذ ثامر مارديتش علي التعديل الي طلبته منك
عايز اشيل الليست بوكس و اضيف كومبوبوكس بدلا منه
سواء لليست بوكس المخصص لمن و الي او الانبوت المخصص
للتكرار عايز احزفهم كلهم و اضيف كومبوبوكس بدلا منهم

ثامر أبو بلقيس
06-07-2015, 11:46 PM
بس برضوا يا استاذ ثامر مارديتش علي التعديل الي طلبته منك
عايز اشيل الليست بوكس و اضيف كومبوبوكس بدلا منه
سواء لليست بوكس المخصص لمن و الي او الانبوت المخصص
للتكرار عايز احزفهم كلهم و اضيف كومبوبوكس بدلا منهم

بل وفيت بوعدي و الله أعلم :abc_138:

http://www.abc4web.net/vb/showpost.php?p=286303&postcount=102

azizsoft
07-07-2015, 04:06 AM
بسم الله الرحمن الرحيم


الله يبارك فيك استاذ ثامر
وفي جهودكم

وفقكم الله :abc_022:

امل الماضي
07-07-2015, 07:18 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
جزاك الله بعدد حروف القرآن حسنات والحسنة بعشر أمثالها

بوركتم

أبو يوسف
07-07-2015, 05:13 PM
جزاكم الله خيرا :abc_152: وبارك الله فيكم

ثامر أبو بلقيس
07-07-2015, 07:50 PM
بسم الله الرحمن الرحيم


الله يبارك فيك استاذ ثامر
وفي جهودكم

وفقكم الله :abc_022:

مرور عطر ... أستاذ عزيز شكرا:abc_138:

ثامر أبو بلقيس
07-07-2015, 07:50 PM
جزاكم الله خيرا :abc_152: وبارك الله فيكم

شكرا جزيلا مرور طيب:abc_138:

ثامر أبو بلقيس
07-07-2015, 07:51 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
جزاك الله بعدد حروف القرآن حسنات والحسنة بعشر أمثالها

بوركتم

شكرا جزيلا بارك الله فيك :abc_152:

abohmam
08-07-2015, 12:14 AM
جزاك الله خيرا أخى ثامر ابا بلقيس

بارك الله فيك وفى جهودك القيمة

تقبل الله منا ومنك صالح الأعمال

ربيع
04-10-2015, 08:38 PM
السلام عليكم ورحمة الله وبركاته

سعيدون
05-10-2015, 03:07 AM
http://www.gulfup.com/?5XQtyb

هذا الرابط لا يعمل
رجاء اعملوا على تفعيله او استبداله باخر شغال
وشكرا

الحارث بن فيصل
06-10-2015, 04:20 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . موفق بإذن الله ... لك مني أجمل تحية .