شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

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

وجدت نفسي أراجع أحد الملفات القديمة متعلق بــ html
قلت مناسب لو يوضع المحتوى كله أي صفحات html للسور القرآنية وكذلك
مجلد IMAGES
في مجلد البرنامج Docs
---------------------------------------
ونضع في صفحة العمل عنصر Web1 يفتح مباشرة على سورة الفاتحة أي
الملف 001.HTM
-----------------------------------------
نضع أنبوت 1
نضع أنبوت 2
زر للبحث نزرع فيه
[html]if String.Length(Input.GetText("Input1")) == 0 then
Dialog.Message("Notice", " لم تكتب كلمة أو آية للبحث", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
else
ListBox.DeleteItem("ListBox1", -1);
search = File.Find(_SourceFolder.."\\AutoPlay\\Docs", "*.HTM", false, false, nil, nil);
if search ~= nil then
for i,file_path in pairs(search) do
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename;
read_string = TextFile.ReadToString(file_path);
find_in_file = String.Find(read_string,Input.GetText("Input1"), 1, false);
hashtmltag = String.Mid(read_string, find_in_file -1, 1);
if find_in_file ~= -1 and hashtmltag ~= "<" then
ListBox.AddItem("ListBox1", sFile, file_path);
end
end
end
numresult = ListBox.GetCount("ListBox1");
Input.SetText("Input2",numresult);
if numresult == 0 then
Dialog.Message("Notice","...لايوجد ماتبحث عنه", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end[/html]

وليست بوكس في الحدث on select
[html]selected = ListBox.GetSelected("ListBox1");
path = ListBox.GetItemData("ListBox1", selected[1]);
Web.LoadURL("Web1", path);[/html]
-------------------------------------------------
بعد كتابة مفردة أو آية للبحث في السور القرأنية في الانبوت 1 على أن تكون الحروف بالتشكيل
ستظهر السور التي توجد فيها المفردة او الاية في الليست و بالضغط على نتائج البحث تظهر السورة
في عنصر الويب

في الانبوت 2 يظهر مجموع نتائج البحث
-------------------------------------------------
السلام عليكم ورحمة الله وبركاته

اذ كان المقصود عند استعمال الصفحات في عنصر ويب "في الاوتوبلاي "
فإضافة الصوت أثناء التنقل من خلال الفهرس INDEX فذلك ممكن

الطريقة :
نضع مثلا عنصر ميديا بلير في التجميعية
نضع عنصر ويب Web وليكن Web1
نجعل العنصرWeb يفتح او يستدعي مباشرة ملف [html]INDEX.HTM[/html]

وذلك بعد وضع كل محتويات هذا الموضوع بعد فكها في مجلد Docs

نستطيع الان من الفهرس اختيار السور القرآنية
----------------------------------------------
هذه السور لها تسميات
001 تشير لسورة الفاتحة
002 لسورة البقرة .... الخ
--------------------------------------------
ضع في ملف الصوت Audio ملفات صوتية للقرآن الكريم
بحيث كل ملف صوتي يتوافق تسمية مع ملف HTM الموافق للسورة
------------------------------------------------------------------------------
بعد هذا نضغط على عنصر Web1 و في الحدث on loaded
ضع هذا الكود
[html]path_parts = String.SplitPath(e_URL);
MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..path_parts.Filename..".mp 3");
MediaPlayer.Play("Plugin1");[/html]

موفق

يمكن بسهولة تجاهل التشكيل عن طريق تحويل الحرف للأسكى string.asc و الإكتفاء بالثلاثة أعداد اليسرى string.mid
مثال
بِّ = 200248246
ب = 200

كَ = 223243
ك = 223

يسهل جدا تحويلها لفانكشن

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

لاحظ حقل رقم السورة
سيسهل الربط بملفات هتمل كوسيلة إظهار
موفقين

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

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

موفق بإذن الله ... لك مني أجمل تحية .

جزاك الله خيرا أخى عزيز

جـــــــــزاك الله خيـــــــرا

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

موفق بإذن الله ... لك مني أجمل تحية .