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

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

ســـؤال حـــــول ( Rename and Copy )؟

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 9
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق 1 2 3 4 5 6 9 template التالي
  • #1

    ســـؤال حـــــول ( Rename and Copy )؟

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

    نسخ الملفات الموجود في ( ListBox1 ) والتي تم استدعائها
    بالكود

    كود PHP:
    Browse = Dialog.FolderBrowse("Please select a folder:", _WindowsFolder);
    tip = {"*.mp3","*.mp4"}
      if     Browse~="CANCEL" then
             for i= 1,#tip do
             Find = File.Find(Browse, tip[i], false, false, nil, nil);
         if     Find~=nil then
               for i, s in pairs(Find) do
                  ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
               end
           end
         end 
      end 

    نسخ هذة الملفات الي مجلد انا اختاره
    مع اعادة تسمية الملفات بحيث تاخذ الاسماء الجديدة
    من ( ListBox2 ) الذي يتم تعباته من خلال الكــــــــــــود

    كود PHP:
    Nemefil = TextFile.ReadToTable("AutoPlay\\Docs\\m.txt");
           ListBox.DeleteItem("ListBox2",LB_ALLITEMS);
      for     i,s in pairs(Nemefil)do 
          ListBox.AddItem("ListBox2", s);
          end 

    بحيث Selected رقم (1) في ListBox1 ياخذ التسمية من Selectedرقم (1 ) قي ListBox2
    وهكـــــــــــذا باقي الملفات ...........................الخ

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

    الكلمات الدلالية: copy, rename, حـــــول, ســـؤال, ط­ظ€ظ€ظ€ظ€ظ€ظˆظ„, ط³ظ€ظ€ظ€ط¤ط§ظ„
  • #2
    بسم الله الرحمن الرحيم
    متابع في نتظار الاخوة

    تعليق

    • #3
      مش فاهم ماذا تقصد بالتحديد

      ولكن يمكنك إستخدام File.Rename لإعادة التسمية للملفات

      أو تضع ملف مفتوح ربما نفهم منه المقصود بالتحديد

      تعليق

      • #4
        المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
        مش فاهم ماذا تقصد بالتحديد

        ولكن يمكنك إستخدام File.Rename لإعادة التسمية للملفات

        أو تضع ملف مفتوح ربما نفهم منه المقصود بالتحديد
        ------------------------------------------------------------
        بسم الله الرحمن الرحيم

        استاذ عبود
        انا اريد نسخ الملفات الموجوده في ListBox1 الي مجلد
        وهذا الكود ينفذ ذالك بنجاح

        كود PHP:
        folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
        ListBox.SelectItem("ListBox1", LB_ALLITEMS);
        get_sel = ListBox.GetSelected("ListBox1");
        Folder.Create(_DesktopFolder.."\\"..folderN);
        N = 1;
        ALL = ListBox.GetCount("ListBox1");
        while (        N <= ALL) do
        get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
        File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
                    N = N + 1;
        end
         Dialog        .Message("Notice", "تمت عملية النسخ \r\n"..folderN); 
        ولكن اريد مـــــــــــع عملية النسخ تغير اسامي الملفات
        وان يتم اخذ الاسماء الجديده من قائمة موجوده فيListBox2

        يعني الملف
        كود PHP:
        FILL = ListBox.GetItemText("ListBox1", 1); 
        تسميته تكون
        كود PHP:
        NMEE = ListBox.GetItemText("ListBox2", 1); 
        وهكذ مع الكل


        تعليق

        • #5
          طالما تستخدم الأمر copy
          فأنت لا تحتاج للأمر rename

          لأن الأمر copy يتضمن الأمر rename بداخله
          البارامتر الثانى لدالة copy يفى بالغرض

          https://www.indigorose.com/webhelp/t...y_Examples.htm

          أدرس example2 بعناية
          ستجد عملية نسخ مع عملية تغيير الاسم فى نفس الدالة
          Copies a file named "hidden.dat" from the folder where the update.exe is located to a folder named "z3j2rlk" in the user's temp folder, And renaming the file to "sneaky.exe"
          منقول من الرابط مع اضافة كلمة And بواستطى لإزالة الغموض عن المعنى

          تعليق

          • #6
            و على فرض ان ليست 1 و ليست 2 بهما نفس عدد العناصر
            و ان العناصر فى كلا الليستين مرتبة بحيث تكون متراصفة لخدمة نفس الملفات
            و ان الفولدرات الخاصة بالليست 2 جاهزة
            يكون الكود المقترح
            كود PHP:
            folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
            ListBox.SelectItem("ListBox1", LB_ALLITEMS);
            get_sel = ListBox.GetSelected("ListBox1");
            Folder.Create(_DesktopFolder.."\\"..folderN);
            N = 1;
            ALL = ListBox.GetCount("ListBox1");
            while (            N <= ALL) do
            get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
            get_data_2 = ListBox.GetItemData("ListBox2", get_sel[N]);
            File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
            File.Copy(get_data,get_data_2, true, true, false, true, nil);
                            N = N + 1;
            end
             Dialog            .Message("Notice", "تمت عملية النسخ \r\n"..folderN); 
            عليك تأمل السطر 11 ففيه ملخص الفكرة
            موفق

            تعليق

            • #7
              المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة
              و على فرض ان ليست 1 و ليست 2 بهما نفس عدد العناصر
              و ان العناصر فى كلا الليستين مرتبة بحيث تكون متراصفة لخدمة نفس الملفات
              و ان الفولدرات الخاصة بالليست 2 جاهزة
              يكون الكود المقترح
              كود PHP:
              folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
              ListBox.SelectItem("ListBox1", LB_ALLITEMS);
              get_sel = ListBox.GetSelected("ListBox1");
              Folder.Create(_DesktopFolder.."\\"..folderN);
              N = 1;
              ALL = ListBox.GetCount("ListBox1");
              while (              N <= ALL) do
              get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
              get_data_2 = ListBox.GetItemData("ListBox2", get_sel[N]);
              File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
              File.Copy(get_data,get_data_2, true, true, false, true, nil);
                                N = N + 1;
              end
               Dialog              .Message("Notice", "تمت عملية النسخ \r\n"..folderN); 
              عليك تأمل السطر 11 ففيه ملخص الفكرة
              موفق
              ---------------------------------
              شكــــرا لك استاذ المهاجر
              كود جميل ومعلومات اجمل
              بارك الله فيك وجازك كل خير
              :abc_152
              :

              تعليق

              • #8
                المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة
                ---------------------------------
                شكــــرا لك استاذ المهاجر
                كود جميل ومعلومات اجمل
                بارك الله فيك وجازك كل خير
                :abc_152
                :
                مـــــوفق

                تعليق

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

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

                  استاذ عبود
                  انا اريد نسخ الملفات الموجوده في listbox1 الي مجلد
                  وهذا الكود ينفذ ذالك بنجاح

                  كود PHP:
                  foldern = dialog.input("اسم المجلد", "", mb_iconquestion);
                  listbox.selectitem("listbox1", lb_allitems);
                  get_sel = listbox.getselected("listbox1");
                  folder.create(_desktopfolder.."\\"..foldern);
                  n = 1;
                  all = listbox.getcount("listbox1");
                  while (                  n <= all) do
                  get_data = listbox.getitemdata("listbox1", get_sel[n]);
                  file.copy(get_data,_desktopfolder.."\\"..foldern, true, true, false, true, nil);
                                        n = n + 1;
                  end
                   dialog                  .message("notice", "تمت عملية النسخ \r\n"..foldern); 
                  ولكن اريد مـــــــــــع عملية النسخ تغير اسامي الملفات
                  وان يتم اخذ الاسماء الجديده من قائمة موجوده فيlistbox2

                  يعني الملف
                  كود PHP:
                  fill = listbox.getitemtext("listbox1", 1); 
                  تسميته تكون
                  كود PHP:
                  nmee = listbox.getitemtext("listbox2", 1); 
                  وهكذ مع الكل



                  بارك الله فيك

                  لكن لم افهم الفائدة من هذ الملف هل ممكن ملف مفتوح لتتضح الصورة

                  تعليق

                  • #10
                    المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
                    بارك الله فيك

                    لكن لم افهم الفائدة من هذ الملف هل ممكن ملف مفتوح لتتضح الصورة
                    ------------------------------------------------
                    بسم الله الرحمن الرحيم
                    اخي محمد الفكرة ببساطة
                    انني حملت ملفات من النت فنزلت تسميتها ارقام بهذا الشكل



                    مع انها في الموقع كل ملف له اسم يبين عما يتحدث بهذا الشكل



                    نسخة هذا الاسماء في ملف نصي وعملت على تسميت الملفات باستخدم الاتوبلاي لانها كثيررررررررررررر


                    الملف المفتوح في المرفقات

                    شرح الملف
                    https://youtu.be/k3XLyNtM000


                    https://youtu.be/k3XLyNtM000

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

                    تعليق

                    • #11
                      كود PHP:
                      folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
                      Folder.Create(_DesktopFolder.."\\"..folderN);
                      -------------
                      for                       i = 1,ListBox.GetCount("ListBox1")do
                      result1 = ListBox.GetItemData("ListBox1", i);
                      result2 = ListBox.GetItemText("ListBox2", i);
                      All,a,b = string.match(result1, "(.-)([^\\]-([^\\%.]+))$")
                      -------------------------------------
                      File.Copy(result1, _DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,true, true, false, true, nil);
                      end
                      Dialog                      .Message("Notice", "تمت عملية النسخ \r\n"..folderN); 

                      تعليق

                      • #12
                        المشاركة الأصلية بواسطة ربيع مشاهدة المشاركة
                        كود PHP:
                        folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
                        Folder.Create(_DesktopFolder.."\\"..folderN);
                        -------------
                        for                         i = 1,ListBox.GetCount("ListBox1")do
                        result1 = ListBox.GetItemData("ListBox1", i);
                        result2 = ListBox.GetItemText("ListBox2", i);
                        All,a,b = string.match(result1, "(.-)([^\\]-([^\\%.]+))$")
                        -------------------------------------
                        File.Copy(result1, _DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,true, true, false, true, nil);
                        end
                        Dialog                        .Message("Notice", "تمت عملية النسخ \r\n"..folderN); 
                        ----------------------------------------------
                        شكرا لك استاذ ربيــــــــع
                        موفق بإذن الله ... لك مني أجمل تحية .

                        تعليق

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

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



                          مع انها في الموقع كل ملف له اسم يبين عما يتحدث بهذا الشكل



                          نسخة هذا الاسماء في ملف نصي وعملت على تسميت الملفات باستخدم الاتوبلاي لانها كثيررررررررررررر


                          الملف المفتوح في المرفقات

                          شرح الملف
                          https://youtu.be/k3XLyNtM000


                          https://youtu.be/k3XLyNtM000

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


                          فكرة جميلة جدا جدا

                          رحم الله والديك وكل من ساعدك على هذا العمل
                          كنت اعاني كثيرا من هذه المشكلة وكنت اضطر لتغير الاسم يدويا وكنت اغير في بعض الاحيان ما يقارب 200 اسم لملف mp3

                          لكن الفكرة جيدة وراقت اعجابي وستفيدني كثيرا

                          وعليه هل يمكن التوسع في الادات

                          تابع معي


                          المفات حملتها من هنا

                          https://archive.org/details/ModarasaWaTadriss20

                          وبالرغم من ان اسمائها كلها بالعربية الا ان بعد التحميل تظهر كما في الصورة



                          الاسماء كلها بالفرنسية
                          والاسم الاصلي تحول كما هو مشار اليه بالسهم الاحمر

                          فهل ممكن ان ناخذ الاسم من

                          Titre -------------------ونضعه في مكان -------------NOM

                          تعليق

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

                            تعليق

                            • #15
                              طبعا " أخى العزيز محمد " هناك ما هو أحسن للتنفيذ فى مثل هذه الحالة الخاصة بك

                              وهو الحصول على العنوان للملف الذى تم تحميلة أو جميع البروبيرتيز " الخصائص للملف الذى تم تحميلة "

                              كيف ؟؟؟؟ هناك إضافة أكشن إسمها ميديا إينفو "MyMediaInfoDll" يمكنك إستخدامها فى إستخلاص العنوان للملف الذى تم تحميلة وسوف تجد ملف مفتوح يوضح طريقة إستخدامها " طبعا بدلا من عناء النسخ اليدوى من صفحة النت "

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

                              دقائق ويتم رفع الإضافة والمثال معا لمن لا يمتلكها


                              تعليق

                              السابق 1 2 3 4 5 6 9 template التالي

                              مواضيع تهمك

                              تقليص
                              Empty RSS Feed.
                              يعمل...
                              X