بارك الله فيك
تمام
هل ممكن ان نظيف تنبيه في حالة عدم وجود نتيجة للبحث

يعني ان رغم طول الملفات البحث يجري تمام ؟

عدل الكود في السطر 28 من زر البحث اي كو الشرط

بارك الله فيك
بالنسبة للبحث
استعملت اطول كلمة

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

وتم ايجاد النتيجة

لكن التعديل الاخير لا يعمل بسكل جيد يعطي في كل مرة لا توجد نتيجة

لاحظ جيدا قد اضغت كلمة break في اخر السكر الديالوج
اضفها هي صيغة الخروج من التكرار

انلم افهم جيد
انا نسحت الكود الدي وضعته
ووضعته مكان ه\ا الكود

[HTML]if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", serch1 , pat);
end [/HTML]

صحيح لقد متبت ثم عدلت بعد ان نسخت الكود .اسف

الكود كله في البحث

كلمة break كما قلت تنهي دروان ادالة التكرارية for

بارك الله فيك
الكود بهذه الطريقة يعطي دائما لا توجد نتيجة

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

اقصد

lua

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

نعم يعطي
نتائج جيدة
لكن بعد الاضافة لايعطي نتائج

كن هل ممكن تصدير الكود بصيغة lua
لانه اذا راجعت الكود الذي ارفقته تجد به بعض رموز

ليست رموز لكنه قضية نسخ لصق و لم يمت التعرف على اللغة فقط
ساعيد الكود
[html]
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

ListBox.DeleteItem("ListBox1", LB_ALLITEMS)
serch = Input.GetText("Input1");
------------------------------------------------------
name1 = String.Replace(serch, "?", "C"); name1 = String.Replace(name1, "?", "C");
name1 = String.Replace(name1, "A", "C"); name1 = String.Replace(name1, "?", "?");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
if Dlettre == "?" then name2 = String.Replace(name1, "?", "E");
elseif Dlettre == "?" then name2 = String.Replace(name1, "?", "?"); else name2 = name1; end
---------------------------------
liste = TextFile.ReadToTable("AutoPlay\\Docs\\titre.txt");
patch = TextFile.ReadToTable("AutoPlay\\Docs\\patch.txt");

for k,serch1 in pairs(liste) do
pat = patch[k];



nam1 = String.Replace(serch1, "?", "C"); nam1 = String.Replace(nam1, "?", "C");
nam1 = String.Replace(nam1, "A", "C"); nam1 = String.Replace(nam1, "?", "A");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
if Dlettr == "?" then nam2 = String.Replace(nam1, "?", "?");
elseif Dlettr == "?" then nam2 = String.Replace(nam1, "?", "E"); else nam2 = nam1; end
----------------------------
pat = patch[k];
-----------------------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , pat);
else
Dialog.Message("Notice", "The file not exisit") break
end
-----------------------------------------------
end ;
[/html]

الان في الديالوج حول الكتابة الى ما تريد

عند نزع هذا الكود

[HTML] else

Dialog.Message("Notice", "The file not exisit") break[/HTML]
يعمل بشكل جيد لكن بوجوده لا يعمل

الله اعلم ...منطقيا يجب ان يعمل
لكن الله غالب
اذ لم تجد له حلا فاحذفه و كفى المؤمنين شر القتال

بارك الله فيك اجدت ووفيت رحمك الله

ليس لي حل الا كما قلت

اسال الله لك التوفيق والسداد

بارك الله فيك

هل يمكن عند تحديد عنصر من ليست بوكس 1 يتم إلغاء التحديد في لليست بوكس 2