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

**عبود عبود عبود عبود** · 28-01-2015, 11:02 PM

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

طبعا اخي العزيز لم افهم
for i, d
اليس ------d---- مفروض عدد الاسطر في الملف

:abc_086: لا ليس عدد الأسطر

-----------

من المعروف أن فور "for" هى دالة تستخدم لتكرار عملية ما وطبعا يوجد دوال أخرى ولكننا نتكلم الآن عنها .
()pairs هى وظيفة تستخدم لإعطاء أزواج من " مفتاح و قيمة " لكل عنصر من عناصر الجدول .
من المعروف أن الجدول هو هو المصفوفة .
لماذا نريد أن نستخدم الوظيفة pairs مع جدول ؟ لأننا لا نعرف ترتيب العناصر داخل هذا الجدول " مش عارف مين فين "

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

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

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

فكان الآتى :

for i, d in pairs(result) do

حيث i هو المفتاح مهما تغير إسمة أو تلون بأى حرف أو لبث أى ثوب أو كتب بأى شكل أو إسم ....... يعنى هنقفشك يا معلم كدة كدة إنت معروف من مكانك دائما يكون المفتاح فى حالة إستخدام الوظيفة pairs هو التالى لكلمة التكرار for .
وهنا نحن نقرأ ملف تكست إذن هو مكتوب كأسطر إذن المفتاح هو السطر أو رقم السطر .

ودائما تكون القيمة معبر عنها بأى حرف أو إسم بعد إستخدام فاصلة , .

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

إذن قمت بالإشتراط على عملية التكرار حتى يظهر العرض المطلوب فقط إذن كان من الممكن وضع أى شرط آخر على سبيل المثال :
عدد السطور المخزنة فى ملف تكست كان 15 سطر وأريد عرض آخر سطرين فقط فإن الشرط سيكون :

كود PHP:


--
result = TextFile.ReadToTable("AutoPlay\\Scripts\\Scintilla.lua");
s=""
for i, d in pairs(result) do
  if i>13 and i<=15 then
   s=s.."\r\n"..d ;
  end
end
Input.SetText("Input1", s);

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

**عبود عبود عبود عبود** · 28-01-2015, 11:05 PM

تحياتى لك أخى ثامر لإثراء الموضوع ولكن هذا الشرح أو التوضيح الذى تضعة "للمحترفين"

طبعا مرحبا به أن يوضع هنا للإثراء فـــ بالفعل أنا إستفدت منه

**ثامر أبو بلقيس ثامر أبو بلقيس** · 28-01-2015, 11:54 PM

بارك الله فيك أستاذ عبود على نبل أخلاقكم

هاك حل أخر أخي ياسر باستعمال
التعبير for i, d in pairs(result) do

كود PHP:


result = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");

for i, d in pairs(result) do 

y = Math.Max(0, i);end

for t =y,(y+1)-5,-1 do

Dialog.Message("Notice", result[t]);

end

نلتقي بود

**ياسرهتهت ياسرهتهت** · 29-01-2015, 03:39 AM

شـــكر وتقدير

بسم الله الرحمن الرحيم
شكراً لك استاذي الفاضل

ابو بلقيس

علي هذا الكود الاحترافي

كود PHP:


my_table = {};  

bel = io.input("AutoPlay\\Docs\\1.txt")  

x =0 

repeat 

k = bel:read ("*l")  

if  k then  

x=x+1 

Table.Insert(my_table, x, k); 

end  

until not k  

bel:close () 

for i =(x+1)-5,x do 

Dialog.Message("Notice", my_table[i]); 

end

تم التطبيق بنجاح

وهو كود احترافي صعب عليه فهمه

-------------------------------------------------
اما الكود الثاني

كود PHP:


x = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt"); 

for i =table.getn(x),(table.getn(x)+1)-5,-1  do 

Dialog.Message("Notice", x[i]); 

end

ايضا كود رائع تم التطبيق بنجــــــــــــــاح
وهذا استوعبته وفهمته تماماً
بارك الله فيك استاذي الكريم

**ياسرهتهت ياسرهتهت** · 29-01-2015, 03:57 AM

شكروتقدير

بسم الله الرحمن الرحيم
شكراً استاذ عبود علي الشرح والايضاح
وتبسيــــــــط الفكــــــــــــــــــــر ة
لقد وصلت المعلومة وفهمت هذا الكود

كود PHP:


result = TextFile.ReadToTable("AutoPlay\\Scripts\\Scintilla.lua");

s=""

