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

[ياسرهتهت]

بسم الله الرحمن الرحيم
هـــــــــــــــــــذا الكود :

Selecday = ComboBox.GetSelected("ComboBox1");
N_Texday = ComboBox.GetItemText("ComboBox1", Selecday);
p= String.ToNumber(N_Texday);
if p <= 9 then
p = "0"..p
else
p = p
end
h = ListBox.FindItem("ListBox1", -1, String.Left( LB_BYTEXT, 2), p.."*");
if h ~= -1 then
ListBox.SelectItem("ListBox1", h);
else
Dialog.Message("Notice", "Your message here.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

---------------------------
طعبا الهدف من الكود
التحديد في ( ListBox ) او ايجاد ( ItemText ) للــــ ( ListBox )
بواسطة الـــ ( ItemText ) للـــــــــ ( ComboBox )


مع ملاحظة هذا شكل القائمة في ( ListBox ) و( ComboBox )

https://f.top4top.net/p_6010svqw1.jpg https://f.top4top.net/p_601ge65d1.jpg


الكود شغال 100 % لكن اشعر انه مش دقيق ؟

الســــــؤال : ما هو الكود المثالي والافضل في هذه الحالة ؟

ثانيا : لماذا لا يعمل الكود اذا ازلت العلامة "*"
مع انني في الجزء String.Left( LB_BYTEXT, 2) المفروض انه تم تحديد المطلوب بدقة
اي المفروض لا احتاج وضع العلامة فقط ابحث بالاول والثاني ؟ هل هذا الكلام صحيح ؟


الملف المفتوح للتوضيح والتجربة

https://up.top4top.net/downloadf-601k1el31-rar.html

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

:abc_152::abc_152:
------------------

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
أخي بدى لي أن هذا الطلب ياحبذا لو يرفق بملف مفتوح
حتى تضع لمن سيحاول في الصورة وخاصة بتوفر المعطيات
(نوعا ما غير واضح لي الطلب .. أتحدث عن نفسي فمعذرة :abc_139:)

[ياسرهتهت]

السلام عليكم ورحمة الله وبركاته
أخي بدى لي أن هذا الطلب ياحبذا لو يرفق بملف مفتوح
حتى تضع لمن سيحاول في الصورة وخاصة بتوفر المعطيات
(نوعا ما غير واضح لي الطلب .. أتحدث عن نفسي فمعذرة :abc_139:)

--------------------------------------------------
بسم الله الرحمن الرحيم
وعليكم السلام ورحمة الله وبركاته
تفضل استاذنا الكريم
هذا الملف المفتوح وقد تم ارفاقة بالموضوع
https://up.top4top.net/downloadf-601k1el31-rar.html
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138:

[ثامر أبو بلقيس]

--------------------------------------------------
بسم الله الرحمن الرحيم
وعليكم السلام ورحمة الله وبركاته
تفضل استاذنا الكريم
هذا الملف المفتوح وقد تم ارفاقة بالموضوع
https://up.top4top.net/downloadf-601k1el31-rar.html
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138:

في البداية حاولت استعمال الملف أي نعم كما ذكرت أنت ملف RichText لا يتم استيرادها
للعنصر RichText1
--------------------
لكن بعدما فتحت الووورد عندي و نسخت احدى ملفاتك وقمت حفظه بصيغة rtf
تم فتحه عادي وظهوره في عنصر RichText1

جرب لعل الخلل في ملفات rtf لعلها محولة برمجيا أو شيء من هذا القبيل :abc_139:

[عبود عبود]

الملفات ذات إمتداد rtf مع إنها فى برمجتها هى htm وعاوز تعرضها فى ريتش تكست ؟

[ياسرهتهت]

في البداية حاولت استعمال الملف أي نعم كما ذكرت أنت ملف RichText لا يتم استيرادها
للعنصر RichText1
--------------------
لكن بعدما فتحت الووورد عندي و نسخت احدى ملفاتك وقمت حفظه بصيغة rtf
تم فتحه عادي وظهوره في عنصر RichText1

جرب لعل الخلل في ملفات rtf لعلها محولة برمجيا أو شيء من هذا القبيل :abc_139:

------------------------------
بسم الله الرحمن الرحيم
نعم هي صيغتها hml وانا حولت الصيغة
ما هي اقضل طريقة لعرضها وهي بنفس الصورة المرفقة في الملف المفتوح ؟ وكيف ؟

[ياسرهتهت]

الملفات ذات إمتداد rtf مع إنها فى برمجتها هى htm وعاوز تعرضها فى ريتش تكست ؟

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

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

[عبود عبود]

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

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


فى الليست بوكس
إحذف العنصر ريتش تكست وإستعمل عنصر الويب
وإستبدل السطر المحذوف بالعلامة --
بالسطر التالى له

--RichText.LoadFromFile("RichText1", DatLES);
Web.LoadURL("Web1", DatLES);

ثم نستكمل فهم سؤالك بالتوضيح لنا ما هو المطلوب بعد ذلك

[ياسرهتهت]

فى الليست بوكس
إحذف العنصر ريتش تكست وإستعمل عنصر الويب
وإستبدل السطر المحذوف بالعلامة --
بالسطر التالى له

--richtext.loadfromfile("richtext1", datles);
web.loadurl("web1", datles);

ثم نستكمل فهم سؤالك بالتوضيح لنا ما هو المطلوب بعد ذلك

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

[عبود عبود]

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

الملفات ذات إمتدات rtf فقط كمسمى خارجى ولم تتغير فهى htm برمجيا فى ملفك المفتوح
وتفتح فى عنصر الويب عادى جدااااااا فلا يهم الإمتداد ما دام البرمجة كما هى htm :abc_065: فى ملفك المفتوح

http://i.imgur.com/QTNeCbO.png

[ياسرهتهت]

الملفات ذات إمتدات rtf فقط كمسمى خارجى ولم تتغير فهى htm برمجيا فى ملفك المفتوح
وتفتح فى عنصر الويب عادى جدااااااا فلا يهم الإمتداد ما دام البرمجة كما هى htm :abc_065: فى ملفك المفتوح

http://i.imgur.com/qtnecbo.png

-------------------------------------
لكن عندي لا تريد ان تفتح وحاولت وحاولت كثيرا حتي قبل طرح التسائل

اين المشكله قد كون

[عبود عبود]

-------------------------------------
لكن عندي لا تريد ان تفتح وحاولت وحاولت كثيرا حتي قبل طرح التسائل

اين المشكله قد كون

هذا هو ملفك المفتوح قم بالمعاينة والإختيار من الليست بوكس ثم نستكمل بعد ذلك

[ياسرهتهت]

هذا هو ملفك المفتوح قم بالمعاينة والإختيار من الليست بوكس ثم نستكمل بعد ذلك

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

نفس الشي لم يفتح استاذ عبود
لا ادري ما السبب :abc_102:

[عبود عبود]

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

نفس الشي لم يفتح استاذ عبود
لا ادري ما السبب :abc_102:

طيب ارفع صورة أو فيديو قصير لما يحدث معك
وأيضا يمكننا العرض فى عنصر أى إكس بلور بدلا من عنصر الويب

[ياسرهتهت]

طيب ارفع صورة أو فيديو قصير لما يحدث معك
وأيضا يمكننا العرض فى عنصر أى إكس بلور بدلا من عنصر الويب

------------------------------------
كيف اعرض بـــــ IExplorer

[ثامر أبو بلقيس]

للأسف أخي ياسر
حاولت كثيرا
لا يمكن (رأي شخصي)
بالتوفيق :abc_138:

[عبود عبود]

------------------------------------
كيف اعرض بـــــ iexplorer

عاين الملف فى المرفق

[عبود عبود]

للأسف أخي ياسر
حاولت كثيرا
لا يمكن (رأي شخصي)
بالتوفيق :abc_138:

طيب عاين المرفق الأخير لى 17# والإختيار من الليست بوكس

[ياسرهتهت]

عاين الملف فى المرفق

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

:abc_102: من الواضح ان المشكلة في جهازي
لم يفتح معي شاهد الفيديو في المرفقات

[ياسرهتهت]

للأسف أخي ياسر
حاولت كثيرا
لا يمكن (رأي شخصي)
بالتوفيق :abc_138:

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

[ثامر أبو بلقيس]

طيب عاين المرفق الأخير لى 17# والإختيار من الليست بوكس

الملف لا يعمل عندي هذا لا يعني أبدا أن عملك فيه خطأ لا

هناك مستوى أمان لفتح ملفات على مستوى عنصر الويب

لا يمكن تجاوزه برمجيا عندك أضن متجاوز يدويا (للأسف لا أجيد شرح ما أقول لكن أضن أننا تناولنا
موضوعا مشابها قديما عند محاولة فتح ملفات الووورد في عنصر الويب لا أذكر أين ؟ )

- بالنسبة للعنصر المختار(في ملفك الأخير) ناجحه عندك وفشله عند غيرك لملفات قد لاتكون متوفرة في أجهزة أخرى
حدث ذلك لي مرة مع الاستاذ هيثم عنده يستطيع استضافة Mozilla Firefox عندي لحد الساعة لم أنجح في ذات العنصر
بارك الله فيك أستاذ :abc_138:

[ثامر أبو بلقيس]

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

لا لم أنجح ... لم أوفق في ذلك

[عبود عبود]

الملف لا يعمل عندي هذا لا يعني أبدا أن عملك فيه خطأ لا

هناك مستوى أمان لفتح ملفات على مستوى عنصر الويب

لا يمكن تجاوزه برمجيا عندك أضن متجاوز يدويا (للأسف لا أجيد شرح ما أقول لكن أضن أننا تناولنا
موضوعا مشابها قديما عند محاولة فتح ملفات الووورد في عنصر الويب لا أذكر أين ؟ )

- بالنسبة للعنصر المختار(في ملفك الأخير) ناجحه عندك وفشله عند غيرك لملفات قد لاتكون متوفرة في أجهزة أخرى
حدث ذلك لي مرة مع الاستاذ هيثم عنده يستطيع استضافة mozilla firefox عندي لحد الساعة لم أنجح في ذات العنصر
بارك الله فيك أستاذ :abc_138:

يا أخى العزيز الملفات بأسمائها وإمتدادها كما هى فى الملف المفتوح قم بفتحها بعنصر النوت باد أو عنصر فتح ملفات التكست العادية سوف تكتشف أنها ما زالت كما هى إتش تى إم برمجيا
يعنى الإمتداد لا دخل له إطلاقا

[عبود عبود]

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

:abc_102: من الواضح ان المشكلة في جهازي
لم يفتح معي شاهد الفيديو في المرفقات



قمت بزيادة كود ديالوج مسج لتوضيح المسار الذى يتم الحصول علية فى كل إختيار أريد أن أرى فيديو مماثل للسابق وضعة ولكن على هذا المرفق

[ياسرهتهت]

يا أخى العزيز الملفات بأسمائها وإمتدادها كما هى فى الملف المفتوح قم بفتحها بعنصر النوت باد أو عنصر فتح ملفات التكست العادية سوف تكتشف أنها ما زالت كما هى إتش تى إم برمجيا
يعنى الإمتداد لا دخل له إطلاقا
-------------------------------------
انا عندي الملفات إتش تى إم ( html ) المحفوظة او الناشئه بالبرنامح لا تفتح في الويب

[ياسرهتهت]

قمت بزيادة كود ديالوج مسج لتوضيح المسار الذى يتم الحصول علية فى كل إختيار أريد أن أرى فيديو مماثل للسابق وضعة ولكن على هذا المرفق

=========================================
تفضل استاذ عبود

https://up.top4top.net/downloadf-601okum41-rar.html

[ثامر أبو بلقيس]

توجد فكرة قد تساعدك أخي ياسر لا أعرف

[عبود عبود]

-------------------------------------
انا عندي الملفات إتش تى إم ( html ) المحفوظة او الناشئه بالبرنامح لا تفتح في الويب

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

[ثامر أبو بلقيس]

تكمن في الكود File.Rename و هي تحول الملف المراد فتحه
بنفس التسمية لكن بلاحقة HTML
ساعتها ستفتح الملفات بسهولة باستعمال الكود Web.LoadURL
----------
اقرأ جيدا ما كتبت لك موفق :abc_139:

[ياسرهتهت]

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

--------------------------------
بسم الله الرحمن الرحيم
النسخة 11

[عبود عبود]

=========================================
تفضل استاذ عبود

https://up.top4top.net/downloadf-601okum41-rar.html

مش عارف أحمل يمكن السيرفر مشغول ينفع تغيره ؟

[ياسرهتهت]

تكمن في الكود File.Rename و هي تحول الملف المراد فتحه
بنفس التسمية لكن بلاحقة HTML
ساعتها ستفتح الملفات بسهولة باستعمال الكود Web.LoadURL
----------
اقرأ جيدا ما كتبت لك موفق :abc_139:
-------------------------------------
بسم الله الرحمن الرحيم
استاذي انا الملفات الاصلية الناتجة عندي هي HTML وايضا لم بفتحها Web.LoadURL
لهذا حولتها لــــ RIF حتى افتحها بالورد

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

[ياسرهتهت]

مش عارف أحمل يمكن السيرفر مشغول ينفع تغيره ؟

في المرفقات

[عبود عبود]

تكمن في الكود File.Rename و هي تحول الملف المراد فتحه
بنفس التسمية لكن بلاحقة HTML
ساعتها ستفتح الملفات بسهولة باستعمال الكود Web.LoadURL
----------
اقرأ جيدا ما كتبت لك موفق :abc_139:

من أين نقول أنه لو قمنا بتغيير الإمتداد من rtf إلى html سوف يفتح فى عنصر الويب
مع أن كلامك السابق عكس هذا ....... عموما هو كلام منطقى ولكن سبق أن ذكرت لكم أنه غير مؤثر مع الملف المفتوح الأخير

[عبود عبود]

طيب إنتظر أخى ياسر هعمل ملف مفتوح بسيط تقوم بمعاينته وتقول لى ماذا يحدث هل الملف سوف يفتح فى عنصر الأى إكس بلور فى الملف ولا لا
وكن سريعا فى الرد على قدر ما تستطيع

[ثامر أبو بلقيس]

من أين نقول أنه لو قمنا بتغيير الإمتداد من rtf إلى html سوف يفتح فى عنصر الويب
مع أن كلامك السابق عكس هذا ....... عموما هو كلام منطقى ولكن سبق أن ذكرت لكم أنه غير مؤثر مع الملف المفتوح الأخير

لم أتناقض أستاذ هنااا طرحت فكرة ارجاع اللاحقة الاصلية للملف

فمثلا لو جرب الاخ ياسر الان هذا الكود في زر جديد

File.Rename("AutoPlay\\Docs\\08 -(August)\\15 - [الثلاثاء 15 08 2017].rtf", "AutoPlay\\Docs\\NewFile.HTML");
Web.LoadURL("Web1", "AutoPlay\\Docs\\NewFile.HTML");


قد تتضح صورة ماوددت الاشارة اليه على العموم موفقين :abc_139:

[المـهاجر]

ضع الكود التالى فى on select لليست بوكس
SelecLES = ListBox.GetSelected("LEST_DY");
TexLES = ListBox.GetItemText("LEST_DY", SelecLES[1]);
DatLES = ListBox.GetItemData("LEST_DY",SelecLES[1]);

htm_str = TextFile.ReadToString(DatLES);
result = Web.LoadHTML("Web1", htm_str);

-- Test for error
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end

خبرنى بنجاح العملية او برسالة الخطأ
موفق

[ياسرهتهت]

لم أتناقض أستاذ هنااا طرحت فكرة ارجاع اللاحقة الاصلية للملف

فمثلا لو جرب الاخ ياسر الان هذا الكود في زر جديد

File.Rename("AutoPlay\\Docs\\08 -(August)\\15 - [الثلاثاء 15 08 2017].rtf", "AutoPlay\\Docs\\NewFile.HTML");
Web.LoadURL("Web1", "AutoPlay\\Docs\\NewFile.HTML");


قد تتضح صورة ماوددت الاشارة اليه على العموم موفقين :abc_139:

-------------------------------------------
بسم الله الرحمن الرحيم
100%
فتحت استاذي الكريم
:abc_152::abc_152:

[ثامر أبو بلقيس]

من أين نقول أنه لو قمنا بتغيير الإمتداد من rtf إلى html سوف يفتح فى عنصر الويب
مع أن كلامك السابق عكس هذا ....... عموما هو كلام منطقى ولكن سبق أن ذكرت لكم أنه غير مؤثر مع الملف المفتوح الأخير

بالتوفيــــق

[عبود عبود]

عاين الملف التالى بالضغط على الزر وقولى العنصر سوف يعرض معك أم لا

[ثامر أبو بلقيس]

ضع الكود التالى فى on select لليست بوكس
SelecLES = ListBox.GetSelected("LEST_DY");
TexLES = ListBox.GetItemText("LEST_DY", SelecLES[1]);
DatLES = ListBox.GetItemData("LEST_DY",SelecLES[1]);

htm_str = TextFile.ReadToString(DatLES);
result = Web.LoadHTML("Web1", htm_str);

-- Test for error
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end

خبرنى بنجاح العملية او برسالة الخطأ
موفق

ممتـــــــــــاز

[ياسرهتهت]

ضع الكود التالى فى on select لليست بوكس
SelecLES = ListBox.GetSelected("LEST_DY");
TexLES = ListBox.GetItemText("LEST_DY", SelecLES[1]);
DatLES = ListBox.GetItemData("LEST_DY",SelecLES[1]);

htm_str = TextFile.ReadToString(DatLES);
result = Web.LoadHTML("Web1", htm_str);

-- Test for error
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end

خبرنى بنجاح العملية او برسالة الخطأ
موفق
---------------------------------------------
بسم الله الرحمن الرحيم

100%

يعمل بشكل ممتاز

:abc_152::abc_152:

[ثامر أبو بلقيس]

شوف حل الأخ المهاجر أرى أنه رائع و أجمل
من شروعي في كتابة أكواد تعنى باعادة التسمية لحل الاشكال :abc_139:

[عبود عبود]

لم أتناقض أستاذ هنااا طرحت فكرة ارجاع اللاحقة الاصلية للملف

فمثلا لو جرب الاخ ياسر الان هذا الكود في زر جديد

file.rename("autoplay\\docs\\08 -(august)\\15 - [الثلاثاء 15 08 2017].rtf", "autoplay\\docs\\newfile.html");
web.loadurl("web1", "autoplay\\docs\\newfile.html");


قد تتضح صورة ماوددت الاشارة اليه على العموم موفقين :abc_139:

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

[ياسرهتهت]

عاين الملف التالى بالضغط على الزر وقولى العنصر سوف يعرض معك أم لا

----------------------------------
بسم الله الرحمن الرحيم
يعمل تماماً

[المـهاجر]

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

100%

يعمل بشكل ممتاز

:abc_152::abc_152:

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

[ياسرهتهت]

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

-------------------------
استاذ المهاجر
اريد تعليقك على الكود الموجود في الــــ ComboBox

ورايك واقضل صوره له

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

[عبود عبود]

----------------------------------
بسم الله الرحمن الرحيم
يعمل تماماً

إنتظر لم أكمل عاين الملف التالى وقولى هل يعمل أم لا

[ياسرهتهت]

إنتظر لم أكمل عاين الملف التالى وقولى هل يعمل أم لا

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

لا يعمل استاذ عبود
:abc_152:

[ثامر أبو بلقيس]

فقط للاستئناس
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.Fi lename..".HTML");
Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Fi lename..".HTML");

