كيفية عمل تكرار مسلسل

[ابا تراب]

السلام عليكم ورحمة الله وبركاته
كيف اقوم بعمل تكرار مسلسل بالترتيب
توضيح :
عندى 250 ملف txt
اسمائهم بالترتيب كالتالى :
u1.txt
u2.txt
u3.txt
u4.txt
.....
من u1.txt
الى u250.txt
واريد تنفيذ هذه العمليه عليهم جميعا كالتالى:
result = TextFile.ReadToTable("C:\\Program Files\\u1.txt");
x1 = result[1];
x2 = result[2];
x3 = result[3];
if x1 <=150 then
x4 = x1+x2+x3
end
-----------------------------------------------------------
result = TextFile.ReadToTable("C:\\Program Files\\u2.txt");
x1 = result[1];
x2 = result[2];
x3 = result[3];
if x1 <=150 then
x4 = x1+x2+x3
end
-----------------------------------------------------------
result = TextFile.ReadToTable("C:\\Program Files\\u3.txt");
x1 = result[1];
x2 = result[2];
x3 = result[3];
if x1 <=150 then
x4 = x1+x2+x3
end
-----------------------------------------------------------
result = TextFile.ReadToTable("C:\\Program Files\\u4.txt");
x1 = result[1];
x2 = result[2];
x3 = result[2];
if x1 <=150 then
x4 = x1+x2+x3
end




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

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

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

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

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

الكود سيؤدي إن شاء الله ما ترغب لاحظ أني عرضت النتائج في حوار مرتبة
هذا الحوار تستطيع أن يكون بدل منه ملف نصي جديد خاص بالنتائج و من ثمة استدعي
النتيجة التي ترغب حسب طبيعة المشروع أو كيفية الاستغلال لديك
belkiss=""
for i=1,Table.Count(File.Find("C:\\Program Files\\", "u".."*.txt", false, false, nil, nil)) do
result = TextFile.ReadToTable("C:\\Program Files\\u"..i..".txt");
x1=String.ToNumber(result[1]);
x2=String.ToNumber(result[2]);
x3=String.ToNumber(result[3]);
if x1 <=150 then
x4 = x1+x2+x3
belkiss=belkiss..x4.."\r\n"
end
end
---- لمعاينة النتائج ----
Dialog.Message("Notice", belkiss);

ملاحظة لا يهم عدد الملفات النصية 250 أو أكثر فقط يكون تسميته u معاها رقم سيتم الاستخلاص بالترتيب اذ توفر الشرط
موفق :abc_138:

[ابا تراب]

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

[ابا تراب]

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

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

حسب مشاركتك :
ملفات نصية موجودة في الــ Program Files
هذه الملفات تأخذ تسميات u3 - u2 - u1 .....الخ
في هذه الملفات قيم عددية تحت بعضها البعض " مصفوفة"
تريد جمع من كل ملف نصي القيم الثلاث الاولى "الأسطر الثلاث الأولى " شريطة اذا كانت القيمة الاولى من كل سطر أصغر أو تساوي 150 يتم الجمع
--------------------------------------------------------------
أخي تم بناء الكود بناء على معطيات السؤال و تجربته قبل وضعه و يعمل بشكل ممتاز:abc_088: و بدون أخطاء :abc_088:

موفق

[ابا تراب]

عند تنفيذ الكود ومع وجود الملفات فى مسارها الصحيح ووجود قيم بالسطور الثلاث الاولى فى كل ملف
تظهر الرسالة التالية
http://im85.gulfup.com/j9qtnu.jpg
السطر الرابع هو
x1=String.ToNumber(result[1]);

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

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

جرب ثانية أخي " أكيد خلل بسيط " كأن يكون في ملف نصي قيمة غير عددية
أو شيء من هذا القبيل

[ابا تراب]

اعتذر على الاطالة ولكن لم ينجح
هذا ملف تنفيذ الكود
http://www.3rbz.com/download29855.html
جربه فقط ستحتاج ملف txt او اكثر فى المسار المطلوب
مع اضافة ثلاث سطور بقيم عددية داخل كل ملف
اعتذر مرة اخرى على الاطالة

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

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

حاولت أن أحصل على رسالة خطأ مماثلة لحد الان لم أجد الا سببا واحدا لحدوث الخلل ؟؟

أخي :

الملفات النصية ضروري تبدأ من الملف u1 إلى غاية عدد الملفات بحيث يكون التعداد مرتب

بمعنى لابد أن يكون أول ملف نصي موجود باسم u 1 و اذا حدث و وجد عددا غير موجود فيحدث الخطأ

مثال عندنا ملفات نصية من u1 الى غاية u100 لكن في الوسط لا يوجد الملف u25 هنااا سيحدث خلل

مثال آخر : عندي ملفات نصية تبدأ من u2 وتستمر مرتبة يحدث خلل لان البداية تكون من u1

تصحيح معلومة : لايهم المحتوى يكون نصي أو عددي لانه لن يؤثر على اجراء العملية
اضافة أنه سيعتبر النص اذا كان في أول المستند بأنه قيمة أقل من 150 ويتم حساب المجموع


موفق :abc_138:

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

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

أرجو التأكد

[ابا تراب]

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

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

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

وفقنا الله للخير :abc_138: سعدت لوصولك لمكمن الخلل

موفق :abc_138: