طلب مساعدة في التعديل على كود البحث وحفظ ملف mp3

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

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

المف مرفق

اريد كود لحفظ ملف mp3 من ليست بوكس الى الجهاز

وكذلك التعديل على كود البحث لانه لا يظهر رسالة بعد وجود المطلوب

[Haitham.2012]

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

بالتوفيق

[Haitham.2012]

سؤال .. اين ستكون ملفات ال mp3 التي سوف تبحث عنها ؟؟ هل داخل تجميعيتك ؟؟

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

بارك الله فيك

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

[رانيا حسن]

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

[عبود عبود]

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

بالنسبة لكود زر البحث سيكون كالتالى :

--
ListBox.DeleteItem("ListBox2", -1);
tx = Input.GetText("Input1");
if tx~="" then
cn = ListBox.GetCount("ListBox1");
if cn~=-1 then
for c = 1, cn do
t = ListBox.GetItemText("ListBox1", c);
if t~="" then
if t==tx then
d = ListBox.GetItemData("ListBox1", c);
ListBox.AddItem("ListBox2", tx, d);
end
end
end
ListBox.SetUpdate("ListBox2", true);
end
else
Dialog.Message("Notice", "ÃßÊÈ ÇáßáãÉ ÇáãÑÇÏ ÇáÈÍË ÚäåÇ ÃæáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

وبالنسبة لكود حفظ مما يتم إختيارة من الكمبوبوكس إلى أى مكان يحددة المستخدم على الكمبيوتر سيكون كالتالى :

--
result = ComboBox.GetSelected("ComboBox1");
if result~=-1 then
data = ComboBox.GetItemData("ComboBox1", result);
if data~="" then
file = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", data..".mp3", "dat", false, false);
if file[1]~="CANCEL" then
File.Copy("AutoPlay\\Docs\\"..data, file[1], true, true, false, true, nil);
end
end
end


:abc_152: كل عام وأنتم بخير

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

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

بالنسبة لكود زر البحث سيكون كالتالى :

--
ListBox.DeleteItem("ListBox2", -1);
tx = Input.GetText("Input1");
if tx~="" then
cn = ListBox.GetCount("ListBox1");
if cn~=-1 then
for c = 1, cn do
t = ListBox.GetItemText("ListBox1", c);
if t~="" then
if t==tx then
d = ListBox.GetItemData("ListBox1", c);
ListBox.AddItem("ListBox2", tx, d);
end
end
end
ListBox.SetUpdate("ListBox2", true);
end
else
Dialog.Message("Notice", "ÃßÊÈ ÇáßáãÉ ÇáãÑÇÏ ÇáÈÍË ÚäåÇ ÃæáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

وبالنسبة لكود حفظ مما يتم إختيارة من الكمبوبوكس إلى أى مكان يحددة المستخدم على الكمبيوتر سيكون كالتالى :

--
result = ComboBox.GetSelected("ComboBox1");
if result~=-1 then
data = ComboBox.GetItemData("ComboBox1", result);
if data~="" then
file = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", data..".mp3", "dat", false, false);
if file[1]~="CANCEL" then
File.Copy("AutoPlay\\Docs\\"..data, file[1], true, true, false, true, nil);
end
end
end


:abc_152: كل عام وأنتم بخير





بارك اله فيك اخي عبود

لكن اظن انني لم اوصل لكم المطلوب جيدا


اولا
اريد زر لحفظ ملفات mp3 موجود في التجميعة ومعروضة في ليست بوكس على الجهاز واترك الخيار للمستعمل يححد مكان الحفظ

ثانيا

زر البحث

يبحث في اليست بوكس 1 ويعرض النتائج في اليست بوكس 2 ويظهر رسالة ان لم تكن هناك نتائج للبحث

المعذرة على الاطالة ورحمكم الله جميعا

[عبود عبود]

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

[ربيع]

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

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

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


بارك الله فيك تفضل


http://up.top4top.net/downloadf-160mbzz1-zip.html

[عبود عبود]

بارك الله فيك تفضل


http://up.top4top.net/downloadf-160mbzz1-zip.html

عند إجراء عملية التصدير كملف مفتوح إذا كنا لا نريد أن يتم حذف الملفات من أى فولدر يتم إزالة علامة الصح من أمام إسم الفولدر كما هو موضح بالصورة التالية يجب إزالة علامة الصح المظللة بدائرة حمراء :


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

ثم أعد رفع الملف المفتوح فضلا

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

المعذرة لم انتبه

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

http://up.top4top.net/downloadf-160evhy1-zip.html

[عبود عبود]

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

عموما سوف أعمل على ضبط الكود بدون ملفات صوتية وعليك المراجعة بعد ذلك

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

[عبود عبود]

إليك بالملف بعد عمل تعديل مناسب فى جميع الأكواد


http://www.mediafire.com/download/97q63hkz36f5wkb/تعديل%282%29.rar

عذرا للتأخير لضعف الإنترنت

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

إليك بالملف بعد عمل تعديل مناسب فى جميع الأكواد


المحتوى المخفي لايقتبس

عذرا للتأخير لضعف الإنترنت


بارك الله فيك

زر الحفظ يعمل بشكل جيد

لكن زر البحث لا يعمل عند البحث باستعمال حرف او حرفين اوحتى كلمة



اعطيك مثال

في اليست بوكس 1 توجد اسماء ملفت طويلة لكن تحوي كلمات مشتركة

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

[عبود عبود]

لكن زر البحث لا يعمل عند البحث باستعمال حرف او حرفين اوحتى كلمة

اعطيك مثال

في اليست بوكس 1 توجد اسماء ملفت طويلة لكن تحوي كلمات مشتركة

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

إذن يمكن أن يكون الكود كالتالى :
--
ListBox.DeleteItem("ListBox2", -1);
tx = Input.GetText("Input2");
x=false ;
if tx~="" then
cn = ListBox.GetCount("ListBox1");
if cn~=-1 then
for c = 1, cn do
t = ListBox.GetItemText("ListBox1", c);
if t~="" then
ntx = String.Left(t, String.Length(tx));
if ntx==tx then
d = ListBox.GetItemData("ListBox1", c);
ListBox.AddItem("ListBox2", t, d);
x=true ;
end
end
end
if x~=true then
Dialog.Message("Notice", "عفوا لم يتم إيجاد الكلمة التى تبحث عنها", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
ListBox.SetUpdate("ListBox2", true);
end
else
Dialog.Message("Notice", "من فضلك أكتب الكلمة المطلوب البحث عنها أولا ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

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

أو تضع هذا الكود فى الإينبوت فى الحدث " On Char " وتستغنى عن الزر فبمجرد كتابة حرف يتم البحث وتظهر النتائج .

أيهما تفضل ........... :abc_152:

ملحوظة الكود تم تجربتة على الأسماء باللغة الإنجليزية ولم يتم التجربة على العربية فقد صممتة للبحث من اليسار لليمين " حاجة كدة على السريع يعنى " :abc_065:

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

بارك الله فيك اخي عبود

لكن كود البحث لم ينجح مع اللغة العربية

[Haitham.2012]

بعد اذن اخي الامير ... يمكنك استخدام هذا الكود وان شاء الله يفي بالمطلوب

ListBox.DeleteItem("ListBox2", -1);

get_txt = Input.GetText("Input2");

search_ok = false

if get_txt == "" then

Dialog.Message("Notice", "حدد كلمة البحث", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

else

for i = 1 , ListBox.GetCount("ListBox1") do

if String.Find(ListBox.GetItemText("ListBox1", i), get_txt, 1, false) ~= -1 then

search_ok = true

ListBox.AddItem("ListBox2", ListBox.GetItemText("ListBox1", i), ListBox.GetItemData("ListBox1", i));

end -- if String.Find(ListBox.GetItemText("ListBox1", i), "get_txt", 1, false) ~= -1 then

end -- for i = 1 , count do

end -- if get_txt == "" then

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

if search_ok == false and get_txt ~= "" then

Dialog.Message("Notice", "لا يوجد نتيجه", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

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

بعد اذن اخي الامير ... يمكنك استخدام هذا الكود وان شاء الله يفي بالمطلوب

listbox.deleteitem("listbox2", -1);

get_txt = input.gettext("input2");

search_ok = false

if get_txt == "" then

dialog.message("notice", "حدد كلمة البحث", mb_ok, mb_iconinformation, mb_defbutton1);

else

for i = 1 , listbox.getcount("listbox1") do

if string.find(listbox.getitemtext("listbox1", i), get_txt, 1, false) ~= -1 then

search_ok = true

listbox.additem("listbox2", listbox.getitemtext("listbox1", i), listbox.getitemdata("listbox1", i));

end -- if string.find(listbox.getitemtext("listbox1", i), "get_txt", 1, false) ~= -1 then

end -- for i = 1 , count do

end -- if get_txt == "" then

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

if search_ok == false and get_txt ~= "" then

dialog.message("notice", "لا يوجد نتيجه", mb_ok, mb_iconinformation, mb_defbutton1);

end



بارك الله فيك
الكود يعمل بشكل جيد

[عبود عبود]

:abc_152::abc_138::abc_152:

بالتوفيق للجميع

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

بارك الله فيكم جميعا وتقبل الله منا ومنكم صالح الاعمال

[احمد كبه]

شكرا جزيلا

[الاغواط]

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