[عبود عبود]

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

لا يعمل استاذ عبود
:abc_152:

حسنا لا يعمل لديك فى جهازك إذا كان الإمتداد أو الاحقة rtf فقط يعمل إذا كان الإمتداد أو الاحقة htm أو html

فى الجهاز لدى يعمل على أى لاحقة

حسنا :abc_152:

[عبود عبود]

حسنا آخر تعليق لى اليوم هو :

عنصر IExplorer " أى إكس بلور " أفضل كثيراااااااا من عنصر Web " الويب " فى العرض .

طبعا بعدما تم حل المشكل السابق من طرف الأخوة
:abc_138:

[ياسرهتهت]

حسنا آخر تعليق لى اليوم هو :

عنصر IExplorer " أى إكس بلور " أفضل كثيراااااااا من عنصر Web " الويب " فى العرض .

:abc_138:
-------------------------------------------
بسم الله الرحمن الرحيم
شكرا لك استاذ عبود تعبتك اليوم كتير
بارك الله فيك
:abc_152::abc_152:

[ياسرهتهت]

فقط للاستئناس
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.Fi lename..".HTML");
Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Fi lename..".HTML");


---------------------------------------
لم يعمل معي استاذي الفاضل

:abc_138:

[ثامر أبو بلقيس]

سعدت كثيرا بهذه المناقشات ( مضى زمن طويل على مثل هاته الجلسات البرمجية )
بالتوفيق للجميع :abc_139:

