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

**ياسرهتهت ياسرهتهت** · 08-10-2018, 07:37 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

تمام الله ينور عليك

أستاااااااااااذ

--========---=======----==========------

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

كود PHP:


Find = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\AL_HESAPAT\\", "*.ini", true, false, nil, nil); 

                     if Find~=nil then 

                       for i, s in pairs(Find) do 

                          t_Section = INIFile.GetSectionNames(s);

                             if t_Section then 

                                 for i , n in pairs(t_Section) do

                                 

                                    t = INIFile.GetValue(s, n, "NEME");

                                    if t == txt  then

                                     INIFile.DeleteSection(s, n);

                                    end

                                 

                                end

                             end   

                                

                       end 

                     end

استاذ عبود في نفس الكود اريد لو ان القيمة المخزنه في "NEME" رقم كيف اجمعها ؟

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

--------

**عبود عبود عبود عبود** · 09-10-2018, 01:21 PM

كود:

if tonumber(NAME)==15 then  ----------   end

إذا كانت القيمة الرقمية المتحصل عليها تساوى 15 مثلا إذن إفعل كذا

**عبود عبود عبود عبود** · 09-10-2018, 01:22 PM

لو إستعصى الأمر عليك أعدل لك الكود كاملا

**عبود عبود عبود عبود** · 09-10-2018, 05:57 PM

مرحبا أخى ياسر

كود:

--
num = 0;
Find = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\AL_HESAPAT\\", "*.ini", true, false, nil, nil);  
if Find~=nil then  
   for i, s in pairs(Find) do  
        t_Section = INIFile.GetSectionNames(s); 
        if t_Section then  
           for i , n in pairs(t_Section) do 
               t = INIFile.GetValue(s, n, "NEME"); 
               if tonumber(t) >= 1  then 
                   --INIFile.DeleteSection(s, n); 
                   num = num + t;
               end                   
           end 
        end                             
   end  
end
Dialog.Message("total","total number = "..num);

سوف تلاحظ فى الكود وضعت الشرط هذا :

كود:

if tonumber(t) >= 1  then

وهو معناه أن إذا كان الفالى الموجود فى القيمة NEME بعد تحويلة إلى رقم بواسطة tonumber أكبر من أو يساوى الواحد 1 إذن هذا معناه أن قيمة NAME هى قيمة رقمية .

كيف عرفت أن القيمة رقمية ؟؟ أضف إلى معلوماتك أن تحويل أى قيمة سواء نص أو رقم أو رقم نصى .... يتم بواسطة التعليمة البرمجية tonumber أى إلى رقم
وهنا إذا كان المحول هو عبارة عن نص حروف أو حرف فإن الناتج هو صفر 0
أما إذا كان المحول هو رقم فى صورة نص يعنى هكذا "125" دة رقم ولكنه فى وسط علامة تنصيص إذن هو نص ...... فإنة إذا ستعملنا التحويل لة هكذا ("125")tonumber إذن الناتج لة هو تحويلة إلى قيمة رقمية كما هو 125 كرقم

جرب هذا لتتضح لك الأمور :

كود:

a = tonumber("abood")
Dialog.Message("total",a);

تكون النتيجة هى صفر .

وهكذا ...........

طبعا التعامل مع ملفات الأى إن أى يكون الريتيرن المخزن فيها هو نصى وليس رقمى لذلك إستعملت التعليمة tonumber للتحويل إلى رقم .

**ياسرهتهت ياسرهتهت** · 09-10-2018, 07:37 PM

بسم الله الرحمن الرحيم
شكرا جزيلا استاذ عبود هذا هو المطلوب

من امس وانا احاول ولم ان اجح ههههه

الف الف شكراااااااااا

**ياسرهتهت ياسرهتهت** · 09-10-2018, 07:41 PM

هل لوكانت القيمة بالسالب لا يجمعها مع الباقي؟

تمام استاذ عبود فقط حذفة الشرط التساوي او اكبر من الواحد وصار يجمع الكل ---

كود PHP:


num = 0;

Find = File.Find(Data , "*.ini", true, false, nil, nil);  

if Find~=nil then  

   for i, s in pairs(Find) do  

        t_Section = INIFile.GetSectionNames(s); 

        if t_Section then  

           for i , n in pairs(t_Section) do 

               t = INIFile.GetValue(s, n, "pR_PAKE"); 

               --if tonumber(t) >= 1  then 

                   --INIFile.DeleteSection(s, n); 

                   num = num + t;

               --end                   

           end 

        end                             

   end  

end

Dialog.Message("total","total number = "..num);

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

**عبود عبود عبود عبود** · 09-10-2018, 08:09 PM

هههههههههه إذن لم تفهم أهمية وضع التعليمة tonumber يا خسارة كلامى اللى فات

**ياسرهتهت ياسرهتهت** · 09-10-2018, 08:16 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

هههههههههه إذن لم تفهم أهمية وضع التعليمة tonumber يا خسارة كلامى اللى فات

انا فهمت انها تخبر البرنامج انه يتعامل مع ارقام وليس نصوص ؟
وانا حذفت الشرط لانني اريده ان يجمع كل القيم المخزنه في الفليم سالب او موجب

بوجود الشرط يحدث خلل لا يتعامل مع الناقص ؟

ما الحل ؟

**عبود عبود عبود عبود** · 09-10-2018, 08:22 PM

كود:

num = tonumber(num) + tonumber(t);

بدون الشرط إف

حتى إذا ما وجد قيمة حرفية " نصية " مسجلة بالخطأ مثلا أو بالعمد يعمل على تحويلها ويكون نتيجة تحويلها صفر 0 يعنى عادى يمكن أن يجمعها ولا تؤثر على النتيجة فيما بعد

أليس كذلك ؟؟؟؟ هههههههههههه

**عبود عبود عبود عبود** · 09-10-2018, 08:27 PM

كود:

--
num = 0; 
Find = File.Find(Data , "*.ini", true, false, nil, nil);   
if Find~=nil then   
   for i, s in pairs(Find) do   
        t_Section = INIFile.GetSectionNames(s);  
        if t_Section then   
           for i , n in pairs(t_Section) do  
               t = INIFile.GetValue(s, n, "pR_PAKE");  
               --if tonumber(t) >= 1  then  
                   --INIFile.DeleteSection(s, n);  
                  num = tonumber(num) + tonumber(t);
               --end                    
           end  
        end                              
   end   
end 
Dialog.Message("total","total number = "..num);

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

**ياسرهتهت ياسرهتهت** · 09-10-2018, 08:27 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

كود:

num = tonumber(num) + tonumber(t);

بدون الشرط إف

حتى إذا ما وجد قيمة حرفية " نصية " مسجلة بالخطأ مثلا أو بالعمد يعمل على تحويلها ويكون نتيجة تحويلها صفر 0 يعنى عادى يمكن أن يجمعها ولا تؤثر على النتيجة فيما بعد

أليس كذلك ؟؟؟؟ هههههههههههه

-

----------------------------------
شكرا وبارك الله فيك على هذه المعلومات المفيدة والقيمة

**ياسرهتهت ياسرهتهت** · 14-10-2018, 01:08 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

كود:

--
num = 0; 
Find = File.Find(Data , "*.ini", true, false, nil, nil);   
if Find~=nil then   
   for i, s in pairs(Find) do   
        t_Section = INIFile.GetSectionNames(s);  
        if t_Section then   
           for i , n in pairs(t_Section) do  
               t = INIFile.GetValue(s, n, "pR_PAKE");  
               --if tonumber(t) >= 1  then  
                   --INIFile.DeleteSection(s, n);  
                  num = tonumber(num) + tonumber(t);
               --end                    
           end  
        end                              
   end   
end 
Dialog.Message("total","total number = "..num);

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

-=-------------------

hاستاذ عبود اريد الحصول على القيمة الاوله t والقيمة الاخيرة كيف ؟؟؟

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

عبد الهادي بهاب · 15-10-2018, 10:48 AM

السلام عليكم منورين الاساتذة الكرام
...........
مشكور على الموضوع و على مداخلات الاخوة ....

ممكن محاولة ... من اجل السؤال الاخير
نستخرج القيمة الاولى من خلال اول عنصر في الحلقة التكرارية i=1 و من اجل العنصر الاخير نضع الشرط i=# t_Section

اي ممكن يكون الكود على الشكل التالي

كود PHP:


num = 0; 

Find = File.Find(Data , "*.ini", true, false, nil, nil);   

if Find~=nil then   

   for i, s in pairs(Find) do   

        t_Section = INIFile.GetSectionNames(s);  

        if t_Section then   

           for i , n in pairs(t_Section) do  

               t = INIFile.GetValue(s, n, "pR_PAKE");  

               if i == 1  then ele1 =  tonumber(t) 

               elseif  i == #t_Section  then eleF =  tonumber(t)

               else 

               --INIFile.DeleteSection(s, n);  

                  num = tonumber(num) + tonumber(t);

               end                    

         end  

      end                              

   end   

end 

Dialog.Message("total", " First element = "..ele1.."\r\n".. " Last element = ".. eleF.. "\r\n".. "total number = "..num);

**عبود عبود عبود عبود** · 15-10-2018, 01:52 PM

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

تمام كده
كما قال الأستاذ عبدو

**ياسرهتهت ياسرهتهت** · 15-10-2018, 04:50 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

السلام عليكم منورين الاساتذة الكرام
...........
مشكور على الموضوع و على مداخلات الاخوة ....

ممكن محاولة ... من اجل السؤال الاخير
نستخرج القيمة الاولى من خلال اول عنصر في الحلقة التكرارية i=1 و من اجل العنصر الاخير نضع الشرط i=# t_Section

اي ممكن يكون الكود على الشكل التالي

كود PHP:


num = 0; 

Find = File.Find(Data , "*.ini", true, false, nil, nil);   

if Find~=nil then   

   for i, s in pairs(Find) do   

        t_Section = INIFile.GetSectionNames(s);  

        if t_Section then   

           for i , n in pairs(t_Section) do  

               t = INIFile.GetValue(s, n, "pR_PAKE");  

               if i == 1  then ele1 =  tonumber(t) 

               elseif  i == #t_Section  then eleF =  tonumber(t)

               else 

               --INIFile.DeleteSection(s, n);  

                  num = tonumber(num) + tonumber(t);

               end                    

         end  

      end                              

   end   

end 

Dialog.Message("total", " First element = "..ele1.."\r\n".. " Last element = ".. eleF.. "\r\n".. "total number = "..num);

----------------------------------------------------

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

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

هل يمكن بعلومية ValueName حذف Section

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك