[ تمت الإجابة ]هل يمكن استدعاء كود مخزن في ملف خارجي لبرنامجك ؟

ekseer كتب:

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

لدي سؤال حيرني لعدة شهور ولم استطع تنفيذ الحد الأدنى منه ؟

ربما كان السؤال غريبا ( لكن لقناعتي أنه لاحدود للإبداع البرمجي )

لذا لازم أطرح السؤال وأستنتج آراء الجميع

السؤال يقول

لدي تعليمية برمجية مخزنة في ملف نصي txt ( كود) كهذا

MsgBox "Hi Access", _
	vbInformation + vbOKOnly, _
	"ArabTeam2000"

هل يمكن استدعاء هذا الكود بدون مانكتب كوده في محرر الـVBA

بأي طريقة كانت .. مثلا نعمل متغير للسطر البرمجي في الملف النصي

ثم نستدعيه .. بس لم تضبط معاي أبد ...... هل أحد منكم لديه فكره ؟

أخوكم : EKSEER

بكل تأكيد اخي اكسير الحياه ( ابو عبدالله )

فلا حدود للإبداع البرمجي

لهذا فقد عملت برنامج مفصل على قدك

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

MsgBox "Hi Access", _
	vbInformation + vbOKOnly, _
	"ArabTeam2000"

كما في الملف المرفق النصي مع قاعدة البيانات ويجب ان يكون بهذا الشكل وبدون اي اضافات او بهارات ( يعني اتركه كما هو سادة ) لأنني قد وضعت بداية الكود ونهايته في البرنامج .

1.اخترالملف النصي من اي مكان من جهاز الكمبيوتر وتأكد ان هذا الملف النصي هو كود صحيح ( يعني ما تحط اي ملف نصي وتقول ما اشتغل الكود ) .

2. عدم ترك حقل مربع النص فارغ بل يجب ان يكون به مسار الملف النصي وإلا ستظهر لك رساله تخبرك ان مسار الملف النصي فارغ .

3. بعد اختيار الملف النصي الذي يوجد به كود صحيح قم بالضغط على زر الأمر ( سبحان الله و بحمده .. سبحان الله العظيم ) فمع كل ضغطة زر يكتب لك من الأجر والحسنات ان شاء الله تعالى وستقوم الأكواد البرمجية في البرنامج بمعالجة الأمر خلال ثانية واحده وتظهر لك الكود البرمجي كما في الكود الذي وضعته انت وهو عبارة عن رساله ترحيب .

وهذا هو البرنامج بناء على طلبك

zaOpenAnyCode.rar

بالتوفيق

السلام عليكم

أختي أم عهود .. لاحدود لعقلك النيّر ( بسم الله ماشاء الله ولاقوة الا بالله )

أرفع يدي أحتراما لك معترفا بفضلك .. جزاك الله خير .. فهمت الطبخة من أولها لأخرها

الأن :lol: لم يخطر ببالي أبدا تحويل ملف txt الى bas ولكنه الابداع الذي لاحدود له

لك كل الشكر وجعلك الله من أهل الفردوس الأعلى ووفقك الله ورعاك

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

منها تنفيذ جملة SQL

منها تشغيل استعلام

ومنها فتح نموذج

ومنها تنفيذ كود به متغيرات ....... وجميعها نجحت نجاحا باهرا .. فلك كل الشكر

أخوك : أبو عبدالله

بارك الله بك اخي ابو عبدالله

والشكر لله اولا وأخيرا

واحمد الله انك عرفت سر البرنامج وعلى ماذا يرتكز بالدرجة الأولى حيث انني كنت شايله هم الشرح لكل الأكواد مع انها سهله وبسيطه ولكنها متداخله في بعضها البعض فلا يتم تنفيذ شيء قبل التأكد من ان الحدث الذي قبله قد تم تنفيذه بالفعل ولو تتبعت سير الكود البرمجي وطريقة تنفيذ الأحداث لعرفت اين يكمن السر وسأشرح لك بطريقة مختصره آلية تنفيذ الكود :

1. يتم جلب مسار الملف النصي اولا

2. يتم استقطاع واستخراج الملف الأساسي من المسار فيبقى فقط اسم الملف zaMsgBox.txt وهذا يسري على جميع الملفات النصية حيث يوجد داله تقوم بإستخراج الملف النصي لوحده من المسار ومن اجل ان لا نفقد اسم الملف الأصلي هذا فإننا نصرح عنه انه الملف القديم في الكود

3. ثم تاتي دالة تغيير اسم الملف المستقطع وتغير اسمه الى zaMsgBox.bas حيث لو قمت بفتح المجلد المحتوي على الملفات النصية اثناء الضغط على زر الأمر فسوف تشاهد ان الملف تحول الى كود vba بصيغة bas.

4. انتهينا من اكبر عقبه وبقي عندنا ان نقوم بإستيراد هذا الموديول الى قاعدة البيانات ووضعه في الوحدات النمطية وسيكون موديول اساسي لوحدة نمطية وليس في نموذج .

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

6. الآن اصبح لدينا كود او وظيفه جاهزه فما علينا إلا ان نقوم بإستدعاءها كأي كود قمنا بكتابته لهذا لو تلاحظ انني كنت اركز في بداية وضع المثال ان يكون الكود صحيحا وخالي من الأخطاء البرمجية .

7. بعد استدعاء الدالة سيتم إظهار ما يحتويه الكود ويتم تنفيذه مباشره سواء كان رساله او فتح نموذج او تشغيل استعلام او تشغيل ماكرو او اي كود جاهز .

8. بعد تنفيذ المطلوب من الكود وعند الضغط على موافق اذا كان في رساله او انهاء ما تم فتحه فسنعود بعملية عكسيه وهي :

*. حذف الوحدة النمطية المنشأة او المستورده من البرنامج استعدادا لإستقبال كود آخر او وحده نمطية جديده .

*. ارجاع اسم الملف القديم الى اصله وهو بصيغة txt بواسطة دالة تغيير الإسم . وبهذا يكون ملفك جاهز فيما لو اردت التطبيق عليه مره ثانية .

وكل هذا الكلام والشرح الطويل لا يستغرق سوى اقل من ثانية ولا تلاحظ كل ما يحدث بداخل الكود فكل ما تلاحظة النتيجة النهاية فقط .

وبهذا نكون قد وصلنا الى نهاية الشرح

وبالتوفيق اخي ابو عبدالله

شكرا على هذا الشرح المبارك وفقك الله

سيفتح لنا أفاقا جديدة وبعون الله ستجدين نتائج نعليمك للجميع واقعا ملموسا

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

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

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

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

اخي اكسير ارجو الا تتوقف عن هذه الاستئلة التى تفتح لنا مثل هذه الافاق فنحن فعلا نتعلم من اسئلتك

ماشاء الله عليكى يا أم عهود بارك الله فيكى