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

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

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

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



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


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





الملف مرفق (http://www.mediafire.com/file/rshvl9vbbvbvv5z/%D8%AA%D8%B9%D8%AF%D9%8A%D9%84.rar)

[عبد الهادي بهاب]

ممكن تسنفيد من هذا الموضوع

http://www.abc4web.net/vb/showthread.php?t=34004

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

ممكن تسنفيد من هذا الموضوع

http://www.abc4web.net/vb/showthread.php?t=34004

بارك الله فيك هل ممكن رابط اخر على الميدافر لها
http://www.abc4web.net/vb/showpost.php?p=305039&postcount=14

[عبد الهادي بهاب]

بارك الله فيك هل ممكن رابط اخر على الميدافر لها
http://www.abc4web.net/vb/showpost.php?p=305039&postcount=14

https://up.top4top.net/downloadf-6088d3041-rar.html

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

https://up.top4top.net/downloadf-6088d3041-rar.html
بارك الله فيك
يوجد خلل في البرنامج

السطر 8

Extension = {".dat",".avi",".mpg",".wmv",".asf",".mpeg",".mp4",".mpe",".3gp",".divx",".mov",".ts"};
Progress.SetCurrentPos("Progress1", 0);
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
sour =TextFile.ReadToTable("C:\\belkiss.txt");
--------
Progress.SetRange("Progress1", 0, #sour);

for i,n in pairs(sour) do
for ii,type in pairs(Extension) do
if String.SplitPath(n).Extension == type then
result = ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
Progress.SetCurrentPos("Progress1", Progress.GetCurrentPos("Progress1")+ i);

end
end

end
ايضا اظن ان الملفين مختلفين
انا اريد ان يبحث في مجلد معين بناءا على الكتابه فب الانبوت ويعرض الالنتائج في ليست بوكس

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

تم تدارك الخطا في تشغيل الاسطوانة كمسؤول
لكن بقيت مشكلة البحث لم اهظمها بعد

[عبد الهادي بهاب]

تم تدارك الخطا في تشغيل الاسطوانة كمسؤول
لكن بقيت مشكلة البحث لم اهظمها بعد

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

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

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

بارك الله فيك اخي

تقبل الله منا ومنكم

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

[عبد الهادي بهاب]

بارك الله فيك اخي

تقبل الله منا ومنكم

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

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


ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
SerchAudio = Input.GetText("Input1");
find = File.Find("AutoPlay\\Audio", "*.mp3", true, true);
for i,n in pairs(find) do
if SerchAudio == String.SplitPath(n).Filename then
ListBox.AddItem("ListBox1",String.SplitPath(n).Filename , n);
end
end

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

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


ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
SerchAudio = Input.GetText("Input1");
find = File.Find("AutoPlay\\Audio", "*.mp3", true, true);
for i,n in pairs(find) do
if SerchAudio == String.SplitPath(n).Filename then
ListBox.AddItem("ListBox1",String.SplitPath(n).Filename , n);
end
end



بارك الله فيك
الكود يعمل لكن غير كافي في نظري اقصد لا يبحث في كل المجموعات
انظر الملف الذي اعمل عليه
http://3rbup.com/949f1a009119055a


ايضا هذا الكود جيد جد للبحث

لكنه يبحث في المجدل اديوا فقط هل ممكن ان نعدل عليه

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

count = ListBox.GetCount("ListBox1");

for i = 1 , count 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

[عبد الهادي بهاب]

بارك الله فيك
الكود يعمل لكن غير كافي في نظري اقصد لا يبحث في كل المجموعات
انظر الملف الذي اعمل عليه
http://3rbup.com/949f1a009119055a


ايضا هذا الكود جيد جد للبحث

لكنه يبحث في المجدل اديوا فقط هل ممكن ان نعدل عليه

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

count = listbox.getcount("listbox1");

for i = 1 , count 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

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

[عبد الهادي بهاب]

بارك الله فيك
الكود يعمل لكن غير كافي في نظري اقصد لا يبحث في كل المجموعات
انظر الملف الذي اعمل عليه
http://3rbup.com/949f1a009119055a


ايضا هذا الكود جيد جد للبحث

لكنه يبحث في المجدل اديوا فقط هل ممكن ان نعدل عليه

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

count = listbox.getcount("listbox1");

for i = 1 , count 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


الكود يعمل فقط غير mp3 الى 3gp

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

الكود يعمل فقط غير mp3 الى 3gp

بارك الله فيك شكرا لم انتبه

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

ايضا الكود اي زعته لكل بالمشاركة
http://www.abc4web.net/vb/showpost.php?p=314003&postcount=10

يعتمد بالحث ولو بحرف هل ممكن ان نطور الكود الذي وضعته ليعتمد البحث بالحرف
ايضا ارى انه من الافضل ان نعرض النتائج في ليست بوكس اخرى ما راياك

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

[عبد الهادي بهاب]

http://www.abc4web.net/vb/showthread.php?t=35766

ممكن يفيدك

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

http://www.abc4web.net/vb/showthread.php?t=35766

ممكن يفيدك


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

[عبد الهادي بهاب]

تم تدارك الخطا في تشغيل الاسطوانة كمسؤول
لكن بقيت مشكلة البحث لم اهظمها بعد

جميل جدا ......لم تنتهي من هذه المرحلة ضع هذا الكود في on show الصفحة او في زر ما ......سيتم استدعاء كل الملفات الصونية في اليسبوكس 1
الان دور زر البحث نستفيد من الكود الذي يلغي الهمزات و النقط في التاة و الياء
ضع في زر الكود التالي :


ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------ÇáÈÍË Úä ÇáåãÒÉ æ ÇáÊÇÉ ÇáãÑÈæØÉ æ ÇáÒÇæ ÇáãåãÒÉ
name1 = String.Replace(serch, "Ã", "Ç");
name1 = String.Replace(name1, "Å", "Ç");
name1 = String.Replace(name1, "Â", "Ç");
name1 = String.Replace(name1, "Ä", "æ");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
---------------ÇáÈÍË Úä ÇáÈÇÁ ÇáãÞÕæÑÉ Ýí ÇæÇÎÑ ÇáßáãÉ
if Dlettre == "ì" then name2 = String.Replace(name1, "ì", "í");
elseif Dlettre == "å" then name2 = String.Replace(name1, "å", "É");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
serch1 = ListBox.GetItemText("ListBox1", i);
nam1 = String.Replace(serch1, "Ã", "Ç");
nam1 = String.Replace(nam1, "Å", "Ç");
nam1 = String.Replace(nam1, "Â", "Ç");
nam1 = String.Replace(nam1, "Ä", "æ");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
---------------ÇáÈÍË Úä ÇáÈÇÁ ÇáãÞÕæÑÉ Ýí ÇæÇÎÑ ÇáßáãÉ
if Dlettr == "ì" then nam2 = String.Replace(nam1, "ì", "í");
elseif Dlettr == "å" then nam2 = String.Replace(nam1, "å", "É");
else
nam2 = nam1;
end
patch = ListBox.GetItemData("ListBox1", i)
----------------ÇáãÞÇÑäÉ--------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", serch1 , patch);
end
-----------------------------------------------
end

سيتم البحث عن اي عنصر من اليسبوكس الاول ...يحتوي على الكلمة يضعها في اليسبوكس 2 مع مسارها في الداتا ليتم قراءة الصوت

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

جميل جدا ......لم تنتهي من هذه المرحلة ضع هذا الكود في on show الصفحة او في زر ما ......سيتم استدعاء كل الملفات الصونية في اليسبوكس 1
الان دور زر البحث نستفيد من الكود الذي يلغي الهمزات و النقط في التاة و الياء
ضع في زر الكود التالي :


ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------ÇáÈÍË Úä ÇáåãÒÉ æ ÇáÊÇÉ ÇáãÑÈæØÉ æ ÇáÒÇæ ÇáãåãÒÉ
name1 = String.Replace(serch, "Ã", "Ç");
name1 = String.Replace(name1, "Å", "Ç");
name1 = String.Replace(name1, "Â", "Ç");
name1 = String.Replace(name1, "Ä", "æ");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
---------------ÇáÈÍË Úä ÇáÈÇÁ ÇáãÞÕæÑÉ Ýí ÇæÇÎÑ ÇáßáãÉ
if Dlettre == "ì" then name2 = String.Replace(name1, "ì", "í");
elseif Dlettre == "å" then name2 = String.Replace(name1, "å", "É");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
serch1 = ListBox.GetItemText("ListBox1", i);
nam1 = String.Replace(serch1, "Ã", "Ç");
nam1 = String.Replace(nam1, "Å", "Ç");
nam1 = String.Replace(nam1, "Â", "Ç");
nam1 = String.Replace(nam1, "Ä", "æ");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
---------------ÇáÈÍË Úä ÇáÈÇÁ ÇáãÞÕæÑÉ Ýí ÇæÇÎÑ ÇáßáãÉ
if Dlettr == "ì" then nam2 = String.Replace(nam1, "ì", "í");
elseif Dlettr == "å" then nam2 = String.Replace(nam1, "å", "É");
else
nam2 = nam1;
end
patch = ListBox.GetItemData("ListBox1", i)
----------------ÇáãÞÇÑäÉ--------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", serch1 , patch);
end
-----------------------------------------------
end سيتم البحث عن اي عنصر من اليسبوكس الاول ...يحتوي على الكلمة يضعها في اليسبوكس 2 مع مسارها في الداتا ليتم قراءة الصوت



بارك الله فيك
الكود هذا
Extension = {".dat",".avi",".mpg",".wmv",".asf",".mpeg",".mp4",".mpe",".3gp",".divx",".mov",".ts"}; Progress.SetCurrentPos("Progress1", 0); ListBox.DeleteItem("ListBox1",LB_ALLITEMS); liste = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder); DLL.CallFunction("AutoPlay\\Docs\\THAMEUR_find.dll", "THAMEUR_find", "\""..liste.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL); sour =TextFile.ReadToTable("C:\\belkiss.txt"); -------- Progress.SetRange("Progress1", 0, #sour); for i,n in pairs(sour) do for ii,type in pairs(Extension) do if String.SplitPath(n).Extension == type then result = ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n ); Progress.SetCurrentPos("Progress1", Progress.GetCurrentPos("Progress1")+ i); end end end

يستدعي الملفات من الجهاز وليس الموجودة في مجدل الاوديو

اياض كود البحث الاخير لايجد نتيجة الا اذا حدد المجلد من

ComboBox1


فهل الخلل في الاكواد ام عندي

علما انني اضفت الكود الاول في الصفحة
on show
والكود الثاني في زر البحث

[عبد الهادي بهاب]

بارك الله فيك7

جرب هذا

في onshow

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
---------------------------
end
end


ثم في ظر البحث الكود السابق

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

7

جرب هذا

في onshow

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
---------------------------
end
end
ثم في ظر البحث الكود السابق


بارك الله فيك اخي
الكود يستدعي الملفات مباشرة الى اليست بوكس

لقد نسيت اخي انني اريد ان استدعي المجلدات الموجود في مجدل الاوديو الى ComboBox1 ثم المستخدم هو من يحدد اي مجلد يستمع منه

وبالتالي فاين الفرق بين الكودين التاليين

ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------Ç?E?E ?? C????E ? C?ECE C???E??E ? C??C? C?????E
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) ;
---------------Ç?E?E ?? C?EC? C??????E ?? C?CI? C????E
if Dlettre == "?" then name2 = String.Replace(name1, "?", "?");
elseif Dlettre == "?" then name2 = String.Replace(name1, "?", "E");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
serch1 = ListBox.GetItemText("ListBox1", i);
nam1 = String.Replace(serch1, "?", "C");
nam1 = String.Replace(nam1, "?", "C");
nam1 = String.Replace(nam1, "A", "C");
nam1 = String.Replace(nam1, "?", "?");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
---------------Ç?E?E ?? C?EC? C??????E ?? C?CI? C????E
if Dlettr == "?" then nam2 = String.Replace(nam1, "?", "?");
elseif Dlettr == "?" then nam2 = String.Replace(nam1, "?", "E");
else
nam2 = nam1;
end
patch = ListBox.GetItemData("ListBox1", i)
----------------Ç???C??E--------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", serch1 , patch);
end
-----------------------------------------------
end

والكود


ListBox.DeleteItem("ListBox2", -1);
get_txt = Input.GetText("Input3");
search_ok = false
if get_txt == "" then
Dialog.Message("Notice", "حدد كلمة البحث", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
count = ListBox.GetCount("ListBox1");
for i = 1 , count 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
هل هناك فرق كبير


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

[عبد الهادي بهاب]

فيه ملف مفتوح للاستاذ عبود يفي بالغرض

http://www.abc4web.net/vb/showthread.php?p=305646#post305646

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

فيه ملف مفتوح للاستاذ عبود يفي بالغرض

http://www.abc4web.net/vb/showthread.php?p=305646#post305646

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

[عبد الهادي بهاب]

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

كود البحث يعمل عادي مدام ان اسماء الملفات تظهر في اليسبوكس
---------
دعك من الكومبوكس .....حاليا
---------
في المشاركة السابقة ------ضع كزد الاستدعاء في زر و كود البحث قي زر البحث
هل الجزئية هذه تعمل ؟ انا عندي عادي يعرض كل المحتوى سوءا كانت ملفات mp3 او 3gp ستظهر في اليس 1
زر البحث يبحث في اليس1 ليعرض في اليس2
----------------
لما ننتهي سننتقل الى عرض في الكومبوكس

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

كود البحث يعمل عادي مدام ان اسماء الملفات تظهر في اليسبوكس
---------
دعك من الكومبوكس .....حاليا
---------
في المشاركة السابقة ------ضع كزد الاستدعاء في زر و كود البحث قي زر البحث
هل الجزئية هذه تعمل ؟ انا عندي عادي يعرض كل المحتوى سوءا كانت ملفات mp3 او 3gp ستظهر في اليس 1
زر البحث يبحث في اليس1 ليعرض في اليس2
----------------
لما ننتهي سننتقل الى عرض في الكومبوكس

نعم يعمل ويتم استدعاء الملفات الى اللسيت بوكس 1 ويعض نتائج البحث في الليست بوكس2

تذكير فقط

on show للصفحة يوجدا
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
---------------------------
end
end


زر الحبث يوجد
ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------Ç?E?E ?? C????E ? C?ECE C???E??E ? C??C? C?????E
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) ;
---------------Ç?E?E ?? C?EC? C??????E ?? C?CI? C????E
if Dlettre == "?" then name2 = String.Replace(name1, "?", "?");
elseif Dlettre == "?" then name2 = String.Replace(name1, "?", "E");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
serch1 = ListBox.GetItemText("ListBox1", i);
nam1 = String.Replace(serch1, "?", "C");
nam1 = String.Replace(nam1, "?", "C");
nam1 = String.Replace(nam1, "A", "C");
nam1 = String.Replace(nam1, "?", "?");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
---------------Ç?E?E ?? C?EC? C??????E ?? C?CI? C????E
if Dlettr == "?" then nam2 = String.Replace(nam1, "?", "?");
elseif Dlettr == "?" then nam2 = String.Replace(nam1, "?", "E");
else
nam2 = nam1;
end
patch = ListBox.GetItemData("ListBox1", i)
----------------Ç???C??E--------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", serch1 , patch);
end
-----------------------------------------------
end



الى غاية هنا النتيجة 100%

بغض النظر على الكمبوبوكس كما قلت

[عبد الهادي بهاب]

نعم يعمل ويتم استدعاء الملفات الى اللسيت بوكس 1 ويعض نتائج البحث في الليست بوكس2

تذكير فقط

on show للصفحة يوجدا
listbox.deleteitem("listbox1", lb_allitems);
audio_fold = folder.find(_sourcefolder.."\\autoplay\\audio\\", "*", false, nil);
if audio_fold~=nil then
for i,s in pairs(audio_fold)do
---------------------------
files = file.find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
listbox.additem("listbox1", string.splitpath(s).filename, s);
end
end
-----------------------------
file = file.find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
listbox.additem("listbox1", string.splitpath(s).filename, s);
end
end
---------------------------
end
end


زر الحبث يوجد
listbox.deleteitem("listbox2", lb_allitems)
serch = input.gettext("input1");
----------------Ç?e?e ?? C????e ? C?ece c???e??e ? C??c? C?????e
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) ;
---------------Ç?e?e ?? C?ec? C??????e ?? C?ci? C????e
if dlettre == "?" then name2 = string.replace(name1, "?", "?");
elseif dlettre == "?" then name2 = string.replace(name1, "?", "e");
else
name2 = name1;
end
---------------------------------
for i = 1 , listbox.getcount("listbox1") do
serch1 = listbox.getitemtext("listbox1", i);
nam1 = string.replace(serch1, "?", "c");
nam1 = string.replace(nam1, "?", "c");
nam1 = string.replace(nam1, "a", "c");
nam1 = string.replace(nam1, "?", "?");
lon = string.length(nam1) ; dlettr = string.mid(nam1, lon , 1) ;
---------------Ç?e?e ?? C?ec? C??????e ?? C?ci? C????e
if dlettr == "?" then nam2 = string.replace(nam1, "?", "?");
elseif dlettr == "?" then nam2 = string.replace(nam1, "?", "e");
else
nam2 = nam1;
end
patch = listbox.getitemdata("listbox1", i)
----------------Ç???c??e--------------------
if string.find(nam2,name2 , 1) ~= -1 then
listbox.additem("listbox2", serch1 , patch);
end
-----------------------------------------------
end



الى غاية هنا النتيجة 100%

بغض النظر على الكمبوبوكس كما قلت

اذن اين المشكل ؟

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

بارك الله فيك

اذن في هذا الحلة لا حاجة لل ComboBox1

في رايك هل اليست بوكس قادر على عرض ملفات 3gp أكثر من 500 او حتيى 1000 ملف دون تجمد التجميعة .!!!!!!!!

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

[عبد الهادي بهاب]

بارك الله فيك

اذن في هذا الحلة لا حاجة لل combobox1

في رايك هل اليست بوكس قادر على عرض ملفات 3gp أكثر من 500 او حتيى 1000 ملف دون تجمد التجميعة .!!!!!!!!

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

طبعا ممكن
لكن ممكن ان نستبدل دلك بالبحث في النكست

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

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

وماذا تقصد
النكست
هل تقصد
التكست '(النص)

[عبد الهادي بهاب]

بارك الله فيك

وماذا تقصد
النكست
هل تقصد
التكست '(النص)

السلام عليكم
لاحظ في الملف التالي :

https://up.top4top.net/downloadf-611rpepe1-rar.html

في onstartup وضعنا كود لحفظ المعلومات كلها في ملف ini في القرص c
ثم في onswhow نضع الكود الذي يستدعي اسماء المجلدات في الكومبوكس
ثم في الكوكمبوس سيتدعي الملفات في اليسبوكس حسب الاسم
ثم يفرا من اليسبوكس في تاميدا بلاير

الان في البحث لن يبحث من اليسبوكس بل من قاعدة البيانات التي انشانها في c
مهما كان العدد

[عبود عبود]

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

فضلا ضع آخر ملف مفتوح تعمل عليه الآن

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

السلام عليكم
لاحظ في الملف التالي :

https://up.top4top.net/downloadf-611rpepe1-rar.html

في onstartup وضعنا كود لحفظ المعلومات كلها في ملف ini في القرص c
ثم في onswhow نضع الكود الذي يستدعي اسماء المجلدات في الكومبوكس
ثم في الكوكمبوس سيتدعي الملفات في اليسبوكس حسب الاسم
ثم يفرا من اليسبوكس في تاميدا بلاير

الان في البحث لن يبحث من اليسبوكس بل من قاعدة البيانات التي انشانها في c
مهما كان العدد


بارك الله فيك
فكرة جيد جدا

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

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

فضلا ضع آخر ملف مفتوح تعمل عليه الآن

هذا اخر ملف اعمل عليه

http://3rbup.com/ebc6748216c56caa



لكن قبل التحميل

راجع مشاركة الاخ

http://www.abc4web.net/vb/showpost.php?p=314041&postcount=28

فقط وضع حل جيد الا اذا كانت عندك وجهت نظر اخرى (او فكرى اخرى نستفيد ويستفيد منها الاعضاء )
فكلما كانت الافكار كثير كلما زدنا تعلما وفهما

[عبود عبود]

قبل التحميل

راجع مشاركة الاخ

http://www.abc4web.net/vb/showpost.php?p=314041&postcount=28

فقط وضع حل جيدا

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

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

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


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

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

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

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

https://f.top4top.net/p_6125bixv1.png

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

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

السلام عليكم
لاحظ في الملف التالي :

https://up.top4top.net/downloadf-611rpepe1-rar.html

في onstartup وضعنا كود لحفظ المعلومات كلها في ملف ini في القرص c
ثم في onswhow نضع الكود الذي يستدعي اسماء المجلدات في الكومبوكس
ثم في الكوكمبوس سيتدعي الملفات في اليسبوكس حسب الاسم
ثم يفرا من اليسبوكس في تاميدا بلاير

الان في البحث لن يبحث من اليسبوكس بل من قاعدة البيانات التي انشانها في c
مهما كان العدد

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

https://f.top4top.net/p_6125bixv1.png


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

[عبد الهادي بهاب]

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

https://f.top4top.net/p_6125bixv1.png


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

لماذا لا نحدف ملف البحث بعد الانتهاء منه و يكفي المؤمنيين شر القتال ........اي بعد الاغلاق يحذف الملف .......... ثم عند الفتح يستدعى الموجود فقط اي دائما تحديث
جرب الكود التالي في on shutdown بجانب on starup

File.Delete("C:\\Data.ini", true, true, true)

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

لماذا لا نحدف ملف البحث بعد الانتهاء منه و يكفي المؤمنيين شر القتال ........اي بعد الاغلاق يحذف الملف .......... ثم عند الفتح يستدعى الموجود فقط اي دائما تحديث
جرب الكود التالي في on shutdown بجانب on starup

file.delete("c:\\data.ini", true, true, true)

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

[عبد الهادي بهاب]

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

الله اعلم .....ارسل لي الملف data.ini ..و ليس المشروع ....و ساحاول

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

الله اعلم .....ارسل لي الملف data.ini ..و ليس المشروع ....و ساحاول
بارك الله فيك تفضل في المرفق

[عبد الهادي بهاب]

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

لا اقصد ئهذا
بل الكبير الممتلئ الذي تجد صعوبة في البحث فيه

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

لا اقصد ئهذا
بل الكبير الممتلئ الذي تجد صعوبة في البحث فيه


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

[عبد الهادي بهاب]

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

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

[عبد الهادي بهاب]

ضع ملفين فارغيين من نوع تكست في docs وسميهم tittre ...patch

في onstartup



list={}; patch ={}; x=1
audio_fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[i] = String.SplitPath(s).Filename; patch[i] = s; x=x+1;
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[x] = String.SplitPath(s).Filename; patch[x] = s; x=x+1;
end
end
---------------------------
end
end
TextFile.WriteFromTable("AutoPlay\\Docs\\titre.txt", list);
TextFile.WriteFromTable("AutoPlay\\Docs\\patch.txt", patch);




في زر البحث

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, "Ã", "Ç"); name1 = String.Replace(name1, "Å", "Ç");
name1 = String.Replace(name1, "Â", "Ç"); name1 = String.Replace(name1, "Ä", "æ");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
if Dlettre == "å" then name2 = String.Replace(name1, "å", "É");
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, "Ã", "Ç"); nam1 = String.Replace(nam1, "Å", "Ç");
nam1 = String.Replace(nam1, "Â", "Ç"); nam1 = String.Replace(nam1, "Ä", "Â");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
if Dlettr == "ì" then nam2 = String.Replace(nam1, "ì", "í");
elseif Dlettr == "å" then nam2 = String.Replace(nam1, "å", "É"); else nam2 = nam1; end
----------------------------
pat = patch[k];
-----------------------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , pat);
end
-----------------------------------------------
end ;

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

في onstartup


list={}; patch ={}; x=1
audio_fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[i] = String.SplitPath(s).Filename; patch[i] = s; x=x+1;
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[x] = String.SplitPath(s).Filename; patch[x] = s; x=x+1;
end
end
---------------------------
end
end
TextFile.WriteFromTable("AutoPlay\\Docs\\titre.txt", list);
TextFile.WriteFromTable("AutoPlay\\Docs\\patch.txt", patch);
ضع ملفين فارغيين من نوع تكست في docs وسميهم tittre ...patch


بارك الله فيك
كود البحث هل يبقى هذا

ListBox.DeleteItem("ListBox1", LB_ALLITEMS)
serch = Input.GetText("Input1");
------------------------------------------------------
name1 = String.Replace(serch, "أ", "ا"); name1 = String.Replace(name1, "إ", "ا");
name1 = String.Replace(name1, "آ", "ا"); name1 = String.Replace(name1, "ؤ", "و");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
if Dlettre == "ه" then name2 = String.Replace(name1, "ه", "ة");
elseif Dlettre == "ى" then name2 = String.Replace(name1, "ى", "ي"); else name2 = name1; end
---------------------------------
Myliste = INIFile.GetSectionNames("C:\\Data.ini");
if Myliste then
for k,serch1 in pairs(Myliste) do
nam1 = String.Replace(serch1, "أ", "ا"); nam1 = String.Replace(nam1, "إ", "ا");
nam1 = String.Replace(nam1, "آ", "ا"); nam1 = String.Replace(nam1, "ؤ", "آ");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
if Dlettr == "ى" then nam2 = String.Replace(nam1, "ى", "ي");
elseif Dlettr == "ه" then nam2 = String.Replace(nam1, "ه", "ة"); else nam2 = nam1; end
----------------------------
patch = INIFile.GetValue("C:\\Data.ini", serch1, "Patch")
-----------------------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , patch);
end
-----------------------------------------------
end ; end

[عبد الهادي بهاب]

بارك الله فيك
كود البحث هل يبقى هذا

listbox.deleteitem("listbox1", lb_allitems)
serch = input.gettext("input1");
------------------------------------------------------
name1 = string.replace(serch, "أ", "ا"); name1 = string.replace(name1, "إ", "ا");
name1 = string.replace(name1, "آ", "ا"); name1 = string.replace(name1, "ؤ", "و");
long = string.length(name1) ; dlettre = string.mid(name1, long , 1) ;
if dlettre == "ه" then name2 = string.replace(name1, "ه", "ة");
elseif dlettre == "ى" then name2 = string.replace(name1, "ى", "ي"); else name2 = name1; end
---------------------------------
myliste = inifile.getsectionnames("c:\\data.ini");
if myliste then
for k,serch1 in pairs(myliste) do
nam1 = string.replace(serch1, "أ", "ا"); nam1 = string.replace(nam1, "إ", "ا");
nam1 = string.replace(nam1, "آ", "ا"); nam1 = string.replace(nam1, "ؤ", "آ");
lon = string.length(nam1) ; dlettr = string.mid(nam1, lon , 1) ;
if dlettr == "ى" then nam2 = string.replace(nam1, "ى", "ي");
elseif dlettr == "ه" then nam2 = string.replace(nam1, "ه", "ة"); else nam2 = nam1; end
----------------------------
patch = inifile.getvalue("c:\\data.ini", serch1, "patch")
-----------------------------------
if string.find(nam2,name2 , 1) ~= -1 then
listbox.additem("listbox1", serch1 , patch);
end
-----------------------------------------------
end ; end

تم تعديل لمشاركة السابقة

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

تم تعديل لمشاركة السابقة

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

[عبد الهادي بهاب]

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

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

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

if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , pat);
else
Dialog.Message("تنبيه", "لا يوجد ملف يطابق كلمة البحث") break
end

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

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

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

if string.find(nam2,name2 , 1) ~= -1 then
listbox.additem("listbox1", serch1 , pat);
else
dialog.message("تنبيه", "لا يوجد ملف يطابق كلمة البحث") break
end


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

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

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

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

[عبد الهادي بهاب]

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

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

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

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

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

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

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

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

[عبد الهادي بهاب]

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

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

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

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

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, "Ã", "Ç"); name1 = String.Replace(name1, "Å", "Ç");
name1 = String.Replace(name1, "Â", "Ç"); name1 = String.Replace(name1, "Ä", "æ");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
if Dlettre == "å" then name2 = String.Replace(name1, "å", "É");
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, "Ã", "Ç"); nam1 = String.Replace(nam1, "Å", "Ç");
nam1 = String.Replace(nam1, "Â", "Ç"); nam1 = String.Replace(nam1, "Ä", "Â");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
if Dlettr == "ì" then nam2 = String.Replace(nam1, "ì", "í");
elseif Dlettr == "å" then nam2 = String.Replace(nam1, "å", "É"); else nam2 = nam1; end
----------------------------
pat = patch[k];
-----------------------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , pat);
else
Dialog.Message("ÊäÈíå", "áÇ íæÌÏ ãáÝ íØÇÈÞ ßáãÉ ÇáÈÍË") break
end
-----------------------------------------------
end ;

[عبد الهادي بهاب]

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

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

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

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

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, "Ã", "Ç"); name1 = string.replace(name1, "Å", "Ç");
name1 = string.replace(name1, "Â", "Ç"); name1 = string.replace(name1, "Ä", "æ");
long = string.length(name1) ; dlettre = string.mid(name1, long , 1) ;
if dlettre == "å" then name2 = string.replace(name1, "å", "É");
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, "Ã", "Ç"); nam1 = string.replace(nam1, "Å", "Ç");
nam1 = string.replace(nam1, "Â", "Ç"); nam1 = string.replace(nam1, "Ä", "Â");
lon = string.length(nam1) ; dlettr = string.mid(nam1, lon , 1) ;
if dlettr == "ì" then nam2 = string.replace(nam1, "ì", "í");
elseif dlettr == "å" then nam2 = string.replace(nam1, "å", "É"); else nam2 = nam1; end
----------------------------
pat = patch[k];
-----------------------------------
if string.find(nam2,name2 , 1) ~= -1 then
listbox.additem("listbox1", serch1 , pat);
else
dialog.message("ÊäÈíå", "áÇ íæÌÏ ãáÝ íØÇÈÞ ßáãÉ ÇáÈÍË") break
end
-----------------------------------------------
end ;


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

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

اقصد

lua

[عبد الهادي بهاب]

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

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

اقصد

lua

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

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

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


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

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

[عبد الهادي بهاب]

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

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

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

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 ;


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

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

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

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 ;
الان في الديالوج حول الكتابة الى ما تريد


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

else

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

[عبد الهادي بهاب]

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

else

dialog.message("notice", "the file not exisit") break
يعمل بشكل جيد لكن بوجوده لا يعمل

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

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

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

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

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

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

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

بارك الله فيك

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

[عبد الهادي بهاب]

بارك الله فيك

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

غي اي مشروع ؟
كنا نعمل على مشروع فيه ليسبوكس واحد فقط
و الا فاحدف الكود المسؤول عن تحديد العنصر في اليسبوكس2

