شباب اريد اعمل مشروع فهرسة

[صادق النية]

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

[ثامر أبو بلقيس]

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

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

سنتفق مع المدير أو صاحب العمل بأن يضع ملفاته مهما كان نوعها
وورد - ايكسل -- ...... الخ
في مجلد غير مجلد النظام و ليكن القرص d و في مجلد نسميه 10

-----------------------------------------------------------------------------------
الان نفتح مشروع جديد بالاوتوبلاي

نضع فيه عنصرين
- ليست بوكس ولتكن ListBox1
- اينبوت للبحث
------------------------------------------------------------------------------
نزرع الان الاكواد :
في حدث الصفحة on show نكتب
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
result = File.Find("D:\\10\\", "*.*", false, false, nil, nil);
if result ~= nil then
for j,file_path in pairs (result) do
file = String.SplitPath(file_path)
ListBox.AddItem("ListBox1", file.Filename,file_path);
end
end

في العنصر ليست بوكس نضغط عليه و في الحدث on double click
نكتب :
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
File.Open(result, "", SW_SHOWNORMAL);

- في الانبوت بالضغط عليه و في on key
نكتب :
sLookFor = Input.GetText(this);
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
ListBox.SelectItem("ListBox1", sListBoxItem);

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

بعد اكمال المشروع و زرع مجلد 10 في القرص d فيه ملفات
عاين عملك لتجد كل الملفات في الليست مفهرسة بالضغط عليها مرتين
تفتح و اذا كتبت في الاينبوت سيتم البحث في الليست

موفق :abc_138:

[الجارف]

عندي لك اقتراح و ارجو أن يترجمه أحد الزملاء لملف ويرفعه ..
:abc_138:

شكرًا جزيلا أستاذنا الكبير أبا بلقيس

تفضلا .. المشروع بعد ترجمته

في المرفقات

فقط ضع المجلد الذي به الملفات في القرص ( d ) وسمّه ( 10 )

[ثامر أبو بلقيس]

جزاك الله خيرا أخي الكريم الجارف

أتعبتك :abc_138: كون أني كلما أرفع ملف على مركز الخليج يأخذ حجم 0 ك ب
مشكله لم أجد لها حلا

بارك الله فيك :abc_138:

[الجارف]

كون أني كلما أرفع ملف على مركز الخليج يأخذ حجم 0 ك ب
مشكله لم أجد لها حلا

بارك الله فيك :abc_138:

وهذا الملف على مركز الخليج ..

كلنا تحت أمرك أيها الفاضل


http://www.gulfup.com/?IdgHBs

[امل الماضي]

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

[فرح صالحي]

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

[ثامر أبو بلقيس]

بارك الله فيك أخي الجارف
حاولت كم من مرة تحميل الملف المرفوع على مركز الخليج
نصبت وينداوز من جديد وبرامج تحميل أخرى و لافائدة دائما يتحمل ملف 0 ك ب
لاأدري هل المشكل عندي فقط
شكرا جزيلا

[احمد حكيم باز]

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

[الجارف]

بارك الله فيك أخي الجارف
حاولت كم من مرة تحميل الملف المرفوع على مركز الخليج
نصبت وينداوز من جديد وبرامج تحميل أخرى و لافائدة دائما يتحمل ملف 0 ك ب
لاأدري هل المشكل عندي فقط
شكرا جزيلا

أعتقد أن الموقع واجه ضغطا أو احتاج الى صيانة

جربت الآن ويعمل جيدا

[فرح صالحي]

بارك الله فيك أخي الجارف
حاولت كم من مرة تحميل الملف المرفوع على مركز الخليج
نصبت وينداوز من جديد وبرامج تحميل أخرى و لافائدة دائما يتحمل ملف 0 ك ب
لاأدري هل المشكل عندي فقط
شكرا جزيلا

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

يبدو ان المشكل خاص بك اخ ثامر
:abc_023:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
لا أضن أخي فرح ... أمس كان مركز التحميل لا يرفع الملفات ذات الحجم الصغير
أما اليوم كما ذكر أخي الجارف فهو يعمل
جرب مثلا تحميل ملف رفع الأمس في المشاركة 5 هل تمكنت من تحميله ؟
شكرا لكم جميعا
وبالتوفيق .

[ياسرهتهت]

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

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

[ثامر أبو بلقيس]

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

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

الاكواد المستعملة متعلقة باستعمال Hyperlinks

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

[صادق النية]

جزاكم الله خير شباب على المرور وسرعة الرد وتفاعلكم .. هل بالامكان عمل بحث بمشروعي دون الرجوع أو فتح الاكسل يعني مثل ا لمواقع يوجد على الجانب ميزه البحث وعند البحث تعطيني النتائج

[خالد مسيلي]

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

[أبو هاجر المغربي]

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

[سعيدون]

فعلا متميز
رائع استاذي الكريم
تستحق كل الشكر

[الباب]

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

[المـهاجر]

ملفات الاكسل و الوورد ليست ملفات نصوص بسيطة
تنسيقات خاصة ذات ترويسة مميزة

[أبو محسن]

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

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

سنتفق مع المدير أو صاحب العمل بأن يضع ملفاته مهما كان نوعها
وورد - ايكسل -- ...... الخ
في مجلد غير مجلد النظام و ليكن القرص d و في مجلد نسميه 10

-----------------------------------------------------------------------------------
الان نفتح مشروع جديد بالاوتوبلاي

نضع فيه عنصرين
- ليست بوكس ولتكن ListBox1
- اينبوت للبحث
------------------------------------------------------------------------------
نزرع الان الاكواد :
في حدث الصفحة on show نكتب
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
result = File.Find("D:\\10\\", "*.*", false, false, nil, nil);
if result ~= nil then
for j,file_path in pairs (result) do
file = String.SplitPath(file_path)
ListBox.AddItem("ListBox1", file.Filename,file_path);
end
end

في العنصر ليست بوكس نضغط عليه و في الحدث on double click
نكتب :
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
File.Open(result, "", SW_SHOWNORMAL);

- في الانبوت بالضغط عليه و في on key
نكتب :
sLookFor = Input.GetText(this);
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
ListBox.SelectItem("ListBox1", sListBoxItem);

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

بعد اكمال المشروع و زرع مجلد 10 في القرص d فيه ملفات
عاين عملك لتجد كل الملفات في الليست مفهرسة بالضغط عليها مرتين
تفتح و اذا كتبت في الاينبوت سيتم البحث في الليست

موفق :abc_138:

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

يغفر الله لك، ويجعلك من أهل الجنة
أنت والله نوراً في برمجة lua نقتبس من علمك الشريف، ونسترشد بأفكارك الرائعة والفريدة
والله لا يُدخلني إلى هذا الموقع غيرك أنت، لأتابع جديدك، وردودك على الإستفسارات

لن نوفيك حقك أستاذنا المتواضع، ولكن نسأل الله أن يجزيك عنا خير الجزاء

مُحبك ومغليك، وتلميذك :abc_022:

[ثامر أبو بلقيس]

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

[السعيد الجزائري]

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

[منوبة]

بارك الله فيكم جميعا
:abc_152::abc_152:

[هانى القاضى]

بارك الله فيك

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

معكم متابع شكرا للسائل و المسؤول و المجيب و الشاكر و المار بينهما و طبعا المثني عليهم اجمعين الى يوم الدين:abc_022:

[منار بربرة]

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

[ابراهيم ابو الوليد]

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

[رعاش وليد]

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

[د قناوى]

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