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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-03-2017, 06:20 PM

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

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

جرب :

كود PHP:


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://sites.ienajah.com/vb2/showthread.php?t=29167
بالتوفيــــق

محمد بن أحمد أبو حذيفة · 30-03-2017, 06:36 PM

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

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

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

جرب :

كود PHP:


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://sites.ienajah.com/vb2/showthread.php?t=29167
بالتوفيــــق

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-03-2017, 06:43 PM

نعم يمكن ذلك
[html]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
--[/html]

محمد بن أحمد أبو حذيفة · 30-03-2017, 06:58 PM

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

نعم يمكن ذلك
[html]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
--[/html]

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-03-2017, 08:38 PM

أخــي الكريم .. تلك حدود طاقتي
أما التعامل مع تلك الخصوصيات الموجودة في خصائص الملف

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

موفق

**عبود عبود عبود عبود** · 30-03-2017, 09:13 PM

إرفع الملف المطلوب إيجاد الخصائص له إذا أمكن

محمد بن أحمد أبو حذيفة · 30-03-2017, 10:28 PM

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

أخــي الكريم .. تلك حدود طاقتي
أما التعامل مع تلك الخصوصيات الموجودة في خصائص الملف

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

موفق

بارك الله فيك

محمد بن أحمد أبو حذيفة · 30-03-2017, 10:40 PM

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

إرفع الملف المطلوب إيجاد الخصائص له إذا أمكن

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

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

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

محمد بن أحمد أبو حذيفة · 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

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

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

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

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

محمد بن أحمد أبو حذيفة · 31-03-2017, 12:08 AM

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

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

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 31-03-2017, 12:29 AM

ليــست بالسهولة المتوقعة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 31-03-2017, 06:04 PM

لا أدري هل هذا هــو المقصــود
علما أن الملف التالي تنفيذي EXE
كون الاصدارات مختلفــة بين 7.5 و 8 لذلك لم أستطع إدراج أكواد
قلت ربما يساعد البرنامج إلى غاية توفر الأكواد بــ 8 و قد يحاول أخ فاضل بتحويل البليجين إلى 8

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

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

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

ســـؤال حـــــول ( Rename and Copy )؟

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك