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

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

زر الحفظ لحفظ المف الصوتي المحدد والتفريغ الخاص به

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

بارك الله فيك ورحمك

تمام بقي امرين اثنين ان كان وقتك يسمح اخي عبود


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

الامر الثاني في زر الحف الخاص بالتفريغ اقصد ايقوانة النصر التي فوق البرقراف

هل ممكن نجعله يتعامل مع اليست بوكس الثاني كما يتعامل مع اليست بوكس الاول

لانه اذا ححدنا العنصر من اليست بوكس2 فلا يحفظ الرز مايكتبه المستخدم للتجميعه لان زر الحفظ يعمل مع اليست بوكس 1 فقط

بسيطة جدااا ......... تم عمل الازم

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

بارك الله فيك ورحمك

انا اقصد الزر المشار اليه في الصورة المرفقة

تم عمل اللازم ولكن لم أجرب المعاينة
عاين أنت وأخبرنى بالنتيجة

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

تمام

الا انه توجد جزئية صغيرة

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

ك\لك بالرغم من ان كود البحث يستبدل الاحرف اقصد انا ابحث عن أسباب لكن كتبتها اسباب

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

الكود به بعض علامات الاستفهام لم افهم المعنى منها


[HTML]if e_Key== 13 then

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

ListBox.DeleteItem("ListBox2", 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("ListBox2", serch1 , pat);
elseif String.Find(nam2,name2 , 1) == -1 and k==#liste then
Dialog.Message("Notice", "The file not exisit") ;
end
-----------------------------------------------
end
end
[/HTML]


السلام عليكم
اعتذر منكم
سأنصرف الآن لان الوقت متأخر
أعانكم الله

حسنا الى اللقاء للاستكمال غدا إن قدر الله لنا اللقاء

بارك الله فيك وفي عملك

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

نعم في جميع الملفات الموجود في مجلدات داخل ملف الاوديو

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


[hide]http://www.mediafire.com/file/47i9qg...A7%D8%B2_6.rar[/hide]

بارك الله فيك

لكن انظر الصورة

توجد مشكلة عند الضغط على زر حفظ التفريغ
وكذلك الأفضل جعل البحث عند الضغط على زر انتري

تم عمل اللازم
عاين وأخبرنى

[hide]http://www.mediafire.com/file/wwrk77...A7%D8%B2_7.rar[/hide]

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

ينقص التنبيه بعدم وجود نتيجة في زر البحث

لماذا نزعت الكود الذي يستدعي التفريغ الى الريش تكست
الكود هو

[HTML]num = ListBox.GetSelected("ListBox1");
--SONG = ListBox.GetItemData("ListBox1", num[1]);
SONG = ListBox.GetItemText("ListBox1", num[1]);

Paragraph.SetText("Paragraph1", SONG);
-------------------------
tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");
if tfreg == false then
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\ÇáÇÝÊ&#2 09;ÇÖí.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end[/HTML]