طلب مساعدة

[رانيا حسن]

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

[عبود عبود]

أظن أنه سيكون نفس السؤال هنا :

http://www.abc4web.net/vb/showthread.php?t=33371


يمكنك مراجعة قراءة هذا الموضوع

[رانيا حسن]

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

[عبود عبود]

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

ثم ارفع الملف المفتوح حتى يتم وضع التعديل المناسب له


كل عام وأنتم بخير بمناسبة عيد الفطر المبارك:abc_152:

[ثامر أبو بلقيس]

بأي قرص من الاقراص
ما القصد من الاقراص؟؟!
توضيح مفهوم القرص سيساعد الزملاء لتقديم الحلول لأن الأمر سيجر إلى تساؤلات عدة
أهمها صيغة حفظ الأقراص ان كان القصد منه تجميعية فقد يتعدر الانجاز في الصيغ التنفيدية + المسارات والتسميات إن كان الحفظ بصيغة فولدر
----------------
على كل موفق فقط أحييت أن أخبرك بأنك تطالب بإنجاز ظروفه تعرفه أنت .. وحتى لا يبق مطلبك يعاد في كل مرة بطرق مختلفة بدون جدوى فتوضيح الطلب
قد يفيد للخروج من الدوران حول انجاز مشكلته صياغة الطلب و ترابط العمل من القرص الام للأقراص الفرعية و خاصة التسميات
---------------
عيد مبارك ... تدخلي لا يعني الانجاز هو للتوضيح لا غير :abc_023:

[ثامر أبو بلقيس]

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

الفكرة ممتازة

[احمد كبه]

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

[ثامر أبو بلقيس]

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

لم أفهــــم عن أي فكرة تحدثني و مقتيسة .. وضح طلبك في موضوع مستقل وسأكتب لك الأكواد
وهدا حتى لا تتداخل المواضيع مع موضوع الأخت رانيا أليس كدلك ؟

[احمد كبه]

العفو استاذ ثامر هو سؤالي يشبه الى حد كبير سؤال الاخت رانيا

[رانيا حسن]

السلام عليكم ... الصراحة الفكرة الي اردتها هي لقيتها في احدى اقراص المكتبات لقيت ملف txt يحوي اسماء الكتب
وعند الدخول الى البرنامج واعمل بحث لم يوجد الكتاب في القرص الحالي ولكن يمكنك ايجاد الكتاب في القرص الثاني
وهو نفسه مكتوب في ملف الtxt الي مدرج ملفات القرص
ومعلومة
القرص لم يكن مبرمج بالاوتوبلاي .... بالفيجوال بيسك
ارجو ان تكون قد وضحت الفكرة
اعتقد سوف اجد الحل عندكم

[ثامر أبو بلقيس]

فهمت الان جيدا الفكرة المقتبسة من عمل بلغة أخرى

فالصورة الان أوضح

[ثامر أبو بلقيس]

بالتوفــــــــــــيق:abc_152:

[رانيا حسن]

نعم استاذ ثامر
فهل من حل

[ثامر أبو بلقيس]

كتبت الحل ثم مسحته كوني رأبتك متواجدة أثناء كتابته
و سجلت خروجك دون التعليق بالنقد أو بالايجاب فمسحته
على كل سأعيد كتابته الان

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
ضع 5 ملفات نصية في التجميعية الرئيسية التي
تضم البحث و بالضبط في المجلد Docs

http://www.3rbz.com/uploads/fdf9228383fe1.png

لاحظ الملفات خمسة بقدر عدد الاقراص وتسمياتها مرتبة
في كل ملف نصي نكتب عناوين الكتب التي توجد في القرص
ليتم البحث وذلك بواسطة Input1 تكتب فيه عنوان الكتاب
وزر البحث مكتوب فيه الكود :
db = ""
kiss = Input.GetText("Input1");
for x =1,5 do
txt=TextFile.ReadToTable(_SourceFolder.."\\AutoPlay\\Docs\\"..x..".txt");
if txt ~= nil then
for i,y in pairs(txt) do
bel= String.Compare(kiss,y );
if bel== 0 then
db=db.."il est en ligne".. i.."\t\t".."CD"..x.."\r\n"
end;end;end;end
Dialog.Message("le résultat",db);
حيث سيحدد تواجد الكتاب و في أي قرص و السطر المكنوب فيه عنوان الكتاب في الملف النصي
يمكن تهديب الكود حسب ما تريد
ملاحظة :
مادام البحث يتم تقريبا من بيانات محددة
توجد عدة طرق لتنفيذ ذلك من حيث التخزين او العناصر المستغلة

فقط:abc_152:

[ثامر أبو بلقيس]

رابط ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااا (http://www.abc4web.net/vb/index.php)

[ربيع]

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

[رانيا حسن]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
استاذ ثامر اني ممنونة منك ودوما انت لا تخيب ظني و الحقيقة انني اخجل كثيرا منك لكثرة اسئلتي
اما بخصوص تسجيل الخروج فهي لظروف قاهرة خارجة عن ارادتي

[رانيا حسن]

شكرا جزيلا استاذ ثامر حل اكثر من رائع ممتاز جدا وربنا يجعلها في ميزان حسناتك
واني بدوري عدلت على الكود و اصبحت تظهرالرسالة (يمكنك ايجاد الكتاب في القرص1 مثلا cd1 ) ولكن كيف اذا كان الكتاب غير موجود في اي من الاقراص ان عدلت على الكود و اصبحت الرسالة تتكرر في حالة عدم وجود الكتاب 5 مرات

[ثامر أبو بلقيس]

db = ""
kiss = Input.GetText("Input1");
for x =1,5 do
txt=TextFile.ReadToTable(_SourceFolder.."\\AutoPlay\\Docs\\"..x..".txt");
if txt ~= nil then
for i,y in pairs(txt) do
bel= String.Compare(kiss,y );
if bel== 0 then
db=db.."il est en ligne".. i.."\t\t".."CD"..x.."\r\n"
end;end;end;end
if db~= "" then
Dialog.Message("le résultat",db);
else
Dialog.Message("le résultat","Le livre n'existe pas");
end

[رانيا حسن]

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