for i, d in pairs(result) do

  if i>13 and i<=15 then

   s=s.."\r\n"..d ;

  end

end

Input.SetText("Input1", s);

وتم التطبيق بنجــــــــــــــاح
===========
وهذا ملف مفتوح

http://www.gulfup.com/?18rIIU

يحتوي على هذا الكود و الاكواد التي تفضل بها الاستاذ ابو بلقيس

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

**ياسرهتهت ياسرهتهت** · 29-01-2015, 04:10 AM

شكروتقدير

هاك حل أخر أخي ياسر باستعمال
التعبير for i, d in pairs(result) do
كود PHP:
result = TextFile.ReadToTable("AutoPlay\\Docs\\1 .txt");
for i, d in pairs(result) do
y = Math.Max(0, i);end
for t =y,(y+1)-5,-1 do
Dialog.Message("Notice", result[t]);
end

======================================
شكراً جزيلاً استاذي العزيز
علي هذا التنوع والاثراء والاهتمام
زادك الله علماً ونور
تم التطبيق بنجـــــــاح
تقبل تحياتي وتقدير واحترامي

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-01-2015, 01:33 PM

موفق أخي ياسر ... طالما اخترت بناء التساؤلات
كوسيلة للمعرفة وترسيخ المعلومة ستصل بإذن الله

موفق

**فرح صالحي فرح صالحي** · 29-01-2015, 03:22 PM

بصراحة اردت التطبيق لكن ما عرفتش الشمال من الجنوب
لازم اخواني شرح ليس للمبتدئين ولكن للحضانة اي تحت المبتدئين
يعني متى علينا استعمال الحدث on preload
on show
on close
on timer الى آخره ....
بعد فهم هذه الاحداث نتكلم عن الاكواد وتوضيفها
ثم بعد ذلك نمر الى بناء الاكواد .
هذا اذا كانت الدروس موجهة الى صفوف الحضانة مثلي .
تقبلوا ملاحظاتي التي كتبتها في لحظة صدق مع نفسي قبل ان تكون معكم
والسلام عليكم ورحمة الله وبركاته

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-01-2015, 11:34 AM

أخي فرح :

أكتب الأكواد في on preload عندما أريد أن تنفذ هذه الأكواد قبل تكوين
العناصر على الصفحة
----------------------------------------------------------

أكتب الأكواد في on show عندما أريد أن تنفذ هذه الأكواد عند
تكوين العناصر في الصفحة أي صارت الصفحة مكتملة و جاهزة للاستعمال
وهذا الكود ينفذ مرة واحدة - لكن لا يمنع عملية تخزين قيم -
-------------------------
أكتب الأكواد في on close عندما أريد أن تنفذ هذه الأكواد بعد
مغادرة الصفحة باتجاه صفحة اخرى كأن تخزن قيمة أو اظهار حوار "رسالة " , حذف ملف , تشغيل
ملف .... الخ
----------------------------------------
أكتب الأكواد في on timer واضح أن كتابة الأكواد هنا
متعلق بالزمن قد تكتب هنا أكواد تتكرر أو تعمل ثم تتوقف في زمن معين
أو توقيفها ثم تشغيلها من جديد .... الخ
-----------
باختصار مع مرور الوقت و كثرة التجارب تصبح بالمنطق تختار الحدث
المناسب لتنفيذ أكواد مشروعك
---- عد إلى قرص دليل المبرمج للاستاذ كريم
اجعل من تلك الشروحات بالذات نقطة بداية لك ---

نصيحة كتبتها لك بصدق

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-01-2015, 01:39 PM

موفق

**فرح صالحي فرح صالحي** · 30-01-2015, 02:55 PM

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

نصيحة كتبتها لك بصدق[/QUOTE]

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

. لك مني أجمل تحية .

**عبود عبود عبود عبود** · 17-02-2016, 12:24 AM

تمت مراجعة التحقق من ظهور صور الشرح بالشكل المناسب ونقل الصور على سيرفر آخر حفاظا على ظهورها بالشكل المناسب

17 \ 2 \ 2016

تحياتى

**نجوم ليبيا نجوم ليبيا** · 20-02-2016, 12:21 PM

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

**عبود عبود عبود عبود** · 20-02-2016, 10:26 PM

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

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

بالطبع يمكن ويمكن مع كافة مواضيعى عندما تجد فيها ما يمكن أن يفيد أكبر عدد ممكن من راغبى التعلم للبرنامج

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

سلسلة شروحات الأكشن سكريبت رقم 5 التعامل مع الملفات النصية TextFile

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك