مشاهدة النسخة كاملة : ســـؤال حـــــول ( 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
موفق بإذن الله ... لك مني أجمل تحية .
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:
لا لم اقل فاشل ربما الخلل عندي
او ربما يتوصل احد الاخوى التعديل عليه
السلام عليكم ورحمة الله وبركاته
الملف 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
جزاك الله خيرا .... فعلا هذا هو ما يطلبه الزميل ولكن لكونه مبتدأ فيختلط عليه الأمر
بارك الله فيك اخي عبود
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam