الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن البحث داخل ملف عشوائي

مغلق
بدأه COMFORT في 3 مارس 2007 · 3 رد · 604 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني الكرام أنا الآن أقوم بتصميم برنامج للقرآن الكريم و قد قمت بصميم السور على صفحات Web

و من ثم أعرضها داخل البرنامج عن طريق الأداة WebBrowser طيب ؟ حتى هنا لا يوجد مشكلة

المشكلة التي تواجهني الآن هي إن عندما يقرأ القارىء أريد أن أجعل الآية التي تقرأ حالياً أن تكون باللون الاحمر

و أريد أن أقوم بذلك بأن أبحث داخل كود الـ HTML عن رقم الآية و ليكن على سبيل المثال {2} و من ثم وضع الآية بين

<FONT Color=Red> </FONT>

مع العلم أن ملفات السور مخزنة في قاعدة البيانات و أنا أستخرجها و بعد عرضها أقوم بحذفها

و بالتالي فإن هذه الطريقة لن تؤثر على الملف الاصلي .

و إليكم سورة من البرنامج

2007-03-03_111447.gif

أنا فكرت في طريقة أخرى و هي أن أقوم بتغير الآية إلى اللون الاحمر مثلاً و من ثم تخزينها في قاعدة البيانات

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

و جزاكم الله خيراً .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#2

أخي الغالي

يمكنك معرفة النص الكامل لكود ال html

باستخدام اي من هذه الدوال

var1= WebBrowser1.Document.documentElement.OuterHTML
var2= WebBrowser1.Document.documentElement.innerHTML

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

var3 = Replace(var1, "الأية", "<FONT Color=Red>الأية</FONT>")

وتستطيع ان تقوم بحفظ المتغير var3

في نفس الملف

ولا تنسى ان تقوم بتحديث للصفحة

WebBrowser1.Refresh

أدعو الله ان اكون وفقت في اجابتك

تم تعديل هذه المشاركة بواسطة egypt_man في 3 مارس 2007 في 13:45

zsO56863.jpg
#3

اخي كومفورت اذا كان قصدك انك تبحث مثلا عن نص معين داخل تكست فايل ممكن عن طريق قراءة سطر بسطر وتخزينه في متغير ومن خلاله (المتغير) يمكن استخدام الدالة mid او instr او left او right اتمنى اني افدتك كفكرة لاأكثر

*************************************************

**************************************************

مصطفى زيداني

#4

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

أشكرك أخي mostafazidani و لكن أعتقد أن حل أخي egypt_man هو ما كنت أريده

أشكرك أيضاً أخي egypt_man على مساعدتك الطريقة نجحت جزاك الله خيراً

و لكن عندي سؤال آخر مالفرق بين الدالتين التي ذكرتهما ؟

تم تعديل هذه المشاركة بواسطة COMFORT في 4 مارس 2007 في 12:40

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

هذا الموضوع مغلق.

مواضيع مشابهة