موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

[Free Doom Gaza]

:?::?: في كثير ناس مبتدئة :q::q:

ممكن تفهموا الناس وش فايدة هالكود وفي ايه بيستخدم

انسخ الكود و اعمل compile

لتعرف مافائدته :kmj-by0000 (72):


​

 

[yones7x]

بارك الله فيك يا الغالي لكن الان جميع الدالة في كود لا أعرف من صعب معرفة كيف يعمل هذا كود

طيب ما العمل الدالة
W_It
func

W_It هي أمر اختياري فمثلا اقدر اطرح Write_It / Expertise_write ...الخ

وهذا الأمر يتبع الـ func

راح اوضح لك الفكرة بشكل بسيط

أنا وضعت هذا الكود مثلا:

W_It("yones7x")
W_It("Expertise")

وهذا الكود اعلاه طبعا غير مفهوم من الاوتوات

ولكن لو طرحت دالة معينة انا اخترعتها لهذا الامر الغريب بحيث يصبح له عمل وكتبت في آخر الاكواد الي عملتها كذا

func W_It($READ)
;$READ=أي قيمة توضع بين قوسين عند المتغير الخاص بالـفانكشن وتعرفها للتطبيق عليها
;.....نضع أي متغيرات هنا ومتطلبات وأعمال لهذا الامر
EndFunc  ;بعد وضع هذا تخرج القيم والمتغيرات لتمثل الامر الذي اخترعناه بشرط أن يكون بين بداية الدالة حتى النهاية

 

[LINEZERO]

:king:


كم أدفع :kmj-by0000 (72):

دعواتي لك ولواديك :d:

بارك الله فيك ياغالي اشتغل برنامجي و لن أنسى لك مساعدتك ما حييت

جزاك الله خيرا وجعله الله في ميزان حسناتك

​

واياك ان شاء الله

وماتدفعه يكفي وزود .. ​

 

[LINEZERO]

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

شكراا للاخ بندر على متابعتة واهتمامة للموضوع والله يجزاه خير هو وباقي الاعضاء المساهمين

طلب:-أريد منكم كود مسح سطر معين كالاتي:-

$file = fileopen(@desktopdir&"\test.txt", 1)
 
filewrite($file, "السلام عليكم" & @crlf)
filewrite($file, "أريد منكم" & @crlf)
filewrite($file, "طلب" & @crlf)
 
fileclose($file)

يعني اريد كود فقط يمسح الكلام اللي كتبه فقط وما يدخل بالباقي:d:

مافهمت عليك

الي انت كاتب كود يكتب بعض الجمل بالمكره ...

هل تريد كود جديد يمسح ماكتبت !!​

 

[yones7x]

مافهمت عليك​

الي انت كاتب كود يكتب بعض الجمل بالمفكره ...​

هل تريد كود جديد يمسح ماكتبت !!​

أظن أنه يريد ذلك :i:

 

[yones7x]

ملاحظة مهمة يا إخوان

الـ Func هي في الحقيقة اختصار أكثر مما هي دالة

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

الـ func يختصر العملية

هذا كود كتابة 5 أرقام ومن ثم كتابة 3 أرقام والنتيجة بهذا الشكل

5

1
2
3
4
5


3

1
2
3

يكون الكود بدون func كذا:

$read=5
FileWrite("test.txt",$read&@CRLF&@CRLF)
For $i=1 To $read
 FileWrite("test.txt",$i&@CRLF)
Next
FileWrite("test.txt",@CRLF&@CRLF)
$read1=3
FileWrite("test.txt",$read1&@CRLF&@CRLF)
For $i=1 To $read1
 FileWrite("test.txt",$i&@CRLF)
Next

نلاحظ هنا أن الكود مكرر لما لا داعي له

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

هكذا الكود مع الـ Func:

Y0read("5")
Y0read("3")
Func Y0read($read)
 FileWrite("test.txt",$read&@CRLF&@CRLF)
 For $i=1 To $read
  FileWrite("test.txt",$i&@CRLF)
 Next
 FileWrite("test.txt",@CRLF&@CRLF)
EndFunc

نلاحظ هنا نفس العمل لكن بدون تكرار الاوامر

وهذه هي فكرة مبسطة عن الـ Func

تحياتي لكم :king:

 

[waget]

ملاحظة مهمة يا إخوان

الـ Func هي في الحقيقة اختصار أكثر مما هي دالة

الله يبارك فيك يونس إنت أصبت جزء من الحقيقة على قولتهم :d:

في الاتوات الدالة و الإجراء يعرفون بكلمة واحدة Func

مع إختلافهم ما أدري عن صحة تسميتي للمصطلحين لكن راح أوضحهم كمفهوم

الاجراء : هو جزء من الكود نقدر نقول في بلك منفصل عن الكود ألي يتنفذ ويتنفذ فقط وقت إستدعائه

زي ماضربت مثال إنت يستخدم للإختصار في الغالب .ولا يرجع قيمة.

الدالة : أيضاً بلك منفصل عن الكود ألي يتنفذ وينفذ في وقت إستدعائه

لكنها ترجع قيمة .. بإستخدام الكلمة المحجوزة return

:d:

هذا في لغاات البرمجة بصفه عامة .

لكن في الاتوات الوضع يختلف شوي ... الاجراء أيضاً يصنف على إنه دالة ليش ؟؟

لأنه يرجع قيمة وهي 0 بصورة دائمة .

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

هذا مفوهمي لها والله أعلم

سبب هذا مرونة الاتوات اللغات الثانية لازم تحدد إجراء أودالة

ولو دالة تحدد نوع القيمة الراجعه .

:king::king:
​

 

[waget]

​

ياسلام استاذ عبد الله هنا كيفك يا الغالي
:king:

​

:king:
بخير الحمد لله
​

 

[فدى الرسول]

هل اخواني يوجد اماكنيه جعل ملف غير قابل للحذف بواسطه كود معين !
​

 

[Ahmed Alqurashi]

مافهمت عليك

الي انت كاتب كود يكتب بعض الجمل بالمكره ...

هل تريد كود جديد يمسح ماكتبت !!​

:king: نعم,, اريد كود يمسح اللي كتبته فقط مثلا لو عندي مفكره مكتوب فيها كلام كثير اريد ان امسح كلام معين فقط :king:

أظن أنه يريد ذلك :i:

:king:

 

[black-wax]

هل اخواني يوجد اماكنيه جعل ملف غير قابل للحذف بواسطه كود معين !
​

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



#include <Process.au3>
_RunDOS ("attrib +s +h folder[/FONT]")



folder[/FONT]= مسار الملف أو الوثيقة

 

[waget]

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


[/FONT]
#include <Process.au3>
_RunDOS ("attrib +s +h folder[/FONT]")



folder[/FONT]= مسار الملف أو الوثيقة

+

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

:d:

​

 

[الحلا تبي تتعلم]

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

^
^^
^^^​

تم وضعك طال عمرك بقائمة التجاهل << يعني بلوووك :​

لاتتعب عمرك ترد لاني ماراح اشوف ردك
​

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

 

[كاسر]

السلام عليكم :

مسائكم الله بالخيرات

استفسار اساتذتي عن كود نسخ الملفات على سطح المكتب بمختلف الصيغ كمثال :

ينشئ مجلد 1 بداخله ملفات بمختلف الصيغ txt & exe الى اخره

جربت هالكود

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

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


لا عدمناكم يار راعين الطيب



وبنفس الاستفسار اذا رغبت المستخدم بتحديد مسار النسخ ومن ثم النسخ



​

 

[alzaeem2008]

بارك الله فيك​

 

[waget]

السلام عليكم :

مسائكم الله بالخيرات

استفسار اساتذتي عن كود نسخ الملفات على سطح المكتب بمختلف الصيغ كمثال :

ينشئ مجلد 1 بداخله ملفات بمختلف الصيغ txt & exe الى اخره

جربت هالكود

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

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


لا عدمناكم يار راعين الطيب



وبنفس الاستفسار اذا رغبت المستخدم بتحديد مسار النسخ ومن ثم النسخ



​

جرب المثال هذا

$path_folder = @DesktopDir & "\backUp"
if DirCreate($path_folder) Then
    $search = FileFindFirstFile (@DesktopDir & "\*.*")
    if  $search = -1 Then
        MsgBox(0,"","Error")
        Exit
    endif

    While 1
        $file = FileFindNextFile($search)
        if @error then ExitLoop
        if $file = "backUp" or $file = @ScriptName  then ContinueLoop

        $attrib = FileGetAttrib(@DesktopDir &"\"& $file)
        if StringInStr($attrib,"D") <> 0 Then
            DirCopy(@DesktopDir &"\"& $file ,$path_folder &"\"& $file)
        else
            FileCopy(@DesktopDir &"\"& $file ,$path_folder &"\"& $file)
        EndIf

    WEnd

EndIf

 

[كاسر]

يسلم راسك يالذيب

الكود مضبوط مية بالمية لكن نسخ اختصارات سطح المكتب

المطلوب

لوعندي مجلد باسم واحد داخل ملفات بمختلف الصيغ الامر ينسخه بكامل محتوياته الى مجلد 2 كمثال

وبارك الله فيك الله يسعدك



​

 

[LINEZERO]

جرب المثال هذا

$path_folder = @DesktopDir & "\backUp"
if DirCreate($path_folder) Then
    $search = FileFindFirstFile (@DesktopDir & "\*.*")
    if  $search = -1 Then
        MsgBox(0,"","Error")
        Exit
    endif
 
    While 1
        $file = FileFindNextFile($search)
        if @error then ExitLoop
        if $file = "backUp" or $file = @ScriptName  then ContinueLoop
 
        $attrib = FileGetAttrib(@DesktopDir &"\"& $file)
        if StringInStr($attrib,"D") <> 0 Then
            DirCopy(@DesktopDir &"\"& $file ,$path_folder &"\"& $file)
        else
            FileCopy(@DesktopDir &"\"& $file ,$path_folder &"\"& $file)
        EndIf
 
    WEnd
 
EndIf

معلم ,, واستاذ للجميع كالعاده :y:

وكل عام وانت بخير :d:
​

 

[LINEZERO]

:king: نعم,, اريد كود يمسح اللي كتبته فقط مثلا لو عندي مفكره مكتوب فيها كلام كثير اريد ان امسح كلام معين فقط :king:

:king:

يمسح الكلام المراد البحث عنه فقط ام السطر بالكامل ,,,

واسف على التاخير

 

[yones7x]

السلام عليكم :d:

سويت لكم أداة جميلة لقراءة الدوال وكتابتها تلقائيا :d:

الاداة جاهزة مع السورس:

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

طبعا طرحت السورس للسماح لكم بتطوير الاداة وتحديثها :d:

تحياتي :king: