إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

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

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

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

    السلام عليكم ورحمة الله وبركاته
    كيف اقوم بعمل تكرار مسلسل بالترتيب
    توضيح :
    عندى 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
    فكيف اختصر العملية لان عدد الملفات كبيير
    وجزاكم الله خيرا

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

    تعليق


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

      الكود سيؤدي إن شاء الله ما ترغب لاحظ أني عرضت النتائج في حوار مرتبة
      هذا الحوار تستطيع أن يكون بدل منه ملف نصي جديد خاص بالنتائج و من ثمة استدعي
      النتيجة التي ترغب حسب طبيعة المشروع أو كيفية الاستغلال لديك
      كود PHP:
      belkiss=""
      for i=1,Table.Count(File.Find("C:\\Program Files\\""u".."*.txt"falsefalsenilnil)) 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 معاها رقم سيتم الاستخلاص بالترتيب اذ توفر الشرط
      موفق

      تعليق


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

        تعليق


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

          تعليق


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

            موفق

            تعليق


            • #7
              عند تنفيذ الكود ومع وجود الملفات فى مسارها الصحيح ووجود قيم بالسطور الثلاث الاولى فى كل ملف
              تظهر الرسالة التالية

              السطر الرابع هو
              كود PHP:
              x1=String.ToNumber(result[1]); 
              اتوقع والله اعلم وجود مشكلة فى السطر الثالث
              بارك الله فيك

              تعليق


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

                تعليق


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

                  تعليق


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

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

                    أخي :

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

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

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

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

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


                    موفق

                    تعليق


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

                      أرجو التأكد

                      تعليق


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

                        تعليق


                        • #13
                          المشاركة الأصلية بواسطة ابا تراب مشاهدة المشاركة
                          جزاك الله خيرا بالفعل
                          الخلل بسبب ملف u.txt
                          بدون رقم
                          تم حذفة ونجحت الفكرة
                          جزاك الله خيرا
                          اسال الله ان يوفقك
                          وفقنا الله للخير سعدت لوصولك لمكمن الخلل

                          موفق

                          تعليق

                          مواضيع تهمك

                          تقليص

                          المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                          المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                          المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                          المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                          المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                          يعمل...
                          X