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

**المـهاجر المـهاجر** · 25-08-2017, 01:44 AM

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

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

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

باتيرن = 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:40 AM

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]

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

**ياسرهتهت ياسرهتهت** · 25-08-2017, 03:02 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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%

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-08-2017, 03:03 AM

و اذ أردت من البداية عنصر 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:

**ياسرهتهت ياسرهتهت** · 25-08-2017, 03:06 AM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

باتيرن = 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)))

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

**ياسرهتهت ياسرهتهت** · 25-08-2017, 05:29 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

و اذ أردت من البداية عنصر 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:

---------------------------------
شكرا لك استاذي الكريم
ابداع وتميز كالعاده

**المـهاجر المـهاجر** · 26-08-2017, 01:40 PM

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

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

كود PHP:


date = "%d%d"

ss = (string.sub(n, string.find(n, date)))

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

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

موفق

**نجمة ليبيا نجمة ليبيا** · 30-08-2017, 05:25 AM

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

محمد بن أحمد أبو حذيفة · 30-08-2017, 07:09 AM

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

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك