تسجيل الدخول

مشاهدة النسخة كاملة : ســـؤال حـــــول ( Rename and Copy )؟


ياسرهتهت
22-03-2017, 10:18 PM
بسم الله الرحمن الرحيم
أرجو المساعدة في صياغة كـــــــود يقوم بالتالي ---

نسخ الملفات الموجود في ( ListBox1 ) والتي تم استدعائها
بالكود

Browse = Dialog.FolderBrowse("Please select a folder:", _WindowsFolder);
tip = {"*.mp3","*.mp4"}
if Browse~="CANCEL" then
for i= 1,#tip do
Find = File.Find(Browse, tip[i], false, false, nil, nil);
if Find~=nil then
for i, s in pairs(Find) do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
end
end

نسخ هذة الملفات الي مجلد انا اختاره
مع اعادة تسمية الملفات بحيث تاخذ الاسماء الجديدة
من ( ListBox2 ) الذي يتم تعباته من خلال الكــــــــــــود

Nemefil = TextFile.ReadToTable("AutoPlay\\Docs\\m.txt");
ListBox.DeleteItem("ListBox2",LB_ALLITEMS);
for i,s in pairs(Nemefil)do
ListBox.AddItem("ListBox2", s);
end

بحيث Selected رقم (1) في ListBox1 ياخذ التسمية من Selectedرقم (1 ) قي ListBox2
وهكـــــــــــذا باقي الملفات ...........................الخ

لا ادري هل كنت موفق في طرح السؤال ؟ وما اريد ؟
موفقين بإذن الله ... لكم مني أجمل تحية .
:abc_152::abc_152::abc_152:

محمد بن أحمد أبو حذيفة
22-03-2017, 10:23 PM
بسم الله الرحمن الرحيم
متابع في نتظار الاخوة

عبود عبود
23-03-2017, 02:03 AM
مش فاهم ماذا تقصد بالتحديد

ولكن يمكنك إستخدام File.Rename لإعادة التسمية للملفات

أو تضع ملف مفتوح ربما نفهم منه المقصود بالتحديد

ياسرهتهت
23-03-2017, 06:02 AM
مش فاهم ماذا تقصد بالتحديد

ولكن يمكنك إستخدام File.Rename لإعادة التسمية للملفات

أو تضع ملف مفتوح ربما نفهم منه المقصود بالتحديد
------------------------------------------------------------
بسم الله الرحمن الرحيم

استاذ عبود
انا اريد نسخ الملفات الموجوده في ListBox1 الي مجلد
وهذا الكود ينفذ ذالك بنجاح

folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
ListBox.SelectItem("ListBox1", LB_ALLITEMS);
get_sel = ListBox.GetSelected("ListBox1");
Folder.Create(_DesktopFolder.."\\"..folderN);
N = 1;
ALL = ListBox.GetCount("ListBox1");
while (N <= ALL) do
get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
N = N + 1;
end
Dialog.Message("Notice", "تمت عملية النسخ \r\n"..folderN);

ولكن اريد مـــــــــــع عملية النسخ تغير اسامي الملفات
وان يتم اخذ الاسماء الجديده من قائمة موجوده فيListBox2

يعني الملف FILL = ListBox.GetItemText("ListBox1", 1); تسميته تكون NMEE = ListBox.GetItemText("ListBox2", 1); وهكذ مع الكل


:abc_152::abc_152:

المـهاجر
23-03-2017, 07:36 AM
طالما تستخدم الأمر copy
فأنت لا تحتاج للأمر rename

لأن الأمر copy يتضمن الأمر rename بداخله
البارامتر الثانى لدالة copy يفى بالغرض

https://www.indigorose.com/webhelp/tu/Program_Reference/Actions/File.Copy_Examples.htm

أدرس example2 بعناية
ستجد عملية نسخ مع عملية تغيير الاسم فى نفس الدالة
Copies a file named "hidden.dat" from the folder where the update.exe is located to a folder named "z3j2rlk" in the user's temp folder, And renaming the file to "sneaky.exe"

منقول من الرابط مع اضافة كلمة And بواستطى لإزالة الغموض عن المعنى
:abc_152:

المـهاجر
23-03-2017, 07:52 AM
و على فرض ان ليست 1 و ليست 2 بهما نفس عدد العناصر
و ان العناصر فى كلا الليستين مرتبة بحيث تكون متراصفة لخدمة نفس الملفات
و ان الفولدرات الخاصة بالليست 2 جاهزة
يكون الكود المقترح
folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
ListBox.SelectItem("ListBox1", LB_ALLITEMS);
get_sel = ListBox.GetSelected("ListBox1");
Folder.Create(_DesktopFolder.."\\"..folderN);
N = 1;
ALL = ListBox.GetCount("ListBox1");
while (N <= ALL) do
get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
get_data_2 = ListBox.GetItemData("ListBox2", get_sel[N]);
File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
File.Copy(get_data,get_data_2, true, true, false, true, nil);
N = N + 1;
end
Dialog.Message("Notice", "تمت عملية النسخ \r\n"..folderN);
عليك تأمل السطر 11 ففيه ملخص الفكرة
موفق
:abc_152:

ياسرهتهت
23-03-2017, 12:57 PM
و على فرض ان ليست 1 و ليست 2 بهما نفس عدد العناصر
و ان العناصر فى كلا الليستين مرتبة بحيث تكون متراصفة لخدمة نفس الملفات
و ان الفولدرات الخاصة بالليست 2 جاهزة
يكون الكود المقترح
folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
ListBox.SelectItem("ListBox1", LB_ALLITEMS);
get_sel = ListBox.GetSelected("ListBox1");
Folder.Create(_DesktopFolder.."\\"..folderN);
N = 1;
ALL = ListBox.GetCount("ListBox1");
while (N <= ALL) do
get_data = ListBox.GetItemData("ListBox1", get_sel[N]);
get_data_2 = ListBox.GetItemData("ListBox2", get_sel[N]);
File.Copy(get_data,_DesktopFolder.."\\"..folderN, true, true, false, true, nil);
File.Copy(get_data,get_data_2, true, true, false, true, nil);
N = N + 1;
end
Dialog.Message("Notice", "تمت عملية النسخ \r\n"..folderN);
عليك تأمل السطر 11 ففيه ملخص الفكرة
موفق
:abc_152:
---------------------------------
شكــــرا لك استاذ المهاجر
كود جميل ومعلومات اجمل
بارك الله فيك وجازك كل خير
:abc_152::abc_152:

المـهاجر
24-03-2017, 02:29 AM
---------------------------------
شكــــرا لك استاذ المهاجر
كود جميل ومعلومات اجمل
بارك الله فيك وجازك كل خير
:abc_152::abc_152:

مـــــوفق
:abc_152:

محمد بن أحمد أبو حذيفة
24-03-2017, 07:10 AM
------------------------------------------------------------
بسم الله الرحمن الرحيم

استاذ عبود
انا اريد نسخ الملفات الموجوده في listbox1 الي مجلد
وهذا الكود ينفذ ذالك بنجاح

foldern = dialog.input("اسم المجلد", "", mb_iconquestion);
listbox.selectitem("listbox1", lb_allitems);
get_sel = listbox.getselected("listbox1");
folder.create(_desktopfolder.."\\"..foldern);
n = 1;
all = listbox.getcount("listbox1");
while (n <= all) do
get_data = listbox.getitemdata("listbox1", get_sel[n]);
file.copy(get_data,_desktopfolder.."\\"..foldern, true, true, false, true, nil);
n = n + 1;
end
dialog.message("notice", "تمت عملية النسخ \r\n"..foldern);

ولكن اريد مـــــــــــع عملية النسخ تغير اسامي الملفات
وان يتم اخذ الاسماء الجديده من قائمة موجوده فيlistbox2

يعني الملف fill = listbox.getitemtext("listbox1", 1); تسميته تكون nmee = listbox.getitemtext("listbox2", 1); وهكذ مع الكل


:abc_152::abc_152:


بارك الله فيك

لكن لم افهم الفائدة من هذ الملف هل ممكن ملف مفتوح لتتضح الصورة

ياسرهتهت
24-03-2017, 01:28 PM
بارك الله فيك

لكن لم افهم الفائدة من هذ الملف هل ممكن ملف مفتوح لتتضح الصورة
------------------------------------------------
بسم الله الرحمن الرحيم
اخي محمد الفكرة ببساطة
انني حملت ملفات من النت فنزلت تسميتها ارقام بهذا الشكل

https://e.top4top.net/p_4486svca1.png

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

https://b.top4top.net/p_448ajbd51.png

نسخة هذا الاسماء في ملف نصي وعملت على تسميت الملفات باستخدم الاتوبلاي لانها كثيررررررررررررر


الملف المفتوح في المرفقات

شرح الملف
https://youtu.be/k3XLyNtM000


https://youtu.be/k3XLyNtM000

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

ربيع
24-03-2017, 02:15 PM
folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
Folder.Create(_DesktopFolder.."\\"..folderN);
-------------
for i = 1,ListBox.GetCount("ListBox1")do
result1 = ListBox.GetItemData("ListBox1", i);
result2 = ListBox.GetItemText("ListBox2", i);
All,a,b = string.match(result1, "(.-)([^\\]-([^\\%.]+))$")
-------------------------------------
File.Copy(result1, _DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,true, true, false, true, nil);
end
Dialog.Message("Notice", "تمت عملية النسخ \r\n"..folderN);

ياسرهتهت
24-03-2017, 02:57 PM
folderN = Dialog.Input("اسم المجلد", "", MB_ICONQUESTION);
Folder.Create(_DesktopFolder.."\\"..folderN);
-------------
for i = 1,ListBox.GetCount("ListBox1")do
result1 = ListBox.GetItemData("ListBox1", i);
result2 = ListBox.GetItemText("ListBox2", i);
All,a,b = string.match(result1, "(.-)([^\\]-([^\\%.]+))$")
-------------------------------------
File.Copy(result1, _DesktopFolder.."\\"..folderN.."\\"..result2.."."..b,true, true, false, true, nil);
end
Dialog.Message("Notice", "تمت عملية النسخ \r\n"..folderN);


----------------------------------------------
:abc_152::abc_152: شكرا لك استاذ ربيــــhttp://www.abc4web.net/vb/images/icons/icon_z.gifــــع :abc_152::abc_152:
موفق بإذن الله ... لك مني أجمل تحية .
:abc_026::abc_026::abc_026:

محمد بن أحمد أبو حذيفة
24-03-2017, 07:55 PM
------------------------------------------------
بسم الله الرحمن الرحيم
اخي محمد الفكرة ببساطة
انني حملت ملفات من النت فنزلت تسميتها ارقام بهذا الشكل

https://e.top4top.net/p_4486svca1.png

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

https://b.top4top.net/p_448ajbd51.png

نسخة هذا الاسماء في ملف نصي وعملت على تسميت الملفات باستخدم الاتوبلاي لانها كثيررررررررررررر


الملف المفتوح في المرفقات

شرح الملف
https://youtu.be/k3XLyNtM000


https://youtu.be/k3XLyNtM000

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



فكرة جميلة جدا جدا

رحم الله والديك وكل من ساعدك على هذا العمل
كنت اعاني كثيرا من هذه المشكلة وكنت اضطر لتغير الاسم يدويا وكنت اغير في بعض الاحيان ما يقارب 200 اسم لملف mp3

لكن الفكرة جيدة وراقت اعجابي وستفيدني كثيرا

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

تابع معي


المفات حملتها من هنا

https://archive.org/details/ModarasaWaTadriss20

وبالرغم من ان اسمائها كلها بالعربية الا ان بعد التحميل تظهر كما في الصورة

https://b.top4top.net/p_448z4no01.png

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

فهل ممكن ان ناخذ الاسم من

Titre -------------------ونضعه في مكان -------------NOM

أبو قصي
24-03-2017, 08:38 PM
موفق بإذن الله ... لك مني أجمل تحية .

عبود عبود
24-03-2017, 08:43 PM
طبعا " أخى العزيز محمد " هناك ما هو أحسن للتنفيذ فى مثل هذه الحالة الخاصة بك

وهو الحصول على العنوان للملف الذى تم تحميلة أو جميع البروبيرتيز " الخصائص للملف الذى تم تحميلة "

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

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

دقائق ويتم رفع الإضافة والمثال معا لمن لا يمتلكها


:abc_138:

عبود عبود
24-03-2017, 09:11 PM
تفضل الإضافة والملف المفتوح معا

https://www.dropbox.com/s/ymr3cpdkt41fi4x/MyMediaInfoDll.rar?dl=0

تذكر بعد التحميل وفك الضغط أن تضع المجلد الناتج فى مسار إضافات الأكشن فى برنامج الأتوبلاى ميديا ستوديو أولا

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


:abc_152:

محمد بن أحمد أبو حذيفة
24-03-2017, 09:29 PM
تفضل الإضافة والملف المفتوح معا

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

تذكر بعد التحميل وفك الضغط أن تضع المجلد الناتج فى مسار إضافات الأكشن فى برنامج الأتوبلاى ميديا ستوديو أولا

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


:abc_152:


بارك الله فيك
لكن الملف المفتوح يعطي معلومات عن الملف فقط
لكن انا اريد ان اغير اسم الملف بحيث اخذ الاسم من Title ;ضعه في مكان الاسم

عبود عبود
24-03-2017, 09:33 PM
ههههههههه إزاى بس يا حاج

الملف بيعرض لك التيتيل المطلوب

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

عبود عبود
24-03-2017, 09:47 PM
إية الأخبار يا عم الحاج ؟ عرفت توظفه فى المطلوب ولا أعملك ملف تانى مع الليست بوكس و الميديا بلير للتوضيح ؟

محمد بن أحمد أبو حذيفة
24-03-2017, 10:13 PM
إية الأخبار يا عم الحاج ؟ عرفت توظفه فى المطلوب ولا أعملك ملف تانى مع الليست بوكس و الميديا بلير للتوضيح ؟

ليس بعد اخي عبود
ممكن اتعبك معي وتضع المف المفتوح

عبود عبود
24-03-2017, 10:48 PM
تفضل أخى محمد

الملف التالى به ليست بوكس و ميديا بلير للتشغيل وزر للحفظ يمكن من خلالة حفظ الملف المشغل فى الميديا بلير

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


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

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


https://www.dropbox.com/s/rvi6stuh0yltilv/MediaInfoDLL_Example%20%202%20by%20abood.rar?dl=0

محمد بن أحمد أبو حذيفة
24-03-2017, 11:06 PM
تفضل أخى محمد

الملف التالى به ليست بوكس و ميديا بلير للتشغيل وزر للحفظ يمكن من خلالة حفظ الملف المشغل فى الميديا بلير

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


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

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


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


بارك الله فيك
لكن الزر لا يقوم بالحفظ لا اعرف السبب

تظهر الصورة

https://e.top4top.net/p_448smim61.png

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

عبود عبود
24-03-2017, 11:21 PM
نسخة الويندوز لديك فرنسية قد تكون هى السبب مش قادر أركز فى ما هو الخطأ لديك أو طريقة الحل " حاليا " علشان عاوز أنام :abc_145:

أراكم لاحقا :abc_152:

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

محمد بن أحمد أبو حذيفة
24-03-2017, 11:23 PM
نسخة الويندوز لديك فرنسية قد تكون هى السبب مش قادر أركز فى ما هو الخطأ لديك أو طريقة الحل " حاليا " علشان عاوز أنام :abc_145:

أراكم لاحقا :abc_152:

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

بارك الله فيك
اعانك الله نلتقي ان شاء الله تعالى

كذلك اذا ممكن ما يلي

حفظ الملفات من اليست بوكس جملة واحدة

عبود عبود
24-03-2017, 11:28 PM
بارك الله فيك
اعانك الله نلتقي ان شاء الله تعالى

كذلك اذا ممكن ما يلي

حفظ الملفات من اليست بوكس جملة واحدة

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

وهذة صورة منى أثناء الحفظ

http://i.imgur.com/uKqngGV.jpg

محمد بن أحمد أبو حذيفة
24-03-2017, 11:36 PM
إن شاء الله بعد يومين نلتقى

وهذة صورة منى أثناء الحفظ

http://i.imgur.com/uKqngGV.jpg


ان شاء الله تعالى

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

https://d.top4top.net/p_448gesg11.png

عبود عبود
24-03-2017, 11:44 PM
إن شاء الله المشكلة ستكون فى ضبط فى لغة الويندوز سنحاول حلها من خلال الإطلاع على اللغات المنصبة فى الويندوز ووضع اللغة العربية مع اللغة الإنجليزية وحذف اللغة الفرنسية

عندما نلتقى مجددا إن قدر الله ذلك نعمل على حلها

محمد بن أحمد أبو حذيفة
24-03-2017, 11:56 PM
إن شاء الله المشكلة ستكون فى ضبط فى لغة الويندوز سنحاول حلها من خلال الإطلاع على اللغات المنصبة فى الويندوز ووضع اللغة العربية مع اللغة الإنجليزية وحذف اللغة الفرنسية

عندما نلتقى مجددا إن قدر الله ذلك نعمل على حلها


تم حل المشكلة اللغة
بقي زر الحفظ للمجموعة كاملا
كذلك الاسم لا يغير في خانة الحفظ

عبود عبود
24-03-2017, 11:59 PM
تم حل المشكلة اللغة
بقي زر الحفظ للمجموعة كاملا
كذلك الاسم لا يغير في خانة الحفظ

كيف تم حلها ؟ لنستفيد

محمد بن أحمد أبو حذيفة
25-03-2017, 12:01 AM
غيرت في خصائص عرض اللغة

محمد بن أحمد أبو حذيفة
25-03-2017, 12:02 AM
الاسم لا يتغير
انظر الصورة

https://b.top4top.net/p_448ndfhb1.png

عبود عبود
25-03-2017, 12:03 AM
فى الويندوز أم الأتوبلاى ؟

محمد بن أحمد أبو حذيفة
25-03-2017, 12:03 AM
فى الويندوز أم الأتوبلاى ؟

في الونداوز

عبود عبود
25-03-2017, 12:10 AM
الاسم لا يتغير
انظر الصورة

https://b.top4top.net/p_448ndfhb1.png

لاحظ الصورة التى رفعتها لك الإسم وبجوارة الإمتداد .mp3

عبود عبود
25-03-2017, 12:12 AM
كما يمكننا تغيير طريقة الحفظ هذة إن لم تروق لك بأخرى

محمد بن أحمد أبو حذيفة
25-03-2017, 12:13 AM
لاحظ الصورة التى رفعتها لك الإسم وبجوارة الإمتداد .mp3


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

عبود عبود
25-03-2017, 12:16 AM
طيب أوك نكمل عندما نلتقى ونغير الطريقة إلى طريقة أسهل فى الحفظ عن طريق ديالوج فولدر براوز بدلا من ديالوج فايل براوز ومن ثم فايل كوبى إلى الفولدر الذى يتم تحديدة

محمد بن أحمد أبو حذيفة
25-03-2017, 12:18 AM
طيب أوك نكمل عندما نلتقى ونغير الطريقة إلى طريقة أسهل فى الحفظ عن طريق ديالوج فولدر براوز بدلا من ديالوج فايل براوز ومن ثم فايل كوبى إلى الفولدر الذى يتم تحديدة

ان شاء الله تعالى

عبود عبود
25-03-2017, 12:19 AM
:abc_138::abc_138::abc_138: هزمنى النوم الآن

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

ياسرهتهت
25-03-2017, 01:15 AM
فكرة جميلة جدا جدا

رحم الله والديك وكل من ساعدك على هذا العمل
كنت اعاني كثيرا من هذه المشكلة وكنت اضطر لتغير الاسم يدويا وكنت اغير في بعض الاحيان ما يقارب 200 اسم لملف mp3

لكن الفكرة جيدة وراقت اعجابي وستفيدني كثيرا

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

تابع معي


المفات حملتها من هنا

https://archive.org/details/ModarasaWaTadriss20

وبالرغم من ان اسمائها كلها بالعربية الا ان بعد التحميل تظهر كما في الصورة

https://b.top4top.net/p_448z4no01.png

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

فهل ممكن ان ناخذ الاسم من

Titre -------------------ونضعه في مكان -------------NOM
--------------------------------------------------------------------------------------
بسم الله الرحمن الرحيم

اخي محمد عند تحميلي من الموقع الذي اشرت له انت
نزل معي الملف عادي بالاسم الاصلي للملف
كما في الصورة
https://a.top4top.net/p_448n1miu1.png

وهذا ملف نصي للملفات كما ظهر امامي في المرفقات

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

كيف انتهت مشكلة اللغة --- عندي نفس المشكلة ؟
مع الملف المرفق في المثال

https://e.top4top.net/p_448wpsnv1.png


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

ياسرهتهت
25-03-2017, 01:28 AM
تفضل الإضافة والملف المفتوح معا

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

تذكر بعد التحميل وفك الضغط أن تضع المجلد الناتج فى مسار إضافات الأكشن فى برنامج الأتوبلاى ميديا ستوديو أولا

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


:abc_152:
-------------------------
بسم الله الرحمن الرحيم
بارك الله فيك استاذ عبود اضافه رائعه ومفيده
تعمل معي بشكل جيد مع الملفات التي انا احملها
لكن مع الملف المرفق في المثال تعطيني نفس مشكلة اخونا محمد

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

:abc_152::abc_152::abc_152::abc_152:

محمد بن أحمد أبو حذيفة
25-03-2017, 07:35 AM
--------------------------------------------------------------------------------------
بسم الله الرحمن الرحيم

اخي محمد عند تحميلي من الموقع الذي اشرت له انت
نزل معي الملف عادي بالاسم الاصلي للملف
كما في الصورة
https://a.top4top.net/p_448n1miu1.png

وهذا ملف نصي للملفات كما ظهر امامي في المرفقات

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

كيف انتهت مشكلة اللغة --- عندي نفس المشكلة ؟
مع الملف المرفق في المثال

https://e.top4top.net/p_448wpsnv1.png


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

بارك الله فيك

غريب اعطني صورة من المفلفات التي حملتها
بالنسبة للغة انظر الطريقة

https://up.top4top.net/downloadf-449l2ley1-rar.html

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

ثامر أبو بلقيس
25-03-2017, 11:51 AM
https://f.top4top.net/p_44964qde1.jpg


موفق

ياسرهتهت
25-03-2017, 12:17 PM
بارك الله فيك

غريب اعطني صورة من المفلفات التي حملتها
بالنسبة للغة انظر الطريقة

https://up.top4top.net/downloadf-449l2ley1-rar.html

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

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

محمد بن أحمد أبو حذيفة
25-03-2017, 01:28 PM
------------------------------
بسم الله الرحمن الرحيم
الملف المفتوح يعمل بشكل جيد مع الملفات التي احملها انا
اما مع الملف المرفق يعطي نفس المشكلة عندك


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

ياسرهتهت
25-03-2017, 01:33 PM
بارك الله فيك
هل ممكن فيديو لمشكلة التي تظهر معك

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

اخي محمد الامر لا يحتاج فيديو
وضعت لك هذة الصورة في المشاركة السابقة
وهي تعبر عن المشكله
مع ان اعداداتي سليمة للغة
https://e.top4top.net/p_448wpsnv1.png

محمد بن أحمد أبو حذيفة
25-03-2017, 01:36 PM
بسم الله الرحمن الرحيم

اخي محمد الامر لا يحتاج فيديو
وضعت لك هذة الصورة في المشاركة السابقة
وهي تعبر عن المشكله
مع ان اعداداتي سليمة للغة
https://e.top4top.net/p_448wpsnv1.png


هل غيرت الاعدادات كما ارسلت لك

محمد بن أحمد أبو حذيفة
25-03-2017, 01:45 PM
هذه المكشلة التي عندي

الاسم لا يتغير رغم تغير المححد في اليست بوكس

https://e.top4top.net/p_449hpo691.gif

ياسرهتهت
25-03-2017, 01:46 PM
هل غيرت الاعدادات كما ارسلت لك

========================
هي كانت من الاصل نفس الاعدادات التي ارسلت

محمد بن أحمد أبو حذيفة
25-03-2017, 02:03 PM
========================
هي كانت من الاصل نفس الاعدادات التي ارسلت


هذه المكشلة التي عندي

الاسم لا يتغير رغم تغير المححد في اليست بوكس

https://e.top4top.net/p_449hpo691.gif

ثامر أبو بلقيس
25-03-2017, 05:15 PM
سأحاول تحميل الملفات الصوتية بطريقة سليمة من البداية
فهل سينجح لو فعلت الاضافة
https://d.top4top.net/p_449m9o8k1.jpg

ووضعت الكود التالي في زر
for i = 1,32 do
lien = "http://archive.org/download/ModarasaWaTadriss20/modarasa%20wa%20tadriss%20".."("..(i)..")"..".mp3"
HTTP.Download(lien , "C:\\"..(i)..".mp3", MODE_BINARY, 20, 80, nil, nil, nil);
result = Mp3.GetTagInfo("C:\\"..(i)..".mp3");
File.Rename("C:\\"..(i)..".mp3", "C:\\"..result.Title..".mp3");
Dialog.TimedMessage("تم تحميل الملف",result.Title , 2000, MB_ICONINFORMATION);
end

وجيد لو كان البرنامج ذو صفة مسؤول

ما كتبت ليست رد على أي تساؤل ..... مجرد مرور

محمد بن أحمد أبو حذيفة
25-03-2017, 05:25 PM
سأحاول تحميل الملفات الصوتية بطريقة سليمة من البداية
فهل سينجح لو فعلت الاضافة
https://d.top4top.net/p_449m9o8k1.jpg

ووضعت الكود التالي في زر
for i = 1,32 do
lien = "http://archive.org/download/modarasawatadriss20/modarasa%20wa%20tadriss%20".."("..(i)..")"..".mp3"
http.download(lien , "c:\\"..(i)..".mp3", mode_binary, 20, 80, nil, nil, nil);
result = mp3.gettaginfo("c:\\"..(i)..".mp3");
file.rename("c:\\"..(i)..".mp3", "c:\\"..result.title..".mp3");
dialog.timedmessage("تم تحميل الملف",result.title , 2000, mb_iconinformation);
end

وجيد لو كان البرنامج ذو صفة مسؤول

ما كتبت ليست رد على أي تساؤل ..... مجرد مرور

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

محمد بن أحمد أبو حذيفة
25-03-2017, 05:29 PM
بسم الله الرحمن الرحيم
الملف ايضا ياخذ كل المفات التي في المجلد حتى ولم تحددها

ياسرهتهت
25-03-2017, 06:54 PM
سأحاول تحميل الملفات الصوتية بطريقة سليمة من البداية
فهل سينجح لو فعلت الاضافة
https://d.top4top.net/p_449m9o8k1.jpg

ووضعت الكود التالي في زر
for i = 1,32 do
lien = "http://archive.org/download/ModarasaWaTadriss20/modarasa%20wa%20tadriss%20".."("..(i)..")"..".mp3"
HTTP.Download(lien , "C:\\"..(i)..".mp3", MODE_BINARY, 20, 80, nil, nil, nil);
result = Mp3.GetTagInfo("C:\\"..(i)..".mp3");
File.Rename("C:\\"..(i)..".mp3", "C:\\"..result.Title..".mp3");
Dialog.TimedMessage("تم تحميل الملف",result.Title , 2000, MB_ICONINFORMATION);
end

وجيد لو كان البرنامج ذو صفة مسؤول

ما كتبت ليست رد على أي تساؤل ..... مجرد مرور
----------------------------
بسم الله الرحمن الرحيم
مرور رائع استاذنا الكريم
ومعلومات في غاية الاهمية
شـكــ وبارك الله فيك ـــرا لك .
:abc_138::abc_138::abc_138:

ياسرهتهت
25-03-2017, 07:01 PM
بسم الله الرحمن الرحيم
الملف ايضا ياخذ كل المفات التي في المجلد حتى ولم تحددها
------------------------------
بسم الله الرحمن الرحيم
اخي محمد
يمكنك التعامل مع فكرة استاذنا ابوبلقيس
مع الملفات المحمله عندك من قبل
اي نزيل الجزء الخاص بالتحميل فيصبح الكود بالشكل التالي

for i = 1,32 do
result = mp3.gettaginfo("c:\\"..(i)..".mp3");
file.rename("c:\\"..(i)..".mp3", "c:\\"..result.title..".mp3");
dialog.timedmessage("Êã ÊÍãíá ÇáãáÝ",result.title , 2000, mb_iconinformation);
end

فقط ضع ملفات الـــ 32 في مجلد c ستجدها قد تغيرت
موفق بإذن الله ... لك مني أجمل تحية .

محمد بن أحمد أبو حذيفة
25-03-2017, 07:15 PM
------------------------------
بسم الله الرحمن الرحيم
اخي محمد
يمكنك التعامل مع فكرة استاذنا ابوبلقيس
مع الملفات المحمله عندك من قبل
اي نزيل الجزء الخاص بالتحميل فيصبح الكود بالشكل التالي

for i = 1,32 do
result = mp3.gettaginfo("c:\\"..(i)..".mp3");
file.rename("c:\\"..(i)..".mp3", "c:\\"..result.title..".mp3");
dialog.timedmessage("Êã ÊÍãíá ÇáãáÝ",result.title , 2000, mb_iconinformation);
end

فقط ضع ملفات الـــ 32 في مجلد c ستجدها قد تغيرت
موفق بإذن الله ... لك مني أجمل تحية .

بارك الله فيك

يوجد خلل

https://b.top4top.net/p_449og1yy1.png

ثامر أبو بلقيس
25-03-2017, 07:19 PM
العمل بالأكواد المقتبسة خطأ

هناك فرق :abc_138:


for i = 1,32 do
result = Mp3.GetTagInfo("C:\\"..(i)..".mp3");
File.Rename("C:\\"..(i)..".mp3", "C:\\"..result.Title..".mp3");
end

محمد بن أحمد أبو حذيفة
25-03-2017, 09:24 PM
--------------------------------------
جرب الملف في المرفقات

https://e.top4top.net/p_449b4ri11.gif



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


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

المفات في الملف الاصلي يحولها ايضا

https://c.top4top.net/p_4495hpbu1.png

كذلك يحفظ مباشرة بعد اختيارك الاسم على سطح المكتب

محمد بن أحمد أبو حذيفة
25-03-2017, 11:15 PM
---------------------------------------------------
بسم الله الرحمن الرحيم
بعض التعديل على الملف

جرب الملف في المرفقات

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

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

الملفات في المجلد الاصلي تتغير اسمائها كما في الصورة السابقة
ايضا في ملف المفات الاصلية الذي تم حفظه تظهر الاسماء متغيرة

https://e.top4top.net/p_449azgt21.png


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

ايضا في اليست بوكس تظهر بعد انهاء العملية الملفات الاصلية مع المعدلة

ياسرهتهت
26-03-2017, 12:27 AM
بارك الله فيك
اتعبتك معي
لكن بقي بعض الامور

الملفات في المجلد الاصلي تتغير اسمائها كما في الصورة السابقة
ايضا في ملف المفات الاصلية الذي تم حفظه تظهر الاسماء متغيرة

https://e.top4top.net/p_449azgt21.png


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

ايضا في اليست بوكس تظهر بعد انهاء العملية الملفات الاصلية مع المعدلة
----------------------------------------------
بسم الله الرحمن الرحيم

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

انك تستخدم نفس المجلد الذي الملفات الاصلية للحفظ او هنالك شيئ لا افهمه ؟
كيف تصل الملفات المتغير الي ListBox؟؟؟
الطريقة الصحيحة
1- انسخ ملفاتك المراد تغير اسمائها بشكل يدوي الي مجلد سميه ما تشاء وليكن مثلا a1
2- من زر حدد المجلد حدد من النافذه المجلد a1 ليتم ادراج الملفات في ListBox
3- اضغط على زر تغير الاسماء -- وادخل اسم مجلد جديد وليكن B2مثلا
يعد ذالك اذهب لسطح المكتب وستجد المجلد B2 ويحتوي على المطلوب --- فقط
--- عندي العملية ناجحة 100% ولا يوجد اي مشاكل
موفق بإذن الله ... لك مني أجمل تحية .

محمد بن أحمد أبو حذيفة
26-03-2017, 07:54 AM
----------------------------------------------
بسم الله الرحمن الرحيم

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

انك تستخدم نفس المجلد الذي الملفات الاصلية للحفظ او هنالك شيئ لا افهمه ؟
كيف تصل الملفات المتغير الي ListBox؟؟؟
الطريقة الصحيحة
1- انسخ ملفاتك المراد تغير اسمائها بشكل يدوي الي مجلد سميه ما تشاء وليكن مثلا a1
2- من زر حدد المجلد حدد من النافذه المجلد a1 ليتم ادراج الملفات في ListBox
3- اضغط على زر تغير الاسماء -- وادخل اسم مجلد جديد وليكن B2مثلا
يعد ذالك اذهب لسطح المكتب وستجد المجلد B2 ويحتوي على المطلوب --- فقط
--- عندي العملية ناجحة 100% ولا يوجد اي مشاكل
موفق بإذن الله ... لك مني أجمل تحية .

بارك الله فيك العملية تتم بنجاح الاى ان ملفات المجلد الاصلي تنتقل من مجلدها الاصلي الى المجلد الذي ينسئه البرنامج

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

https://a.top4top.net/p_4508kb8z1.gif

غادة عبد الحق
26-03-2017, 11:34 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

غادة عبد الحق
26-03-2017, 11:38 AM
بسم الله الرحمن الرحيم
اخي محمد
يمكن تفريغ اليست بكس
بادراج هذا الكود في زر
او في نهاية كود التغير

listbox.deleteitem("listbox1", lb_allitems);

حمل من المرفقات

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

ياسرهتهت
26-03-2017, 12:24 PM
ممكن مع تغير الاسم تغير الصورة للملفات شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

-----------------------------
بسم الله الرحمن الرحيم
الحقيقة لا اعرف
من الكود الخاص بالاضافه
result.Title
result.Artist
result.Genre
result.Album

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

محمد بن أحمد أبو حذيفة
26-03-2017, 02:23 PM
[QUOTE=محمد بن أحمد أبو حذيفة;310679]بارك الله فيك العملية تتم بنجاح الاى ان ملفات المجلد الاصلي تنتقل من مجلدها الاصلي الى المجلد الذي ينسئه البرنامج

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

=========================
بسم الله الرحمن الرحيم
هذا الملف تم معالجة جميع النقاط التي ذكرتها
المشكلة والسبب كانت في الامر File.Rename
عند استخدام الامر File.Copy
اصبح لا يحذف الملفات الاصلية
جرب واعطيني ملاحظاتك
حمل من المرفقات




بارك الله فيك

هل ممكن تغير مسار ملف حفظ المفات الناتجة
الملف الحالي هو

C:\Users\abouhoudaifa02\Desktop\32\after change

هل ممكن ان نجعله فقط

\اسم المجلدC:\Users\abouhoudaifa02\Desktop

ياسرهتهت
26-03-2017, 06:50 PM
[quote=ياسرهتهت;310690]



بارك الله فيك

هل ممكن تغير مسار ملف حفظ المفات الناتجة
الملف الحالي هو

c:\users\abouhoudaifa02\desktop\32\after change

هل ممكن ان نجعله فقط

\اسم المجلدc:\users\abouhoudaifa02\desktop
-----------------------------
بسم الله الرحمن الرحيم
نـــــــــــــــــعم ممـــــــــــــــــــــــ ـكن
تم التعديل بحيث تحفظ في اي مكان واي اسم كما تشاء
حمل التعديل في المرفقات

محمد بن أحمد أبو حذيفة
26-03-2017, 07:17 PM
[quote=محمد بن أحمد أبو حذيفة;310691]
-----------------------------
بسم الله الرحمن الرحيم
نـــــــــــــــــعم ممـــــــــــــــــــــــ ـكن
تم التعديل بحيث تحفظ في اي مكان واي اسم كما تشاء
حمل التعديل في المرفقات




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

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

معذرة اتعباناك معنا

ياسرهتهت
26-03-2017, 07:51 PM
[quote=ياسرهتهت;310692]


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

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

معذرة اتعباناك معنا
---------------------------------------

امكانية التسمية متوفرة
شاهد الفيديو

https://www.youtube.com/watch?v=ZFcLVPW1wuE&feature=youtu.be


https://up.top4top.net/downloadf-450lwo4h1-rar.html

محمد بن أحمد أبو حذيفة
26-03-2017, 08:09 PM
[QUOTE=محمد بن أحمد أبو حذيفة;310693]
---------------------------------------

امكانية التسمية متوفرة
شاهد الفيديو

https://up.top4top.net/downloadf-450lwo4h1-rar.html





رحمك الله حيا وميتا


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

وبعد اذنك هل ممكن ان انشر الملف لتعم الفادة

بقي شيئ اخر ما هي الصيغة المناسبة لحفظ الملف هل exe مناسب
ايضا اريد ان ارجع بك الى الوارء قليلا


http://www.abc4web.net/vb/showpost.php?p=310578&postcount=10

الملف يعمل بشكل جيد

لكن اريد بعض التعديل عليه

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

ياسرهتهت
27-03-2017, 11:21 AM
[QUOTE=ياسرهتهت;310695][CENTER]



رحمك الله حيا وميتا


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

وبعد اذنك هل ممكن ان انشر الملف لتعم الفادة

بقي شيئ اخر ما هي الصيغة المناسبة لحفظ الملف هل exe مناسب
ايضا اريد ان ارجع بك الى الوارء قليلا


http://www.abc4web.net/vb/showpost.php?p=310578&postcount=10

الملف يعمل بشكل جيد

لكن اريد بعض التعديل عليه

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

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

ياسرهتهت
27-03-2017, 11:40 AM
ممكن مع تغير الاسم تغير الصورة للملفات شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

------------------------------------
بسم الله الرحمن الرحيم
Tag&Rename

http://www.softpointer.com/images/tr_small.png (http://www.softpointer.com/tr.htm)

هذا البرنامج يغير صورة ملفات mp3
رابط تحميل
https://up.top4top.net/downloadf-45184h8r1-rar.html

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

محمد بن أحمد أبو حذيفة
27-03-2017, 01:26 PM
[quote=محمد بن أحمد أبو حذيفة;310696]
-----------------------------
بسم الله الرحمن الرحيم
اخي محمد
الملف هو لك افعل به ما تشاء
ولكن انا خبرتي محدوده واكتب الاكواد بطريقتي وهي طريقة غير احترافية
بالكاد امشي اموري
ومن يعمل عمل وينشره يكون واثق من نجاح هذا العمل وامكانياته ؟
وانه يغطي كل الجوانب والمتطلبات ؟ وهذا غير متوفر
وكما اشار استاذنا ابويلفيس العمل بالاكواد المقتبسه خطأ
والفكرة كلها مبنيه على الاضافة mp3 والتي لم اكن اعرفها الا من خلال كود استاذنا ابو بلقيس
--------
بخصوص الملف الاول
ساحاول تعديلة ان شاء الله يحتوي على كثير من الاخطاء
-------
بخصوص الحفظ
نعم يمكن الحفظ بصيغة exe

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

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

ثامر أبو بلقيس
27-03-2017, 01:27 PM
[QUOTE=ياسرهتهت;310701]
-----------------------------
بسم الله الرحمن الرحيم
وكما اشار أخي ابوبلفيس العمل بالاكواد المقتبسه خطأ
موفق بإذن الله ... لك مني أجمل تحية .

كـــل ما أقصده : هو عندما تكتب كود في علبة الردود
تجده يعمل

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

موفق :abc_138:

عبود عبود
27-03-2017, 03:11 PM
welcome again

عبود عبود
27-03-2017, 04:10 PM
حفظ الملف الذى يتم إختيارة وتشغيلة فى الميديا بلير بطريقة أخرى :

https://www.dropbox.com/s/4rfu9i022gaff6y/MediaInfoDLL_Example%20%203%20by%20abood.apz?dl=0

محمد بن أحمد أبو حذيفة
27-03-2017, 07:56 PM
حفظ الملف الذى يتم إختيارة وتشغيلة فى الميديا بلير بطريقة أخرى :

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


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

عبود عبود
27-03-2017, 08:21 PM
بارك الله فيك اخي عبود
لكن لم نترك خيار للمستخدم لاضافة الملفات

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

محمد بن أحمد أبو حذيفة
27-03-2017, 08:49 PM
الملف يعمل على حفظ الملف الذى تم إختيارة من الليست بوكس وذلك عن طريق عرض ديالوج من خلالة يختار المستخدم مكان الحفظ


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

محمد بن أحمد أبو حذيفة
27-03-2017, 08:58 PM
الملف يعمل على حفظ الملف الذى تم إختيارة من الليست بوكس وذلك عن طريق عرض ديالوج من خلالة يختار المستخدم مكان الحفظ


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

http://www.abc4web.net/vb/showpost.php?p=310696&postcount=69

عبود عبود
27-03-2017, 09:03 PM
اخي عبود
لكن يجب على المستخدم ان يضع الملفات في مجلد مختار مسبقا
انا ارى ان الافضل ان نترك المستخدم يحدد مكان المفات من جهاز

مجرد أن يتم إختيار مكان الحفظ من الديالوج يتم الحفظ للملف المحدد إلى هذا المجلد "مكان الحفظ" أما إذا كنت تريد الحفظ فى مجلد آخر فى مكان الحفظ فيكون تعديل قليل جدا يمكن أن يتم هل هذا ما تطلبه ؟

عبود عبود
27-03-2017, 09:05 PM
اخي عبود نحتاجك هنا للمشاركة

http://www.abc4web.net/vb/showpost.php?p=310696&postcount=69

من الأفضل وضع آخر ملف مفتوح تعمل عليه حتى يتضح المطلوب علشان كده دخلنا فى متاهه :abc_065:

محمد بن أحمد أبو حذيفة
27-03-2017, 09:10 PM
من الأفضل وضع آخر ملف مفتوح تعمل عليه حتى يتضح المطلوب علشان كده دخلنا فى متاهه :abc_065:


اخي لم تفهم مقصدي
انا اقصد مثل هذا الكود

Browse = Dialog.FolderBrowse("Please select a folder:", _WindowsFolder);
tip = {"*.mp3","*.mp4"}
if Browse~="CANCEL" then
for i= 1,#tip do
Find = File.Find(Browse, tip[i], false, false, nil, nil);
if Find~=nil then
for i, s in pairs(Find) do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
end
end



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


https://up.top4top.net/downloadf-4519jmt11-rar.html

عبود عبود
27-03-2017, 09:54 PM
مش فاهم إية المطلوب بالضبط وما هى وظائف الثلات ليستات بوكس :abc_152:

محمد بن أحمد أبو حذيفة
27-03-2017, 10:27 PM
مش فاهم إية المطلوب بالضبط وما هى وظائف الثلات ليستات بوكس :abc_152:

اليست بوكس الاولى لتحميل الملفات mp3 mp4