[المـهاجر]

-------------------------
استاذ المهاجر
اريد تعليقك على الكود الموجود في الــــ ComboBox

ورايك واقضل صوره له

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

حسنا
h = ListBox.FindItem("LEST_DY", -1, String.Left(LB_BYTEXT,2), p);

خطأ
LB_BYTEXT ليس متغير نصى حتى تحاول اقتصاص محرفين من يساره
هو متغير رقمى يصف طريقة البحث
LB_BYTEXT عمليا = صفر

راجع
https://www.indigorose.com/webhelp/ams/Program_Reference/Actions/ListBox.FindItem.htm


طالما تريد البحث عن جزء محدد من النص
لابد من حلقة او استخدام باتيرن مع الدالة السابقة
موفق

[ثامر أبو بلقيس]

---------------------------------------
لم يعمل معي استاذي الفاضل

:abc_138:

لم يعمل الا اذا لم توفر عنصر الويب وجربته على ملف مازال فيه RichText1

موفق :abc_138:

[ياسرهتهت]

لم يعمل الا اذا لم توفر عنصر الويب وجربته على ملف مازال فيه RichText1

موفق :abc_138:

----------------------------------
بسم الله الرحمن الرحيم
كما اشرت استاذي
الخطا كان عندي

يعمل 100%
:abc_138::abc_138:

[ياسرهتهت]

حسنا
h = ListBox.FindItem("LEST_DY", -1, String.Left(LB_BYTEXT,2), p);

خطأ
LB_BYTEXT ليس متغير نصى حتى تحاول اقتصاص محرفين من يساره
هو متغير رقمى يصف طريقة البحث
LB_BYTEXT عمليا = صفر

راجع
https://www.indigorose.com/webhelp/ams/Program_Reference/Actions/ListBox.FindItem.htm


طالما تريد البحث عن جزء محدد من النص
لابد من حلقة او استخدام باتيرن مع الدالة السابقة
موفق

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

[ثامر أبو بلقيس]

----------------------------------
بسم الله الرحمن الرحيم
كما اشرت استاذي
الخطا كان عندي

يعمل 100%
:abc_138::abc_138:

وان أردت ارجاع الملفات لصيغتها المختارة بعد فتحها
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.Fi lename..".HTML");
Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Fi lename..".HTML");
Application.Sleep(10);
File.Rename(path_parts.Drive..path_parts.Folder..p ath_parts.Filename..".HTML", DatLES);

[المـهاجر]

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

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



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

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

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

موفق

[ثامر أبو بلقيس]

ComboBox --- on select
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

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

[ياسرهتهت]

ComboBox --- on select
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

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

[ثامر أبو بلقيس]

و اذ أردت من البداية عنصر ComboBox يستمد تسميته
من الملفات مباشرة أي لن تجد أرقاما لا تقابلها ملفات
في on show
أكتب هذا التعديل
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


و لكن باعتماد هذا التعديل وجب التعديل في ComboBox
إلى :
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


وعلى مستوى اليست بوكس ساعيد كتابة ما كتبت سابقا
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.Fi lename..".HTML");
Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Fi lename..".HTML");
Application.Sleep(10);
File.Rename(path_parts.Drive..path_parts.Folder..p ath_parts.Filename..".HTML", DatLES);

موفق :abc_145:

[ياسرهتهت]

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

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

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

موفق

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

[ياسرهتهت]

و اذ أردت من البداية عنصر ComboBox يستمد تسميته
من الملفات مباشرة أي لن تجد أرقاما لا تقابلها ملفات
في on show
أكتب هذا التعديل
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


و لكن باعتماد هذا التعديل وجب التعديل في ComboBox
إلى :
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


وعلى مستوى اليست بوكس ساعيد كتابة ما كتبت سابقا
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.Fi lename..".HTML");
Web.LoadURL("Web1", path_parts.Drive..path_parts.Folder..path_parts.Fi lename..".HTML");
Application.Sleep(10);
File.Rename(path_parts.Drive..path_parts.Folder..p ath_parts.Filename..".HTML", DatLES);

موفق :abc_145:
---------------------------------
شكرا لك استاذي الكريم
ابداع وتميز كالعاده
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_138:

[المـهاجر]

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



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

موفق

[نجمة ليبيا]

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

[محمد بن أحمد أبو حذيفة]

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