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

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

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

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

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

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

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

    بالكود

    كود PHP:
    Browse Dialog.FolderBrowse("Please select a folder:"_WindowsFolder);
    tip = {"*.mp3","*.mp4"}
      if 
    Browse~="CANCEL" then
         
    for i1,#tip do
         
    Find File.Find(Browsetip[i], falsefalsenilnil);
         if 
    Find~=nil then
           
    for is in pairs(Find) do
              
    ListBox.AddItem("ListBox1"String.SplitPath(s).Filenames);
           
    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
    وهكـــــــــــذا باقي الملفات ...........................الخ

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


  • #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);
        1;
        ALL ListBox.GetCount("ListBox1");
        while (
        <= ALL) do
        get_data ListBox.GetItemData("ListBox1"get_sel[N]);
        File.Copy(get_data,_DesktopFolder.."\\"..folderNtruetruefalsetruenil);
            
        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);
            1;
            ALL ListBox.GetCount("ListBox1");
            while (
            <= ALL) do
            get_data ListBox.GetItemData("ListBox1"get_sel[N]);
            get_data_2 ListBox.GetItemData("ListBox2"get_sel[N]);
            File.Copy(get_data,_DesktopFolder.."\\"..folderNtruetruefalsetruenil);
            File.Copy(get_data,get_data_2truetruefalsetruenil);
                
            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);
              1;
              ALL ListBox.GetCount("ListBox1");
              while (
              <= ALL) do
              get_data ListBox.GetItemData("ListBox1"get_sel[N]);
              get_data_2 ListBox.GetItemData("ListBox2"get_sel[N]);
              File.Copy(get_data,_DesktopFolder.."\\"..folderNtruetruefalsetruenil);
              File.Copy(get_data,get_data_2truetruefalsetruenil);
                  
              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);
                  1;
                  all listbox.getcount("listbox1");
                  while (
                  <= all) do
                  get_data listbox.getitemdata("listbox1"get_sel[n]);
                  file.copy(get_data,_desktopfolder.."\\"..folderntruetruefalsetruenil);
                      
                  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 
                      1,ListBox.GetCount("ListBox1")do
                      result1 ListBox.GetItemData("ListBox1"i);
                      result2 ListBox.GetItemText("ListBox2"i);
                      All,a,string.match(result1"(.-)([^\\]-([^\\%.]+))$")
                      -------------------------------------
                      File.Copy(result1_DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,truetruefalsetruenil);
                      end
                      Dialog
                      .Message("Notice""تمت عملية النسخ \r\n"..folderN); 

                      تعليق


                      • #12
                        المشاركة الأصلية بواسطة ربيع مشاهدة المشاركة
                        كود PHP:
                        folderN Dialog.Input("اسم المجلد"""MB_ICONQUESTION);
                        Folder.Create(_DesktopFolder.."\\"..folderN);
                        -------------
                        for 
                        1,ListBox.GetCount("ListBox1")do
                        result1 ListBox.GetItemData("ListBox1"i);
                        result2 ListBox.GetItemText("ListBox2"i);
                        All,a,string.match(result1"(.-)([^\\]-([^\\%.]+))$")
                        -------------------------------------
                        File.Copy(result1_DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,truetruefalsetruenil);
                        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" يمكنك إستخدامها فى إستخلاص العنوان للملف الذى تم تحميلة وسوف تجد ملف مفتوح يوضح طريقة إستخدامها " طبعا بدلا من عناء النسخ اليدوى من صفحة النت "

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

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


                              تعليق

                              مواضيع تهمك

                              تقليص

                              المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                              المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                              المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                              المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                              المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                              يعمل...
                              X