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

Alzri2 قال:
هذا هو الذي تريده (يحتاج بعض التطوير ليصبح أداة كاملة) :
كود: 
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Database = @ScriptDir & "\Contacts.txt"

$Form1_1 = GUICreate("Contacts", 390, 275, 192, 124)
$List = GUICtrlCreateListView("", 5, 5, 194, 262)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)

$Group1 = GUICtrlCreateGroup("Add Contact :", 208, 42, 175, 113)
$NameEdit = GUICtrlCreateInput("", 272, 66, 105, 21)
$NumberEdit = GUICtrlCreateInput("", 272, 94, 105, 21)
GUICtrlCreateLabel("Name :", 216, 69, 38, 17)
GUICtrlCreateLabel("Number :", 218, 95, 47, 17)
$Save = GUICtrlCreateButton("Save", 256, 122, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Copy = GUICtrlCreateButton("Copy Selected", 205, 168, 179, 25, $WS_GROUP)

_GUICtrlListView_InsertColumn($List, 0, "Name", 70)
_GUICtrlListView_InsertColumn($List, 1, "Number", 120)
$Data = FileRead($Database)
$Len = StringSplit($Data, @CR)
$DataS = StringSplit($Data, "|")
For $s = 1 To $DataS[0] - 1 Step 2
    _GUICtrlListView_AddItem($List, $DataS[$s])
Next
For $s = 1 To $Len[0]
    _GUICtrlListView_AddSubItem($List, $s - 1, $DataS[$s * 2], 1)
Next

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Save
            FileWrite($Database, @CR & GUICtrlRead($NameEdit) & "|" & GUICtrlRead($NumberEdit) & "|")
            _GUICtrlListView_AddItem($List, GUICtrlRead($NameEdit))
            _GUICtrlListView_AddSubItem($List, $s - 1, GUICtrlRead($NumberEdit), 1)
            $s = $s + 1
        Case $Copy
            $Ind = _GUICtrlListView_GetSelectedIndices($List)
            $Copied = _GUICtrlListView_GetItemText($List, Int($Ind), 1)
            ClipPut($Copied)
    EndSwitch
WEnd
أتعبني هذا المثال :d:

بالتوفيق
​
أنقر للتوسيع...

جزاك الله خير ..
لكن السكربت مو راضي يشتغل .. :er::mad:
في خطأ حاولت أكتشفه بنفسي ما قدرت .. :b::f:
--
عند عمل كومبايل للسكربت وتنفيذهـ تظهر هالرساله ..
5220af12c5c4a85678a05f770d1e9218.png
 

توقيع : Bo.SaQeR
Bo.SaQeR قال:
جزاك الله خير ..
لكن السكربت مو راضي يشتغل .. :er::mad:
في خطأ حاولت أكتشفه بنفسي ما قدرت .. :b::f:
--
عند عمل كومبايل للسكربت وتنفيذهـ تظهر هالرساله ..
5220af12c5c4a85678a05f770d1e9218.png
أنقر للتوسيع...

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

كود: 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Contacts Viewer.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Database = @ScriptDir & "\Contacts.txt"

$Form1_1 = GUICreate("Contacts", 390, 275, 192, 124)
$List = GUICtrlCreateListView("", 5, 5, 194, 262)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)

$Group1 = GUICtrlCreateGroup("Add Contact :", 208, 42, 175, 113)
$NameEdit = GUICtrlCreateInput("", 272, 66, 105, 21)
$NumberEdit = GUICtrlCreateInput("", 272, 94, 105, 21)
GUICtrlCreateLabel("Name :", 216, 69, 38, 17)
GUICtrlCreateLabel("Number :", 218, 95, 47, 17)
$Save = GUICtrlCreateButton("Save", 256, 122, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Copy = GUICtrlCreateButton("Copy Selected", 205, 168, 179, 25, $WS_GROUP)

_GUICtrlListView_InsertColumn($List, 0, "Name", 70)
_GUICtrlListView_InsertColumn($List, 1, "Number", 120)
$s = 1
If FileExists($Database) Then
    $Data = FileRead($Database)
    $Len = StringSplit($Data, @CR)
    $DataS = StringSplit($Data, "|")
    For $s = 1 To $DataS[0] - 1 Step 2
        _GUICtrlListView_AddItem($List, $DataS[$s])
    Next
    For $s = 1 To $Len[0]
        _GUICtrlListView_AddSubItem($List, $s - 1, $DataS[$s * 2], 1)
    Next
EndIf

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Save
            FileWrite($Database, @CR & GUICtrlRead($NameEdit) & "|" & GUICtrlRead($NumberEdit) & "|")
            _GUICtrlListView_AddItem($List, GUICtrlRead($NameEdit))
            _GUICtrlListView_AddSubItem($List, $s - 1, GUICtrlRead($NumberEdit), 1)
            $s = $s + 1
        Case $Copy
            $Ind = _GUICtrlListView_GetSelectedIndices($List)
            $Copied = _GUICtrlListView_GetItemText($List, Int($Ind), 1)
            ClipPut($Copied)
    EndSwitch
WEnd
والسلام عليكم
​
 
توقيع : Alzri2
Alzri2 قال:
جل من لا يسهو ... نسيت إرفاق ملف قاعدة البيانات ولكن تم حل المشكلة برمجياً

كود: 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Contacts Viewer.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Database = @ScriptDir & "\Contacts.txt"

$Form1_1 = GUICreate("Contacts", 390, 275, 192, 124)
$List = GUICtrlCreateListView("", 5, 5, 194, 262)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)

$Group1 = GUICtrlCreateGroup("Add Contact :", 208, 42, 175, 113)
$NameEdit = GUICtrlCreateInput("", 272, 66, 105, 21)
$NumberEdit = GUICtrlCreateInput("", 272, 94, 105, 21)
GUICtrlCreateLabel("Name :", 216, 69, 38, 17)
GUICtrlCreateLabel("Number :", 218, 95, 47, 17)
$Save = GUICtrlCreateButton("Save", 256, 122, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Copy = GUICtrlCreateButton("Copy Selected", 205, 168, 179, 25, $WS_GROUP)

_GUICtrlListView_InsertColumn($List, 0, "Name", 70)
_GUICtrlListView_InsertColumn($List, 1, "Number", 120)
$s = 1
If FileExists($Database) Then
    $Data = FileRead($Database)
    $Len = StringSplit($Data, @CR)
    $DataS = StringSplit($Data, "|")
    For $s = 1 To $DataS[0] - 1 Step 2
        _GUICtrlListView_AddItem($List, $DataS[$s])
    Next
    For $s = 1 To $Len[0]
        _GUICtrlListView_AddSubItem($List, $s - 1, $DataS[$s * 2], 1)
    Next
EndIf

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Save
            FileWrite($Database, @CR & GUICtrlRead($NameEdit) & "|" & GUICtrlRead($NumberEdit) & "|")
            _GUICtrlListView_AddItem($List, GUICtrlRead($NameEdit))
            _GUICtrlListView_AddSubItem($List, $s - 1, GUICtrlRead($NumberEdit), 1)
            $s = $s + 1
        Case $Copy
            $Ind = _GUICtrlListView_GetSelectedIndices($List)
            $Copied = _GUICtrlListView_GetItemText($List, Int($Ind), 1)
            ClipPut($Copied)
    EndSwitch
WEnd
والسلام عليكم
​
أنقر للتوسيع...

أنت كذاا .. :ok:
جزاك الله خير ..
تعلمنا أكواد و طرق جديدهـ ..
يعطيك ألف عافيه ..

:p:
 
توقيع : Bo.SaQeR
^ ^ ^
تعبناكم اليوم ..
واجهت السكربت مشكله عند إعاده تشغله لاسترجاع ما تم حفظه ..
+
واجهتني مشكله لعمل كود للحذف من ملف القاعده .. :i:
 
توقيع : Bo.SaQeR
Alzri2 قال:
إذا حاولت سأضع شئ, لكن الواضح أنك لم تجرب أي شئ

لأن الموضوع في قمة السهولة والبساطة ولا يحتاج إلا التجارب​




​
أنقر للتوسيع...

جربت أكثر من مره
ربما الامر سهل لكن ما عرفت أنفذه وخاص أني لا أعرف اللغة
:king:



​
 
توقيع : ramay
السلام عليكم ،
شباب عندي سؤال ..
لو مثلا أبي احذف جميع ملفات الجهاز
صور مقاطع فيديو ملفات المفضله ...آلخ
أيش الأمر إلي اضعه ؟
و أمر تغيير خلفيه سطح المكتب
و مشكورين مقدماً
 
Dr.MoNy قال:
السلام عليكم ،
شباب عندي سؤال ..
لو مثلا أبي احذف جميع ملفات الجهاز
صور مقاطع فيديو ملفات المفضله ...آلخ
أيش الأمر إلي اضعه ؟
و أمر تغيير خلفيه سطح المكتب
و مشكورين مقدماً
أنقر للتوسيع...

كود: 
filedelete($path)

بالنسبه للخلفيه تحتاج الى التعديل على مسجل النظام :d:​
 
توقيع : LINEZERO
يعطيك العافيه حبيبي ،
طيب .. كيف أعدلها من مسجل النظام ، وهل يحتاج لها صعوبه
و لو ابي اغير جميع الصور بالجهاز بـ صوره خاصه
يعني كل الصور تتغير بـ صوره خاصه انا أحطها
 
filedelete($path)

مكان باتش .. اسم الهاردسك ؟

 
:b: محاولة مني لتطوير سكريبت الاستاذ Alzri2

كود: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
Global $opt = @ScriptDir & "\options.ini"
Global $INI
Global $i
Global $FuncIsCall = False
$Form1 = GUICreate("Contact", 457, 277, 208, 136)
$ListView1 = GUICtrlCreateListView("", 8, 8, 201, 257)
$Group1 = GUICtrlCreateGroup("Add Contact", 232, 32, 193, 169)
$Button1 = GUICtrlCreateButton("Save", 300, 160, 65, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 296, 72, 121, 21)
$Input2 = GUICtrlCreateInput("", 296, 112, 121, 21)
$Label1 = GUICtrlCreateLabel("Name :", 248, 72, 44, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Number:", 240, 112, 51, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Copy Selected", 232, 216, 193, 25, $WS_GROUP)
_GUICtrlListView_InsertColumn($ListView1, 0, "Name", 70)
_GUICtrlListView_InsertColumn($ListView1, 1, "Number", 120)
GUISetState(@SW_SHOW)
_ReadOpt()
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Button1
        if not FileExists($ini) Then
                $ini = FileSaveDialog("Save",@DesktopDir,"INI Files (*.ini)",2,"Contacts.ini",$Form1)
                if @error Then
                    MsgBox(16,"","لم تنشيء ملف لحفظ القائمة ",0,$Form1)
                Else
                    _AddContacts_toList_2()
                    endif
            else
                _AddContacts_toList_2()
            endif

    Case $Button2
         $Ind = _GUICtrlListView_GetSelectedIndices($ListView1)
         $Copied = _GUICtrlListView_GetItemText($ListView1, Int($Ind), 1)
         ClipPut($Copied)

EndSwitch
WEnd

func _ReadOpt()
    $INI = IniRead($opt,"options","Contacts","Contacts.ini")
        if not FileExists ($ini) Then
            $INI = FileOpenDialog("Open",@ScriptDir,"INI Files (*.ini)",3,"")
                if @error then
                    MsgBox(16,"","لم تحدد ملف لجلب القائمة منه",0,$Form1)
                    else
                        IniWrite($opt,"options","Contacts",$INI)
                        _AddContacts_toList()
                    endif
                else
            _AddContacts_toList()
        endif
        endfunc ;==>_ReadOpt

func _AddContacts_toList()
        $List = IniReadSection ($INI,"Contacts")
        for $i = 1 to $List[0][0]
    _GUICtrlListView_AddItem($ListView1,$List[$i][0])
next
    for $i = 1 to $List[0][0]
        _GUICtrlListView_AddSubItem($ListView1,$i-1 ,$List[$i][1],1)
    next
    Global $FuncIsCall = True
    Global $i = $List[0][0] + 1
endfunc ;==>_AddContacts_toList

func _AddContacts_toList_2()
    if not $FuncIsCall Then
                $i = 1
            endif

            FileWriteLine($INI,GUICtrlRead($Input1 )& " = " & GUICtrlRead($Input2))


            _GUICtrlListView_AddItem($ListView1,GUICtrlRead($Input1))

            _GUICtrlListView_AddSubItem($ListView1,  $i - 1 ,GUICtrlRead($Input2),1)

            $i = $i + 1

            $FuncIsCall = true
    EndFunc ;==> _AddContacts_toList2

ملاحظات ::
إفتح المفكرة .. أكتب فيها الكود التالي ..

كود: 
[options]
Contacts =

إحفظها بهذا الاسم وضعه بجانب السيكريبت ..options.ini

بعد تشغيل السيكريبت لأول مره .. راح يضهر لك نافذة إختيار ملف ومسج تجاهلها << بما إنك مشغل السيكريبت للمره الاولى..

سجل المعلومات ثم حفظ وأيضاُ بما إنك مشغل السيكريبت للمره الاولى بتجيك نافذه للحفظ .. إختر مكان للحفظ .. الملف الناتج بيكون ملف ini

بعد كذا لو غيرت إسم الملف الناتج أو غيرت مكانة بتظهر لك نافذه إختيار الملف ألي ضهرت للمره الاولى لتحديد الملف ...

:d:
 
توقيع : waget
^ ^ ^
شكله مطول ولد اللذينا .. :d:
نفس المشكله بعد حفظ البيانات .. إلخ
يرفض يستعيدها .. يرفض يشتغل أصلاً .. :hh:
 
توقيع : Bo.SaQeR
كود: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
Global $opt = @ScriptDir & "\options.ini"
Global $INI
Global $i
Global $FuncIsCall = False
$Form1 = GUICreate("Contact", 457, 277, 208, 136)
$ListView1 = GUICtrlCreateListView("", 8, 8, 201, 257)
$Group1 = GUICtrlCreateGroup("Add Contact", 232, 32, 193, 169)
$Button1 = GUICtrlCreateButton("Save", 300, 160, 65, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 296, 72, 121, 21)
$Input2 = GUICtrlCreateInput("", 296, 112, 121, 21)
$Label1 = GUICtrlCreateLabel("Name :", 248, 72, 44, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Number:", 240, 112, 51, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Copy Selected", 232, 216, 193, 25, $WS_GROUP)
_GUICtrlListView_InsertColumn($ListView1, 0, "Name", 70)
_GUICtrlListView_InsertColumn($ListView1, 1, "Number", 120)
GUISetState(@SW_SHOW)
_ReadOpt()
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Button1
        if not FileExists($INI) Then
                $INI= FileSaveDialog("Save",@DesktopDir,"INI Files (*.ini)",2,"Contacts.ini",$Form1)
                if @error Then
                    MsgBox(16,"","لم تنشيء ملف لحفظ القائمة ",0,$Form1)
                Else
                    IniWrite($opt,"options","Contacts",$INI)
                    FileWriteLine($INI,"[Contacts]")
                    _AddContacts_toList_2()
                    endif
            else
                _AddContacts_toList_2()
            endif

    Case $Button2
         $Ind = _GUICtrlListView_GetSelectedIndices($ListView1)
         $Copied = _GUICtrlListView_GetItemText($ListView1, Int($Ind), 1)
         ClipPut($Copied)

EndSwitch
WEnd

func _ReadOpt()
    $INI = IniRead($opt,"options","Contacts","Contacts.ini")
        if not FileExists ($INI) Then
            $INI = FileOpenDialog("Open",@ScriptDir,"INI Files (*.ini)",3,"")
                if @error then
                    MsgBox(16,"","لم تحدد ملف لجلب القائمة منه",0,$Form1)
                    else
                        IniWrite($opt,"options","Contacts",$INI)
                        _AddContacts_toList()
                    endif
                else
            _AddContacts_toList()
        endif
        endfunc ;==>_ReadOpt

func _AddContacts_toList()
        $List = IniReadSection ($INI,"Contacts")

        for $i = 1 to $List[0][0]
    _GUICtrlListView_AddItem($ListView1,$List[$i][0])
next
    for $i = 1 to $List[0][0]
        _GUICtrlListView_AddSubItem($ListView1,$i-1 ,$List[$i][1],1)
    next
    Global $FuncIsCall = True
    Global $i = $List[0][0] + 1
endfunc ;==>_AddContacts_toList

func _AddContacts_toList_2()
    if not $FuncIsCall Then
                $i = 1
            endif


            FileWriteLine($INI,GUICtrlRead($Input1 )& " = " & GUICtrlRead($Input2))


            _GUICtrlListView_AddItem($ListView1,GUICtrlRead($Input1))

            _GUICtrlListView_AddSubItem($ListView1,  $i - 1 ,GUICtrlRead($Input2),1)

            $i = $i + 1

            $FuncIsCall = true
        EndFunc ;==> _AddContacts_toList2
جرب بعد التعديل إن شاء الله يضبط ...
 
توقيع : waget
الله لايهينكم شباب بالصفحه إلي قبل
أحد يساعدني لأني طفشان و أبي أطقطق عليها شوي
و مشكورين مقدماً
 
Dr.MoNy قال:
filedelete($path)

مكان باتش .. اسم الهاردسك ؟
أنقر للتوسيع...

Dr.MoNy قال:
الله لايهينكم شباب بالصفحه إلي قبل
أحد يساعدني لأني طفشان و أبي أطقطق عليها شوي
و مشكورين مقدماً
أنقر للتوسيع...

إذا قصدك عن الدالة filedelete

[
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
] << شوف الدرس هذا..
 
توقيع : waget
waget قال:
كود: 
جرب بعد التعديل إن شاء الله يضبط ...[/QUOTE]

100% :ok:
يعطيك العافيه .. علمتنا طرق جديدهـ بالفنكشنات .. :d:
بديت أحس بطعم الأوتوإت .. [FONT=Comic Sans MS][SIZE=2][COLOR=Red]3>[/COLOR][/SIZE][/FONT]
بس بغيت أسألك عن الحذف  .. :b:
أنقر للتوسيع...
 
توقيع : Bo.SaQeR
طيب أخوي لبى قلبك ،انا ابي احذف جميع ملفات الجهاز ..وش الأمر إلي أضعه ؟
لأن أشوف حذف من مجلد الملفات المؤقته ، ؟
 
المعذرة يا أخوة على عدم المتابعة, والسبب واضح بالتوقيع :smile:


ramay قال:
جربت أكثر من مره
ربما الامر سهل لكن ما عرفت أنفذه وخاص أني لا أعرف اللغة
:king:
أنقر للتوسيع...

حسناً, هذا مثال لما تريد (فكرته هي نسخ ملف لجميع الدرايفرات الخارجية سواءً فلاشات أو هاردات) :
​
كود: 
$removable = DriveGetDrive("REMOVABLE")
If Not @error Then
    MsgBox(4096,"", "Found " & $removable[0] & " drives")
    For $i = 1 To $removable[0]
        FileCopy("C:\test.txt", $removable[$i], 1)
    Next
EndIf
waget قال:
:b: محاولة مني لتطوير سكريبت الاستاذ Alzri2
ملاحظات ::
إفتح المفكرة .. أكتب فيها الكود التالي ..

كود: 
[options]
Contacts =
إحفظها بهذا الاسم وضعه بجانب السيكريبت ..options.ini

بعد تشغيل السيكريبت لأول مره .. راح يضهر لك نافذة إختيار ملف ومسج تجاهلها << بما إنك مشغل السيكريبت للمره الاولى..

سجل المعلومات ثم حفظ وأيضاُ بما إنك مشغل السيكريبت للمره الاولى بتجيك نافذه للحفظ .. إختر مكان للحفظ .. الملف الناتج بيكون ملف ini

بعد كذا لو غيرت إسم الملف الناتج أو غيرت مكانة بتظهر لك نافذه إختيار الملف ألي ضهرت للمره الاولى لتحديد الملف ...

:d:
أنقر للتوسيع...

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

وجاري التطوير قليلاً

بس بغيت أسألك عن الحذف .. :b:
أنقر للتوسيع...
إن شاء الله يكون السكربت المطور جاهز بعد قليل

طيب أخوي لبى قلبك ،انا ابي احذف جميع ملفات الجهاز ..وش الأمر إلي أضعه ؟
لأن أشوف حذف من مجلد الملفات المؤقته ، ؟
أنقر للتوسيع...
أنظر المثال في كتاب التعليمات المرفق مع اللغة للأمر :
FileFindFirstFile

إذا لم تفهمه جيداً ضع رد هنا
​
 
توقيع : Alzri2
Alzri2 قال:

لست أستاذ .. أنت الأستاذ :q:
والتطوير جميل بإضافة ini مع أنني لم أحبذها لأن بها بعض التعقيد, ولكن لا مشكلة
​
أنقر للتوسيع...

​
والله كلكم أساتذهـ ..
شئتم أم أبيتم .. :d::smile:
 
توقيع : Bo.SaQeR
تعديل بسيط وهذا الناتج ...

out.php


:hh:

السموحة منكم ...
 
توقيع : موريادي
توقيع : yones7x
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى