إعـــــــلان

**عبود عبود عبود عبود** · 04-04-2016, 02:51 PM

إن شاء الله إن لم يبادر أحد الزملاء بالرد والإجابة أضع لك الإجابة اليوم ليلا لضيق الوقت الآن .

**احمد كبه احمد كبه** · 04-04-2016, 09:49 PM

شكرا جزيلا استاذنا الغالي ياريت يكون الشرح مفصل شاكرين سعة صدركم

**عبود عبود عبود عبود** · 04-04-2016, 11:21 PM

هذا ملف مفتوح يوضح طريقة البحث عن إسم ملف
ويعرض النتيجة عند العثور على جميع الملفات التى لها إمتداد " txt , exe , pdf "

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

[hide]https://dl.dropboxusercontent.com/u/...arch%20All.rar[/hide]

بالتوفيق

**احمد كبه احمد كبه** · 05-04-2016, 08:10 AM

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

**عبود عبود عبود عبود** · 05-04-2016, 12:17 PM

ضع هذا الكود بدلا من الكود السابق وذلك للبحث فى مجلد الإسطوانة عن الإسم الذى يتم كتبته فى الإينبوت :

كود:

--
result = Input.GetText("Input1");
if result~="" then
   x={".pdf",".exe",".txt"};
   for i, s in pairs(x) do
       find = File.Find(_SourceFolder, result..s, true, false, nil, nil);
       if find~=nil then
          ListBox.DeleteItem("ListBox"..i, -1);
          for v, t in pairs(find) do
              ListBox.AddItem("ListBox"..i, t, "");
          end
          ListBox.SetUpdate("ListBox"..i, true);
       end
   end
   else
     Dialog.Message("Notice", "من فضلك أكتب الإسم المراد البحث عنه أولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
     Page.SetFocus("Input1");
end

**عبود عبود عبود عبود** · 05-04-2016, 12:24 PM

المشاركة الأصلية بواسطة احمد كبه مشاهدة المشاركة

شاكر سعة صدرك وروحك العالية

من حق الجميع أن يسأل عن ما يريد فى أى وقت

التعاون بين الجميع موجود فى أى وقت إن شاء الله

**عبود عبود عبود عبود** · 05-04-2016, 07:34 PM

إليك بهذا الملف للبحث عن جميع الملفات البى دى إف الموجودة فى الإسطوانة
فيتم وضع أسماء الملفات فى الليست بوكس وعند الضغط 2 كليك على أى إسم يتم فتح الملف البى دى إف المحدد

إضغط على زر بحث

[hide]https://dl.dropboxusercontent.com/u/...0all%20Pdf.rar[/hide]

**احمد كبه احمد كبه** · 05-04-2016, 11:32 PM

الف مليون ترليون بليون شكرا
يا استاذنا الغالي ربنا يجعلها في ميزان حسناتك

**ياسرهتهت ياسرهتهت** · 05-04-2016, 11:58 PM

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

**هبة الرحمن هبة الرحمن** · 06-04-2016, 06:03 AM

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

**نجوم ليبيا نجوم ليبيا** · 06-04-2016, 07:37 PM

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

**احمد مجدى احمد مجدى** · 06-04-2016, 09:25 PM

جارى التجربة

**امل الماضي امل الماضي** · 06-05-2016, 05:30 PM

مشكوووووووووووووووووووووو ووووووووووووووووووووووووو ووووووور

**فرح صالحي فرح صالحي** · 06-05-2016, 05:36 PM

شـكــ وبارك الله فيك ـــرا لك ..

. لك مني أجمل تحية .

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك