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

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

ســــــــؤال بخصوص (تصحيح هذا الكـــــــــود ) ؟

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

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

    باتيرن = Pattern
    راجع
    https://www.lua.org/pil/20.2.html

    الباتيرن دائما معقدة جدا
    لو تريد الاعتماد على نفسك
    انصحك بالحلقة

    لكن تمهل
    حالتك لا تستدعى باترن
    قم بتغيير السطر
    كود PHP:
    h = ListBox.FindItem("LEST_DY", -1, String.Left( LB_BYTEXT, 2),  p.."*"); 
    إلى
    كود PHP:
    h = ListBox.FindItem("LEST_DY", -1, LB_BYTEXT, p.."*") 
    و سيعمل معك الكود بشكل صحيح

    موفق
    التعديل الأخير تم بواسطة المـهاجر; الساعة 25-08-2017, 02:46 AM.

    تعليق

    • #62
      ComboBox --- on select
      [html]p= tonumber(e_Selection);
      for i =1,ListBox.GetCount("LEST_DY") do
      x = String.Left(ListBox.GetItemText("LEST_DY", i), 2)
      x= tonumber(x);
      result = String.Compare(x, p);
      if result ==0 then
      ListBox.SelectItem("LEST_DY", i);
      end
      end[/html]

      باستعمال دالة المقارنة و التخلي عن دالة البحث المباشر

      تعليق

      • #63
        المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
        ComboBox --- on select
        [html]p= tonumber(e_Selection);
        for i =1,ListBox.GetCount("LEST_DY") do
        x = String.Left(ListBox.GetItemText("LEST_DY", i), 2)
        x= tonumber(x);
        result = String.Compare(x, p);
        if result ==0 then
        ListBox.SelectItem("LEST_DY", i);
        end
        end[/html]

        باستعمال دالة المقارنة و التخلي عن دالة البحث المباشر
        ----------------------------------------------------------
        بسم الله الرحمن الرحيم
        ابدعات ابوبلقيس
        100%


        تعليق

        • #64
          و اذ أردت من البداية عنصر ComboBox يستمد تسميته
          من الملفات مباشرة أي لن تجد أرقاما لا تقابلها ملفات
          في on show
          أكتب هذا التعديل
          [html]FD = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\08 -(August)" ,"*.rtf", true, true, nil, nil);
          if (FD == nil) then
          else
          ListBox.DeleteItem("LEST_DY", -1);
          ComboBox.ResetContent("Comboday");
          for x , y in pairs(FD) do
          v = String.SplitPath(y).Filename
          ListBox.AddItem("LEST_DY", v ,y);
          ComboBox.AddItem("Comboday", String.Left(v, 2), "");
          end
          end
          [/html]

          و لكن باعتماد هذا التعديل وجب التعديل في ComboBox
          إلى :
          [html]p= tonumber(ComboBox.GetItemText("Comboday", e_Selection));
          for i =1,ListBox.GetCount("LEST_DY") do
          x = String.Left(ListBox.GetItemText("LEST_DY", i), 2)
          x= tonumber(x);
          result = String.Compare(x, p);
          if result ==0 then
          ListBox.SelectItem("LEST_DY", i);
          end
          end[/html]


          وعلى مستوى اليست بوكس ساعيد كتابة ما كتبت سابقا
          كود PHP:
           SelecLES = ListBox.GetSelected("LEST_DY");
          TexLES = ListBox.GetItemText("LEST_DY", SelecLES[1]);
          DatLES  = ListBox.GetItemData("LEST_DY",SelecLES[1]);
          path_parts = String.SplitPath(DatLES);
          -----------
          File.Rename(DatLES, path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML");
          Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML");  
          Application.Sleep(10);
          File.Rename(path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML", DatLES); 
          موفق :abc_145:

          تعليق

          • #65
            المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة
            باتيرن = Pattern
            راجع
            https://www.lua.org/pil/20.2.html

            الباتيرن دائما معقدة جدا
            لو تريد الاعتماد على نفسك
            انصحك بالحلقة

            لكن تمهل
            حالتك لا تستدعى باترن
            قم بتغيير السطر
            كود PHP:
            h = ListBox.FindItem("LEST_DY", -1, String.Left( LB_BYTEXT, 2),  p.."*"); 
            إلى
            كود PHP:
            h = ListBox.FindItem("LEST_DY", -1, LB_BYTEXT, p.."*") 
            و سيعمل معك الكود بشكل صحيح

            موفق

            --------------------------
            بسم الله الرحمن الرحيم
            شكرا لك استاذ المهاجر
            استفدت من رابط الموضوع
            طبقة هذا الكود على حالتي وكانت النتيجه ممتاز
            كود PHP:
            date = "%d%d"
            SS = (string.sub(n, string.find(n, date))) 
            موفق بإذن الله ... لك مني أجمل تحية .

            تعليق

            • #66
              المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
              و اذ أردت من البداية عنصر ComboBox يستمد تسميته
              من الملفات مباشرة أي لن تجد أرقاما لا تقابلها ملفات
              في on show
              أكتب هذا التعديل
              [html]FD = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\08 -(August)" ,"*.rtf", true, true, nil, nil);
              if (FD == nil) then
              else
              ListBox.DeleteItem("LEST_DY", -1);
              ComboBox.ResetContent("Comboday");
              for x , y in pairs(FD) do
              v = String.SplitPath(y).Filename
              ListBox.AddItem("LEST_DY", v ,y);
              ComboBox.AddItem("Comboday", String.Left(v, 2), "");
              end
              end
              [/html]

              و لكن باعتماد هذا التعديل وجب التعديل في ComboBox
              إلى :
              [html]p= tonumber(ComboBox.GetItemText("Comboday", e_Selection));
              for i =1,ListBox.GetCount("LEST_DY") do
              x = String.Left(ListBox.GetItemText("LEST_DY", i), 2)
              x= tonumber(x);
              result = String.Compare(x, p);
              if result ==0 then
              ListBox.SelectItem("LEST_DY", i);
              end
              end[/html]


              وعلى مستوى اليست بوكس ساعيد كتابة ما كتبت سابقا
              كود PHP:
               SelecLES = ListBox.GetSelected("LEST_DY");
              TexLES = ListBox.GetItemText("LEST_DY", SelecLES[1]);
              DatLES  = ListBox.GetItemData("LEST_DY",SelecLES[1]);
              path_parts = String.SplitPath(DatLES);
              -----------
              File.Rename(DatLES, path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML");
              Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML");  
              Application.Sleep(10);
              File.Rename(path_parts.Drive..path_parts.Folder..path_parts.Filename..".HTML", DatLES); 
              موفق :abc_145:
              ---------------------------------
              شكرا لك استاذي الكريم
              ابداع وتميز كالعاده



              تعليق

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

                --------------------------
                بسم الله الرحمن الرحيم
                شكرا لك استاذ المهاجر
                استفدت من رابط الموضوع
                طبقة هذا الكود على حالتي وكانت النتيجه ممتاز
                كود PHP:
                date = "%d%d"
                ss = (string.sub(n, string.find(n, date))) 
                موفق بإذن الله ... لك مني أجمل تحية .

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

                موفق

                تعليق

                • #68
                  شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

                  تعليق

                  • #69
                    بسم الله الرحمن الرحيم
                    شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

                    تعليق

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

                    مواضيع تهمك

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