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

كود بحث مطلوب تطويره إلى ما يلي

مغلق
بدأه الفلوجة في 17 نوفمبر 2004 · 19 رد · 2,554 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ارفق لكم كود برنامج وظيفته البحث داخل الملفات النصيه txt فمن يستطيع ان يطور الكود إلى مايلي:

1- إضافة خاصية البحث على جميع الامتدادات بدون استثناء بدلا من txt

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

3-في الاخير واجهتني مشكلة وهي عند محاولة فتح البرنامج تظهر رسالة وهذا هو نصها

run time error '76'

path not found

علما بان البرنامج يعمل داخل الفيجوال اما بعد عمل make له فان الرسالة السابقه تظهر

اتمنى ان اجد الحل لديكم فيما يخص الاسئلة السابقه

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

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

الكود المطلوب تطويره وجدته في هذا الموقع

http://www.biznaseducation.com/vba/

وموقع الكود الاصلي http://blackbeltvb.com

فمن يمكنه المساعدة ولكم الشكر

codesearch.zip

#2

بخصوص المشكلة رقم 3 من سؤال وهي ظهر الرسالة run time error إلخ

عرفت حلها ولله الحمد

تخلصت من الكود التالي

Private Sub Form_Load()

' وهي هنا مع موقع البرنامج txt لتحديد موقع ملفات النص

File1.Path = App.Path & "\Files"

Label5 = File1.Path

'File1.Path = "c:\Hamza\"

End Sub

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

فالمطلوب الان هو تطوير الكود كمثل ما اوضحته في رقم 1 و 2

تم تعديل هذه المشاركة بواسطة الفلوجة في 17 نوفمبر 2004 في 17:13

#3

نرفع هيلا هوب

اتمنى ان اجد حل رقم 1 و 2

#4

السلام عليكم

بسم الله

تم تعديل الواجهة الرئيسيه للبرنامج

تم اضافة قائمه النسخ للزر الايمن للفأره

تم تعديل البرمجه للبحث داخل جميع انواع الملفات

تم اضافة اسم الملف الذي تم البحث في داخله

تم اضافة امر حفظ نتيجة البحث كملف نصي

برنامج البحث المطلوب تطويره إلى ماسبق.zip

اذا اراد الله بعبد خيراً فقهه في دينه

((إياكم والغلو في الدين فإنما هلك من كان قبلكم بالغلو في الدين )).

( إن هذا الدين يسر ولن يشاد هذا الدين إلا غلبه فأوغلوا فيه برفق )

( هلك المتنطعون ، هلك المتنطعون ، هلك المتنطعون )

<span style='font-size:14pt;line-height:100%'>طريقة سريعة لحفظ كتاب الله العزيز</span>

<span style='font-size:14pt;line-height:100%'>تعرف على عباقرة الكذب</span>

#5

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

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

بارك الله فيك ورحم الله والديك

اشكرك جزيلا الشكر

عندما ابحث داخل مجلد يحتوي على ملفات وورد doc فإنه لا يستخرج الكلمة!! علما

بانه يحبث داخل ملف نصي txt و Html بشكل ممتاز ويستخرج الكلمات منها

ان كانت عملية البحث في جميع الامتدادات غير ممكنه ارجو ان ترشدني إلى كيفية

إضافة اوامر اجعله يبحث في الامتدادات التالية وهي doc و pps و pps و zip و rar

و ram و rm وغيرها من الامتدادات

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

في واجهة البرنامج الكثير من الخيارات والمربعات (ان شاء الله تكون عرفت قصدي)

اخيرا اتمنى وضع خيار وهو البحث داخل المجلدات الفرعية Sub Folders كمثل بحث

الوندوز فيه خيار وهو البحث داخل المجلدات الفرعية

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

الامر (البحث داخل المجلدات الفرعية) (ان شاء الله تكون عرفت قصدي)

بخصوص إضافتك وهي الحفظ على ملف نصي بصراحة جميلة جدا

وشكرا جزيلا لك

#6

نرفع هيلا هوب

#7

UP :)

#8

انتظر عدة ايام قادمه و سوف تجد ما يدهشك

اذا اراد الله بعبد خيراً فقهه في دينه

((إياكم والغلو في الدين فإنما هلك من كان قبلكم بالغلو في الدين )).

( إن هذا الدين يسر ولن يشاد هذا الدين إلا غلبه فأوغلوا فيه برفق )

( هلك المتنطعون ، هلك المتنطعون ، هلك المتنطعون )

<span style='font-size:14pt;line-height:100%'>طريقة سريعة لحفظ كتاب الله العزيز</span>

<span style='font-size:14pt;line-height:100%'>تعرف على عباقرة الكذب</span>

#9

وانا في الانتظار

وربنا يفتحها معاك

#10

(فذكر فإن الذكرى تنفع المؤمنين)

#11

للرفع

#12

ألا توجد طريقة أسرع ولكن بنفس الفكرة

أسم الفايل تم السطر الموجود فيه الكلمة

#13

لم افهم ماذا يعني

ألا توجد طريقة أسرع ولكن بنفس الفكرة

أسم الفايل تم السطر الموجود فيه الكلمة

اذا اراد الله بعبد خيراً فقهه في دينه

((إياكم والغلو في الدين فإنما هلك من كان قبلكم بالغلو في الدين )).

( إن هذا الدين يسر ولن يشاد هذا الدين إلا غلبه فأوغلوا فيه برفق )

( هلك المتنطعون ، هلك المتنطعون ، هلك المتنطعون )

<span style='font-size:14pt;line-height:100%'>طريقة سريعة لحفظ كتاب الله العزيز</span>

<span style='font-size:14pt;line-height:100%'>تعرف على عباقرة الكذب</span>

#14

بشر يا عامر ان شاء الله قربت من الانتهاء !

#15

لم يبقى سوى القليل

على فكره البرنامج حاليا يبحث في جميع انواع الملفات لا اعرف لماذا لا يعمل معك.

لقد وجد لي عدة نتائج في ملفات cab & Zip

طبعا النتائج غير دقيقه

اقصد ان النتائج توجد في رموز الملف وليس داخل الملفات الموجوده فيه.

مثلا ابحث عن

as

ws

zd

ae

fm

frm

اذا اراد الله بعبد خيراً فقهه في دينه

((إياكم والغلو في الدين فإنما هلك من كان قبلكم بالغلو في الدين )).

( إن هذا الدين يسر ولن يشاد هذا الدين إلا غلبه فأوغلوا فيه برفق )

( هلك المتنطعون ، هلك المتنطعون ، هلك المتنطعون )

<span style='font-size:14pt;line-height:100%'>طريقة سريعة لحفظ كتاب الله العزيز</span>

<span style='font-size:14pt;line-height:100%'>تعرف على عباقرة الكذب</span>

#16

الله يقويك ان شاء الله ويسهل دربك

بس غريبه انه شغال يبحث عندك وعندي ما يبحث إلا على امتداد txt و html !

ما ادري انت وضعت اداة ocx او اضفت اي شي!

اهم شي عندي يا اخ عامر انه يطلع اسم الملف سوا كان داخل zip او doc وما إلى ذلك

لاحظت في البرنامج انني اذا حاولت ان اوقف البحث لا استطيع لازم يخلص البرنامج البحث

بينما في الكود الاصلى الموجود في اول الموضوع يمكنك ان تنقر على زر ايقاف البحث متى تريد

وشكرا جزيلا لك

#17

للرفع

#18

رفع الله من قدرك يا booknet

ان شاء الله ما نسانا اخونا عامر :)

#19

من طول الغيبات راح يجيب الغنايم يا استاذ عامر :)

في انتظارك __016

#20

__024

لا إله إلا الله

__024

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

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