الليست بوكس الثاني لاضافة نلف txt الذي يحمل عناوين الملفات
اليست بوكس 3 يظهر العنوان النهائي

عبود عبود
27-03-2017, 10:40 PM
اليست بوكس الاولى لتحميل الملفات mp3 mp4

الليست بوكس الثاني لاضافة نلف txt الذي يحمل عناوين الملفات
اليست بوكس 3 يظهر العنوان النهائي


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

أنسحب من الإستكمال معكم :abc_138:

محمد بن أحمد أبو حذيفة
27-03-2017, 10:42 PM
ههههههه بعد المجهود المبذول السابق فى توضيح الطريقة الأفضل تعود بنا للخلف مرة أخرى ههههههههه

أنسحب من الإستكمال معكم :abc_138:

لم تفهم مقصدي بعد

الملف هذا استعمله لتسمية ملفات دفعة واحدة دون اللجوء الى تغير كل ملف وحده

اما الملف الذي صممته هو لاخذ العنوان من نفس الملف عكس البرمجة الاولى

عبود عبود
27-03-2017, 10:49 PM
وضحت لك على سبيل المثال للتجربة على ملف واحد ولكن البرمجة الفعلية تعمل مع أى عدد من الملفات موضوعة فى نفس المجلد فهل جربت قبل الحكم ؟

محمد بن أحمد أبو حذيفة
27-03-2017, 10:56 PM
وضحت لك على سبيل المثال للتجربة على ملف واحد ولكن البرمجة الفعلية تعمل مع أى عدد من الملفات موضوعة فى نفس المجلد فهل جربت قبل الحكم ؟


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

انا عندي ملفات كما في الصورة


https://e.top4top.net/p_451babzy1.png

اريد تغير اسمائها جملة واحدة كما هو في الملف النصي

الملف النصي اكتب فيه الاسماء واحد بعد الاخر واستدعيه الى الليست بوكس 2

هل فهمت مقصدي

عبود عبود
27-03-2017, 11:10 PM
نعم فهمتك جيدا

وعلى ذلك قمت بترشيح إستخدام الإضافة السابق ذكرها لك لأن إمكانياتها هائلة

مفيش عنوان فى صورتك السابقة ولكن هناك إسم nom يمكن التعامل معة أيضا

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

http://www.abc4web.net/vb/images/icons/icon_z.gif البرمجة تتم حسب الإحتياج للمبرمج فى برنامجه

محمد بن أحمد أبو حذيفة
27-03-2017, 11:17 PM
نعم فهمتك جيدا

وعلى ذلك قمت بترشيح إستخدام الإضافة السابق ذكرها لك لأن إمكانياتها هائلة

مفيش عنوان فى صورتك السابقة ولكن هناك إسم nom يمكن التعامل معة أيضا

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

http://www.abc4web.net/vb/images/icons/icon_z.gif البرمجة تتم حسب الإحتياج للمبرمج فى برنامجه


اخي عبود اما انا لم افهم مقصدك من المف او انك لم تفهمني بعد

عندي ملفات اسمائها ارقام مرقمة من 1 الى 50 وليس لها عنوان لاخذه ونغيره الى اسم
اريد ان اغير اسمائها الى

مثلا
الحديث الاول
الحديث الثاني
الوضوء
الطهارة
..... الخ

هل ينفع الملف الذي صممته

واعتذر على الاطالة

ياسرهتهت
28-03-2017, 01:25 AM
اخي عبود اما انا لم افهم مقصدك من المف او انك لم تفهمني بعد

عندي ملفات اسمائها ارقام مرقمة من 1 الى 50 وليس لها عنوان لاخذه ونغيره الى اسم
اريد ان اغير اسمائها الى

مثلا
الحديث الاول
الحديث الثاني
الوضوء
الطهارة
..... الخ

هل ينفع الملف الذي صممته

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

محمد بن أحمد أبو حذيفة
28-03-2017, 08:22 AM
----------------------------------------
بسم الله الرحمن الرحيم
اخي العزيز محمد
الموضوع فقط يحتاج بعض الوقت انا اليوم وغدا مشغول
والفكره انا فاهمها تماما وشرح الفكره صعب
والملف المفتوح الذي فيه 3 ليست بكس كله اغلاط
وانا سوف اعدله ان شاء الله
والاستاذ عبود والاساتذه الكرام نستعين بهم ان شاء الله في كتابة الكود النهائي
والفقرات الصعبة من الكود
فقط بعض الوفت وكل شيء يكون تمام
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:







بارك الله فيك في انتظارك وبقيت الاخوى

محمد بن أحمد أبو حذيفة
29-03-2017, 04:43 PM
بسم الله الرحمن الرحيم
ملف مفتوح للتعديل عليه
https://up.top4top.net/downloadf-453qbz7n1-rar.html

عبود عبود
30-03-2017, 12:26 AM
بسم الله الرحمن الرحيم
ملف مفتوح للتعديل عليه
https://up.top4top.net/downloadf-453qbz7n1-rar.html

إليك هذا التعديل بنفس طريقتكم

https://www.dropbox.com/s/dyzchlfgtv4ogdp/%D8%AA%D8%BA%D9%8A%D8%B1%20%D8%A7%D8%B3%D9%85%20%D 9%85%D9%84%D9%81%D8%A7%D8%AA%20%D8%AF%D9%81%D8%B9% D8%A9%20%D9%88%D8%A7%D8%AD%D8%AF%D8%A9%20%202.rar? dl=0

محمد بن أحمد أبو حذيفة
30-03-2017, 12:36 AM
إليك هذا التعديل بنفس طريقتكم

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


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

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

اسماء الملفات غير مرتبة في الليست بوكس الاولى كما هو مبين في الصورة
لذلك سوف ياخذ الملف رقم 10 اسم الملف الثاني


https://b.top4top.net/p_4532fex81.png
ايضا زر تغير التسمية لا ياخذ بعين الاعتبار اذا كانت اليست بوكس الالولى فارغة

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

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

عبود عبود
30-03-2017, 01:06 AM
رحمك الله حيا ميتا ومعذرة على الاطالة

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

اسماء الملفات غير مرتبة في الليست بوكس الاولى كما هو مبين في الصورة
لذلك سوف ياخذ الملف رقم 10 اسم الملف الثاني


https://b.top4top.net/p_4532fex81.png
ايضا زر تغير التسمية لا ياخذ بعين الاعتبار اذا كانت اليست بوكس الالولى فارغة

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

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

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

محمد بن أحمد أبو حذيفة
30-03-2017, 01:15 AM
تفضل ولكن حذفت الملفات الصوتية الموجودة فى مجلد الأوديو حتى يسهل على رفع الملف المفتوح

بارك الله فيك
بقيت مشكلة ترتيب الملفات في اليست بوكس 1
كيف يمكن ترتيبها مثلا 1.2.3.4.5.6.7.8.9.10

او حسب الابجدية العربية
او حسب اللغة الفرنسية

عبود عبود
30-03-2017, 01:17 AM
وحتى يتم حذف ما هو موجود فى الليست بوكس عند الضغط مرة أخرى على زر Browse-Folder

نسيت أن أضع لك هذا الكود :

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

فيكون الكود كاملا فى الزر هو :

--
result = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Audio");
if result~="CANCEL" and result~="" then
Find = File.Find(result, "*.*", false, false, nil, nil);
ListBox.DeleteItem("ListBox1", -1);
if Find~=nil then
for i, s in pairs(Find)do
if String.SplitPath(s).Extension==".mp3" or String.SplitPath(s).Extension==".mp4" or String.SplitPath(s).Extension==".rm" then
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
end
end
end
end


يعنى إحذف كل الأكواد الموجودة فى الزر Browse-Folder وضع الكود الكامل الذى وضعته لك فيه

محمد بن أحمد أبو حذيفة
30-03-2017, 01:22 AM
وحتى يتم حذف ما هو موجود فى الليست بوكس عند الضغط مرة أخرى على زر browse-folder

نسيت أن أضع لك هذا الكود :

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

فيكون الكود كاملا فى الزر هو :

--
result = dialog.folderbrowse("please select a folder:", "autoplay\\audio");
if result~="cancel" and result~="" then
find = file.find(result, "*.*", false, false, nil, nil);
listbox.deleteitem("listbox1", -1);
if find~=nil then
for i, s in pairs(find)do
if string.splitpath(s).extension==".mp3" or string.splitpath(s).extension==".mp4" or string.splitpath(s).extension==".rm" then
listbox.additem("listbox1", string.splitpath(s).filename, s);
end
end
end
end


يعنى إحذف كل الأكواد الموجودة فى الزر browse-folder وضع الكود الكامل الذى وضعته لك فيه


بارك الله فيك تم التطبيق ماذا عن زر التكست
وتربيت الملفات في الليست بوك الاولى

