طلب مساعدة

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

[hide]رابط ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااا[/hide]

[ربيع ربيع]

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

[رانيا حسن رانيا حسن]

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

[رانيا حسن رانيا حسن]

شكرا جزيلا استاذ ثامر حل اكثر من رائع ممتاز جدا وربنا يجعلها في ميزان حسناتك
واني بدوري عدلت على الكود و اصبحت تظهرالرسالة (يمكنك ايجاد الكتاب في القرص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 

[رانيا حسن رانيا حسن]

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