27-11-15, 12:48 AM (آخر تعديل لهذه المشاركة : 27-11-15, 12:49 AM {2} بواسطة عبده نصار.)
بسم الله الرحمن الرحيم
أنا إنسان بسيط جداً أقوم بكتابة خطب وبرامج على برنامج أكسيس ثم أربطها بال data أو adodc طبعاً بالفيجوال بيسك 6
ممكن كود يقوم بالبحث عن كلمة أو جملة في الصفحة ( سواء منتصف الصفحة أو في أي مكان) مع تظليل جملة البحث
وشاكر لكل من يساهم في الحل
السلام عليكم
اجعل محتويات القاعده تظهر في الليست بوكس ثم اعمل حلقة تكراريه للبحث عن الكلمه المدخله في صندوق النص
واذا لم تستطع عمل ذلك ارفع البرنامج وساقوم بكتابة الكود الخاص به
30-11-15, 09:03 PM (آخر تعديل لهذه المشاركة : 30-11-15, 09:10 PM {2} بواسطة عبده نصار.)
أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً
أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب
(30-11-15, 09:03 PM)عبده نصار كتب : أختى الفاضله أصيله
أشكر لكي تعبك ولكن للأسف لم أجد في المرفقات أي فارق بين برنامجي وتعديك
وأشكركي كثيراً
أخي الحبيب Ahmed_Mansoor أستفدت كثيراً كثيراً من ردك
ولكن هذا لو كان البحث في التكست فقط ... ولكن أريد البحث في جميع القاعده وقد تحتوى على 3000 صفحة وأكثر ....
أخي الحبيب أتمنى لو تمدني بتعديل لهذا الكود يعدل جميع الكلمات المشابهه لكلمة البحث
ومتشكر ليك كثيراً أخي الحبيب
اخي العزيز انا اعتذر منك ولكن انت بانه لايوجد بين برنامجك والملف الذي رفعته اليك اي فرق
اخي العزيز برنامجك لم يكن به اي بحث وهذا الكود الذي ضفته لبرنامجك تقبل مروري واعتذاري
List2.List(0) = Text1
Dim a
List1.Clear
For x = 0 To List2.ListCount - 1
List2.Selected(x) = True
If UCase(List2.Text) = UCase(Text1.Text) Then
MsgBox " ok "
List1.AddItem List2.Text
30-11-15, 10:37 PM (آخر تعديل لهذه المشاركة : 30-11-15, 10:41 PM {2} بواسطة عبده نصار.)
أختى الفاضله
أعتذر إن كنت لا أجيد الكلام .... ولكن عموماً أشكرك
وأرجو التوضيح أين أضع هذا الكود
هل في زر أمر
أختى الفاضلة الأصيله
حملت المرفقات مرات عديده
وجلا من لا يسهو
تقريباً حضرتك بعد ما عدلتي على برنامجي رفعتي نسختي قبل التعديل
وربما أنني أجهل شئ ... لأن علمى معدوم في مجال البرمجيات