عبود عبود
30-03-2017, 01:28 AM
بارك الله فيك
بقيت مشكلة ترتيب الملفات في اليست بوكس 1
كيف يمكن ترتيبها مثلا 1.2.3.4.5.6.7.8.9.10

او حسب الابجدية العربية
او حسب اللغة الفرنسية

أكتفى بهذا القدر وأترك مساحة لباقى الزملاء

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

محمد بن أحمد أبو حذيفة
30-03-2017, 01:29 AM
أكتفى بهذا القدر وأترك مساحة لباقى الزملاء

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


بارك الله فيك ورحمك وجزاك كل خير

ثامر أبو بلقيس
30-03-2017, 02:44 AM
هل تقصــــد أن الملفات المراد إعادة تسميتها و التي سيتم استدعائها
إلى الليست 1 تسميتها الحاليــة أي الأصليــة قبل التحويل هي أرقام مرتبة ؟

محمد بن أحمد أبو حذيفة
30-03-2017, 08:45 AM
هل تقصــــد أن الملفات المراد إعادة تسميتها و التي سيتم استدعائها
إلى الليست 1 تسميتها الحاليــة أي الأصليــة قبل التحويل هي أرقام مرتبة ؟

بارك الله فيك نعم في هذه الحالة


الملفات المراد إعادة تسميتها و التي سيتم استدعائها
إلى الليست 1 تسميتها الحاليــة أي الأصليــة قبل التحويل هي أرقام مرتبة

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

اذا ممكن ان تعدل على اللف المفتوح

حمله من هنا (https://up.top4top.net/downloadf-454gf0w41-rar.html)


المطلوب هو

انظر الصورة

https://e.top4top.net/p_454pg2pl1.png


هل ممكن بارك الله فيكم جميعا

ثامر أبو بلقيس
30-03-2017, 10:05 AM
اللأسف أخي محمد ضننت أن الملفات الصوتية تسميتها أرقام

كنت بصدد المحاولة لكن مرة أرقام مرة حروف هذه لا أعرفها

موفق :abc_138:

محمد بن أحمد أبو حذيفة
30-03-2017, 06:12 PM
اللأسف أخي محمد ضننت أن الملفات الصوتية تسميتها أرقام

كنت بصدد المحاولة لكن مرة أرقام مرة حروف هذه لا أعرفها

موفق :abc_138:


بارك الله فيك

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

ثامر أبو بلقيس
30-03-2017, 06:20 PM
اجعلها أرقام أو اذ وجدنا الفرصة نضيف في الكود ما سيجعلها أرقام

المهم الان في زر Browse-Folder

جرب :
Browse = Dialog.FolderBrowse("Please select a folder:", "");
tip = {"*.mp3","*.mp4","*.rm"}
if Browse~="CANCEL" then
ListBox.DeleteItem("ListBox1", -1);for i= 1,#tip do
Find = File.Find(Browse, tip[i], false, false, nil, nil);
if Find~=nil then
for i, s in pairs(Find) do
-----------
if String.ToNumber(String.SplitPath(s).Filename) < 10 then ListBox.AddItem("ListBox1",string.format("a%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=10 then ListBox.AddItem("ListBox1", string.format("b%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=100 then ListBox.AddItem("ListBox1", string.format("c%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=1000 then ListBox.AddItem("ListBox1", string.format("d%d", String.SplitPath(s).Filename), s);
end
tblListboxProps = {};tblListboxProps.Sort = true;ListBox.SetProperties ("ListBox1",tblListboxProps);
end;end;end;end
if ListBox.GetCount("ListBox1") ~= 0 then
for v = 1,ListBox.GetCount("ListBox1") do
old = ListBox.GetItemText("ListBox1", v)
ListBox.SetItemText("ListBox1", v, String.Replace(old, string.format("%.1s", old), "", false));
end;end
--

بطاقة مقدرة بــ 9999 ملف صوتي

المصدر
http://www.abc4web.net/vb/showthread.php?t=29167
بالتوفيــــق :abc_138:

محمد بن أحمد أبو حذيفة
30-03-2017, 06:36 PM
اجعلها أرقام أو اذ وجدنا الفرصة نضيف في الكود ما سيجعلها أرقام

المهم الان في زر browse-folder

جرب :
browse = dialog.folderbrowse("please select a folder:", "");
tip = {"*.mp3","*.mp4","*.rm"}
if browse~="cancel" then
listbox.deleteitem("listbox1", -1);for i= 1,#tip do
find = file.find(browse, tip[i], false, false, nil, nil);
if find~=nil then
for i, s in pairs(find) do
-----------
if string.tonumber(string.splitpath(s).filename) < 10 then listbox.additem("listbox1",string.format("a%d", string.splitpath(s).filename), s);
elseif string.tonumber(string.splitpath(s).filename) >=10 then listbox.additem("listbox1", string.format("b%d", string.splitpath(s).filename), s);
elseif string.tonumber(string.splitpath(s).filename) >=100 then listbox.additem("listbox1", string.format("c%d", string.splitpath(s).filename), s);
elseif string.tonumber(string.splitpath(s).filename) >=1000 then listbox.additem("listbox1", string.format("d%d", string.splitpath(s).filename), s);
end
tbllistboxprops = {};tbllistboxprops.sort = true;listbox.setproperties ("listbox1",tbllistboxprops);
end;end;end;end
if listbox.getcount("listbox1") ~= 0 then
for v = 1,listbox.getcount("listbox1") do
old = listbox.getitemtext("listbox1", v)
listbox.setitemtext("listbox1", v, string.replace(old, string.format("%.1s", old), "", false));
end;end
--

بطاقة مقدرة بــ 9999 ملف صوتي

المصدر
http://www.abc4web.net/vb/showthread.php?t=29167
بالتوفيــــق :abc_138:


بارك الله فيك
لكن الترقيم يقفز من

9
10
100
101
هل ممكن تدراك هذا

ثامر أبو بلقيس
30-03-2017, 06:43 PM
نعم يمكن ذلك
Browse = Dialog.FolderBrowse("Please select a folder:", "");
tip = {"*.mp3","*.mp4","*.rm"}
if Browse~="CANCEL" then
ListBox.DeleteItem("ListBox1", -1);for i= 1,#tip do
Find = File.Find(Browse, tip[i], false, false, nil, nil);
if Find~=nil then
for i, s in pairs(Find) do
-----------
if String.ToNumber(String.SplitPath(s).Filename) < 10 then ListBox.AddItem("ListBox1",string.format("a%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=10 and String.ToNumber(String.SplitPath(s).Filename)<= 99 then ListBox.AddItem("ListBox1", string.format("b%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=100 and String.ToNumber(String.SplitPath(s).Filename)<= 999 then ListBox.AddItem("ListBox1", string.format("c%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=1000 and String.ToNumber(String.SplitPath(s).Filename)<= 9999 then ListBox.AddItem("ListBox1", string.format("d%d", String.SplitPath(s).Filename), s);
end
tblListboxProps = {};tblListboxProps.Sort = true;ListBox.SetProperties ("ListBox1",tblListboxProps);
end;end;end;end
if ListBox.GetCount("ListBox1") ~= 0 then
for v = 1,ListBox.GetCount("ListBox1") do
old = ListBox.GetItemText("ListBox1", v)
ListBox.SetItemText("ListBox1", v, String.Replace(old, string.format("%.1s", old), "", false));
end;end
--

محمد بن أحمد أبو حذيفة
30-03-2017, 06:58 PM
نعم يمكن ذلك
Browse = Dialog.FolderBrowse("Please select a folder:", "");
tip = {"*.mp3","*.mp4","*.rm"}
if Browse~="CANCEL" then
ListBox.DeleteItem("ListBox1", -1);for i= 1,#tip do
Find = File.Find(Browse, tip[i], false, false, nil, nil);
if Find~=nil then
for i, s in pairs(Find) do
-----------
if String.ToNumber(String.SplitPath(s).Filename) < 10 then ListBox.AddItem("ListBox1",string.format("a%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=10 and String.ToNumber(String.SplitPath(s).Filename)<= 99 then ListBox.AddItem("ListBox1", string.format("b%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=100 and String.ToNumber(String.SplitPath(s).Filename)<= 999 then ListBox.AddItem("ListBox1", string.format("c%d", String.SplitPath(s).Filename), s);
elseif String.ToNumber(String.SplitPath(s).Filename) >=1000 and String.ToNumber(String.SplitPath(s).Filename)<= 9999 then ListBox.AddItem("ListBox1", string.format("d%d", String.SplitPath(s).Filename), s);
end
tblListboxProps = {};tblListboxProps.Sort = true;ListBox.SetProperties ("ListBox1",tblListboxProps);
end;end;end;end
if ListBox.GetCount("ListBox1") ~= 0 then
for v = 1,ListBox.GetCount("ListBox1") do
old = ListBox.GetItemText("ListBox1", v)
ListBox.SetItemText("ListBox1", v, String.Replace(old, string.format("%.1s", old), "", false));
end;end
--



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

هل ممكن باقي الطلبات التي في الصورة ان كان لك وقت
رحمك الله

https://e.top4top.net/p_454pg2pl1.png

ثامر أبو بلقيس
30-03-2017, 08:38 PM
أخــي الكريم .. تلك حدود طاقتي
أما التعامل مع تلك الخصوصيات الموجودة في خصائص الملف

لا اجيد التعامل معها


موفق :abc_139:

عبود عبود
30-03-2017, 09:13 PM
إرفع الملف المطلوب إيجاد الخصائص له إذا أمكن

محمد بن أحمد أبو حذيفة
30-03-2017, 10:28 PM
أخــي الكريم .. تلك حدود طاقتي
أما التعامل مع تلك الخصوصيات الموجودة في خصائص الملف

لا اجيد التعامل معها


موفق :abc_139:

بارك الله فيك

محمد بن أحمد أبو حذيفة
30-03-2017, 10:40 PM
إرفع الملف المطلوب إيجاد الخصائص له إذا أمكن

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

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

والصورة الصحيحة هي

https://d.top4top.net/p_454wbi361.png

محمد بن أحمد أبو حذيفة
30-03-2017, 10:46 PM
تفضل اخر ملف مفتوح معدل عليه

https://up.top4top.net/downloadf-454mcxmw1-rar.html

عبود عبود
30-03-2017, 11:45 PM
طيب شوف :

هتفعل الإضافة ميمورى Memory وهتفعل الإضافة MyMediaInfoDll

تمام ؟؟؟

وتضع هذا الكود فى الحدث أو سليكت فى الليست بوكس الأول :

--
result = ListBox.GetSelected("ListBox1");
if result~=nil then
result = ListBox.GetItemData("ListBox1", result[1]);
if result~="" then
result = MediaInfo.Open(result);
if result then
_Title = MediaInfo.General("Title");
Input.SetText("Input1", _Title);
_Duration = MediaInfo.General("Performer");
Input.SetText("Input2", _Duration);
_Album = MediaInfo.General("Album");
Input.SetText("Input3", _Album);
_Lyricist = MediaInfo.General("Recorded_Date");
Input.SetText("Input4", _Lyricist);
Crypto.Base64DecodeFromString(MediaInfo.General("Cover_Data"), _SourceFolder.."\\image.jpg");
Image.Load("Image1", _SourceFolder.."\\image.jpg");
end
end
end

وسارع فى الرد على بالنتيجة

محمد بن أحمد أبو حذيفة
30-03-2017, 11:56 PM
طيب شوف :

هتفعل الإضافة ميمورى memory وهتفعل الإضافة mymediainfodll

تمام ؟؟؟

وتضع هذا الكود فى الحدث أو سليكت فى الليست بوكس الأول :

--
result = listbox.getselected("listbox1");
if result~=nil then
result = listbox.getitemdata("listbox1", result[1]);
if result~="" then
result = mediainfo.open(result);
if result then
_title = mediainfo.general("title");
input.settext("input1", _title);
_duration = mediainfo.general("performer");
input.settext("input2", _duration);
_album = mediainfo.general("album");
input.settext("input3", _album);
_lyricist = mediainfo.general("recorded_date");
input.settext("input4", _lyricist);
crypto.base64decodefromstring(mediainfo.general("cover_data"), _sourcefolder.."\\image.jpg");
image.load("image1", _sourcefolder.."\\image.jpg");
end
end
end

وسارع فى الرد على بالنتيجة


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

عبود عبود
31-03-2017, 12:06 AM
بارك الله فيك اخي عبود لكن المطلوب هو العكس
انا لا اريد استخراج المعلومات من الملف
انا اريد العكس انا اكتب القيم في الانبوت وعندما اضغط زر تغير التسمية يتغير الاسم وتتغير القيم كما هو كتبت في الانبوت


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

بعد يومين نلتقى حيث ميعاد العمل الخاص :abc_152:

محمد بن أحمد أبو حذيفة
31-03-2017, 12:08 AM
آه طيب ليس حاضرا فى ذهنى الآن الطريقة ولكن إن شاء الله سوف أحاول أن أجدها ...... سوف أكتب الحل هنا لكم عندما أجدها

بعد يومين نلتقى حيث ميعاد العمل الخاص :abc_152:


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

ثامر أبو بلقيس
31-03-2017, 12:29 AM
ليــست بالسهولة المتوقعة :abc_138:

ثامر أبو بلقيس
31-03-2017, 06:04 PM
لا أدري هل هذا هــو المقصــود
علما أن الملف التالي تنفيذي EXE
كون الاصدارات مختلفــة بين 7.5 و 8 لذلك لم أستطع إدراج أكواد
قلت ربما يساعد البرنامج إلى غاية توفر الأكواد بــ 8 و قد يحاول أخ فاضل بتحويل البليجين إلى 8

https://up.top4top.net/downloadf-455z5yu21-rar.html


برجاء فحص الملف موفق :abc_138:

محمد بن أحمد أبو حذيفة
31-03-2017, 07:16 PM
لا أدري هل هذا هــو المقصــود
علما أن الملف التالي تنفيذي exe
كون الاصدارات مختلفــة بين 7.5 و 8 لذلك لم أستطع إدراج أكواد
قلت ربما يساعد البرنامج إلى غاية توفر الأكواد بــ 8 و قد يحاول أخ فاضل بتحويل البليجين إلى 8

https://up.top4top.net/downloadf-455z5yu21-rar.html


برجاء فحص الملف موفق :abc_138:

بارك الله فيك الفكرة نفسها

لكن لا ينجح معي الملف

لا اعرف السبب

ثامر أبو بلقيس
31-03-2017, 07:21 PM
اذن .... ما حاولت فيه عمل فاشـــل
أو اعتبره كذلك موفق أخي :abc_138:

محمد بن أحمد أبو حذيفة
31-03-2017, 07:28 PM
اذن .... ما حاولت فيه عمل فاشـــل
أو اعتبره كذلك موفق أخي :abc_138:


لا لم اقل فاشل ربما الخلل عندي

او ربما يتوصل احد الاخوى التعديل عليه

ربيع
31-03-2017, 08:25 PM
السلام عليكم ورحمة الله وبركاته
الملف mp3 لا يكون بدون مسار اعطيه مسار بتعديل يدوي بأي رقم وجرب

ياسرهتهت
31-03-2017, 10:34 PM
لا أدري هل هذا هــو المقصــود
علما أن الملف التالي تنفيذي EXE
كون الاصدارات مختلفــة بين 7.5 و 8 لذلك لم أستطع إدراج أكواد
قلت ربما يساعد البرنامج إلى غاية توفر الأكواد بــ 8 و قد يحاول أخ فاضل بتحويل البليجين إلى 8

https://up.top4top.net/downloadf-455z5yu21-rar.html


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

ياسرهتهت
31-03-2017, 10:40 PM
لا لم اقل فاشل ربما الخلل عندي

او ربما يتوصل احد الاخوى التعديل عليه

------------------------------------------
بسم الله الرحمن الرحيم
اخي ابوحذيفة
شاهد هذا الملف اولا
https://up.top4top.net/downloadf-455cdsbz1-rar.html
----
رابط التحميل في المشاركة
http://www.abc4web.net/vb/showpost.php?p=310702&postcount=71

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

محمد بن أحمد أبو حذيفة
01-04-2017, 09:33 AM
------------------------------------------
بسم الله الرحمن الرحيم
اخي ابوحذيفة
شاهد هذا الملف اولا
https://up.top4top.net/downloadf-455cdsbz1-rar.html
----
رابط التحميل في المشاركة
http://www.abc4web.net/vb/showpost.php?p=310702&postcount=71

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



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

رحمك الله

عبود عبود
02-04-2017, 03:32 PM
لا أدري هل هذا هــو المقصــود
علما أن الملف التالي تنفيذي exe
كون الاصدارات مختلفــة بين 7.5 و 8 لذلك لم أستطع إدراج أكواد
قلت ربما يساعد البرنامج إلى غاية توفر الأكواد بــ 8 و قد يحاول أخ فاضل بتحويل البليجين إلى 8

https://up.top4top.net/downloadf-455z5yu21-rar.html


برجاء فحص الملف موفق :abc_138:


جزاك الله خيرا .... فعلا هذا هو ما يطلبه الزميل ولكن لكونه مبتدأ فيختلط عليه الأمر

محمد بن أحمد أبو حذيفة
02-04-2017, 11:02 PM
جزاك الله خيرا .... فعلا هذا هو ما يطلبه الزميل ولكن لكونه مبتدأ فيختلط عليه الأمر


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