ListBox.SelectItem("ListBox2", index)

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

غي اي مشروع ؟
كنا نعمل على مشروع فيه ليسبوكس واحد فقط
و الا فاحدف الكود المسؤول عن تحديد العنصر في اليسبوكس2

ListBox.SelectItem("ListBox2", index)

بارك الله فيك
نعم غيرت قليلا في المشروع
لذا اريد عند تحديد عنصر من ليست بووكس1 يلغى تحديد العنصر من ليست بوكس2

انظر الصورة
http://up.ibda3gate.com/do.php?img=8499

[عبد الهادي بهاب]

لا تظهر الصورة

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

لا تظهر الصورة

تفضل الصورة في المرفق

[عبد الهادي بهاب]

لاحظ ابحث عن الكود هذا في الكومبوكس ( لا يهم index) احدفه لن يحدد في اليسبوكس 2

ListBox.SelectItem("ListBox2", index)

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

لاحظ ابحث عن الكود هذا في الكومبوكس ( لا يهم index) احدفه لن يحدد في اليسبوكس 2

listbox.selectitem("listbox2", index)

لكن أنا أتعامل مع ليست بوكس ليس كمبوبوكس

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

[عبد الهادي بهاب]

انقل الكود الموجود في الكومبوكس و الموجود في اليسبوكس 1

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

انقل الكود الموجود في الكومبوكس و الموجود في اليسبوكس 1

تفضل الملف الأخير الذي اعمل عليه
https://drive.google.com/file/d/0B3p0ztacxxt5T1c2djdyV3BpQXc/view?usp=sharing

[عبد الهادي بهاب]

تفضل الملف الأخير الذي اعمل عليه
https://drive.google.com/file/d/0b3p0ztacxxt5t1c2djdyv3bpqxc/view?usp=sharing

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

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

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

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

ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
result = ComboBox.GetItemData(this, e_Selection);
if result~="" then
result = File.Find(result.."\\", "*.*", true, true, nil, nil);
for i, s in pairs(result)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end

ListBox.SelectItem("ListBox1", 1);ListBox1

--استدعاء الامس المحدد في ليست بوكس اللى برقراف
num = ListBox.GetSelected("ListBox1");
SONG = ListBox.GetItemData("ListBox1", num[1]);
MediaPlayer.Load("media_player", SONG);
--استدعاء الامس المحدد في ليست بوكس اللى برقراف
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\\الافتراضي.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end
num = ListBox.GetSelected("ListBox1");
if num == nil then
Application.ExitScript();
end

--------------ListBox2



num = ListBox.GetSelected("ListBox2");
SONG = ListBox.GetItemData("ListBox2", num[1]);
MediaPlayer.Load("media_player", SONG);

--استدعاء الامس المحدد في ليست بوكس اللى برقراف
num = ListBox.GetSelected("ListBox2");
--SONG = ListBox.GetItemData("ListBox1", num[1]);
SONG = ListBox.GetItemText("ListBox2", num[1]);

Paragraph.SetText("Paragraph1", SONG);
-------------------------
tfreg = File.DoesExist("AutoPlay\\Docs\\"..SONG..".rtf");
if tfreg == false then
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\الافتراضي.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end
num = ListBox.GetSelected("ListBox2");
if num == nil then
Application.ExitScript();
end

المشكلة التي أنا فيها الآن

هي أنني عندما ابحث تعرض الملفات في
ListBox2

وعند الضغط على الفتوى يتم قرائتها من اليست بوكس 2 لكن عند الضغط زر الحفظ انظر الصورة

https://www.mediafire.com/file/3rn17ar87roz4yk/20170914_182221.zip

[عبد الهادي بهاب]

في كود اليسبوكس 2



-song = listbox.getitemdata("listbox1", num[1]);





ممكن المشكل في انك لم تغيير رقم اليسبوكس هنا الى2

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

في كود اليسبوكس 2



-song = listbox.getitemdata("listbox1", num[1]);
ممكن المشكل في انك لم تغيير رقم اليسبوكس هنا الى2


بارك الله فيك


لا ادري أين المشكلة

المهم هذا الملف المفتوح لتعاينه

ربما تجد حل للمشكلة

http://www.mediafire.com/file/mi7c6mwysxvd7xk/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2%285%29.zip

[عبود عبود]

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

يمكنك إصلاح الخطأ بنفسك أو تضع لى الملف المفتوح كاملا بجميع الملفات التى تستخدمها أو بعض الملفات للمعاينة حتى أفهم نظرية العمل " :abc_138: " يعنى لا تحذف الملفات سواء صوتية أو .......

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

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

يمكنك إصلاح الخطأ بنفسك أو تضع لى الملف المفتوح كاملا بجميع الملفات التى تستخدمها أو بعض الملفات للمعاينة حتى أفهم نظرية العمل " :abc_138: " يعنى لا تحذف الملفات سواء صوتية أو .......


بارك الله فيك

هذا المشروع دوخني كثيرا لذا تهت في الاكواد

اليك الملف المفتوح

http://www.mediafire.com/file/voyr8of8czsjcnv/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9.zip

[عبود عبود]

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

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

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

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

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

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

[عبود عبود]

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

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

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

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

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


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

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

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

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

[عبود عبود]

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

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


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


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


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

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

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

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

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

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



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


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

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

[عبود عبود]

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

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

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


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

تمام

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

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

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

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

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


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



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

[عبود عبود]

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

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

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

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

[عبود عبود]

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

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

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

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

[عبود عبود]

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


http://www.mediafire.com/file/47i9qgk968iwe8p/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_6.rar

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

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


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

بارك الله فيك

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

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

https://a.top4top.net/p_624uqtu61.png

[عبود عبود]

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

http://www.mediafire.com/file/wwrk778r52x0q8d/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_7.rar

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

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

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

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

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

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

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\\ÇáÇÝÊÑÇÖí.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end

[عبود عبود]

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

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


تم عمل اللازم الآن

http://www.mediafire.com/file/i4o3o848qd4nwaa/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_8.rar


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

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\\ÇáÇÝÊÑÇÖí.rtf");
else

RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\"..SONG..".rtf");
end

كان فين بالصور علشان أفهم وعلشان مش مركز قوى

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

تم عمل اللازم الآن

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



كان فين بالصور علشان أفهم وعلشان مش مركز قوى

كان في

on Select

لليست بوكس 1 و 2
بيث عند الضغط على عنصر معين من احد السيت بوكس
يظهر نص التفريغ في RichText1 هذا طبعا ان كان يوجد تفريغ ام ان كان لا يوجد تفريغ يظهر نص افتراضي
انظر الصورة في المرفق
https://c.top4top.net/p_624cf3e31.gif

[عبود عبود]

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

تأكد مرة أخرى وأخبرنى

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

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

تأكد مرة أخرى وأخبرنى

استدعاء التفريغ لايعمل

اما Thumbs فتم ح\فه

[عبود عبود]

تصدق إنى لسة واخد بالى من الصورة اللى إنت رفعتها دلوقتى ؟

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

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

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

تصدق إنى لسة واخد بالى من الصورة اللى إنت رفعتها دلوقتى ؟

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

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


انظر الصورة المرفقة لاخر ملف رقم 8

[عبود عبود]

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

الحذر من المنصرين ودحض أباطيلهم - بن باز - مشروع كبار العلماء.rtf

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

http://www.mediafire.com/file/i1xshqow1sazhdl/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_9.rar

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

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

الحذر من المنصرين ودحض أباطيلهم - بن باز - مشروع كبار العلماء.rtf

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

المحتوى المخفي لايقتبس
بارك الله في عمرك عملك ورزقك الصحة والعفية واطالة الله عمر في طاعته

بقي شيئ اخير وهو
استبدال (ا) ب (أ) في البحث
مثلا انا ابحث عن كلمة أدلة

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

[عبود عبود]

إن شاء الله غدا نحاول إيجاد حل

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

إن شاء الله غدا نحاول إيجاد حل
رحمك الله وغفر لك
السلام عليكم

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

إن شاء الله غدا نحاول إيجاد حل

بارك الله فيك
انتظرك

[عبود عبود]

آسف كنت فى الشغل أمس و أول أمس ....... ربما نستكمل غدا إن كان هناك وقت

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

آسف كنت فى الشغل أمس و أول أمس ....... ربما نستكمل غدا إن كان هناك وقت

إن شاء الله ادرت تذكيرك فقط

[عبود عبود]

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

عاين هذا الملف وإن شاء الله يكون هو المطلوب :


http://www.mediafire.com/file/kxm7n79y98xa2hw/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_10.rar

[عبود عبود]

أخبرنى بالنتيجة بعد المعاينه :abc_138:

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

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

عاين هذا الملف وإن شاء الله يكون هو المطلوب :


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

بارك الله فيك
تمام أخي يعمل بشكل جيد

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

[عبود عبود]

إحذف اللغة الغير مرحب بها ومن ثم عاين وأخبرنى بالنتيجة مرة أخرى هل يحدث هذا الخلل مرة أخرى أم لا

http://www.mediafire.com/file/qv16rjkpakaj6ff/%D9%81%D8%AA%D8%A7%D9%88%D9%89_%D8%A7%D9%84%D8%AC% D8%A7%D9%85%D8%B9_%D8%A7%D9%84%D9%83%D8%A8%D9%8A%D 8%B1_%D9%84%D9%84%D8%B9%D9%84%D8%A7%D9%85%D8%A9_%D 8%A7%D8%A8%D9%86_%D8%A8%D8%A7%D8%B2_11.rar

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

إحذف اللغة الغير مرحب بها ومن ثم عاين وأخبرنى بالنتيجة مرة أخرى هل يحدث هذا الخلل مرة أخرى أم لا

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


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

يشتغل تمام
لكن هل ممكن تبين لي اين الخلل رحمك الله

[عبود عبود]

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

يشتغل تمام
لكن هل ممكن تبين لي اين الخلل رحمك الله

ولو أنى لم أفهم ماذا تقصد هل الخلل تم إزالته أم لا ؟
على أى حال فى الملف السابق :


https://i.imgur.com/rqnJd31.jpg

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

ولو أنى لم أفهم ماذا تقصد هل الخلل تم إزالته أم لا ؟
على أى حال فى الملف السابق :


https://i.imgur.com/rqnjd31.jpg

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

والشكر موصول لكل من ساهم لإفادتي في هذا العمل

[مخـ الأمل ـاوي]

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

[نورسوفت]

واصلوا يا اهل الاحتراف