أســــــــــــتفسار بخصوص SetValue

[ياسرهتهت]

بسم الله الرحمن الرحيم
اساتذتي الكرام
http://www.abc4web.net/vb/images/icons/cubes.gif عندي سؤلين بخصوص هذا الكود ؟
الكود
________________

selected = ListBox.GetSelected("ListBox1");

if (selected ~= nil) then
txt = ListBox.GetItemText("ListBox1", selected[1]);

dat = ListBox.GetItemData("ListBox1", selected[1]);
CurrentPos = MediaPlayer.GetCurrentPos("Plugin3");
f_folder = Input.GetText("Input1");

INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", txt, "My Value", selected[1]);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", txt, "My Value2", CurrentPos);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", txt, "My Value3", f_folder);

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

secshn = INIFile.GetSectionNames("AutoPlay\\Docs\\MediaPlayer.ini");
for i, s in pairs(secshn) do

ListBox.AddItem("ListBox2", s, "");

end

end

________________

http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif السؤال الاول ؟
اريد ان يتم ادراج My Value3 الي ItemData ايضا في ListBox2؟ كيف ؟

الشطر الثاني من السؤال الاول
الكود في الاعلى بعمل بشكل ممتاز ... ألا اذا كان النص الموجود في ItemText للــــ ListBox1
يحتوي على هذة العلامة [ ]
عند وجود العلامة يحدث الخلل ويتم الحفظ في ملف ini بثلاث Section وليس بسكشن واحد كما هو مفروض
في حالة عدم وجود هذة العلامة

http://www.abc4web.net/vb/images/icons/icon11.png-- شكل الحفظ في حالة عدم وجود العلامات
[01.AL TWHd AQRA.TV-2016]
My Value=1
My Value2=117.5770289
My Value3=D:\AL . MOSLM\AL TWHd [aqra.TV]


وهذا هو الصحيح والمطلوب

http://www.abc4web.net/vb/images/icons/icon9.png-- وهذا شكل الحفظ في وجود العلامة -- في تسمية ----
[03.AL TWHd [AQRA.TV]-2016]
My Value=3
[03.AL TWHd [AQRA.TV]-2016]
My Value2=4.238563
[03.AL TWHd [AQRA.TV]-2016]
My Value3=D:\AL . MOSLM\AL TWHd [aqra.TV]


http://www.abc4web.net/vb/images/icons/abc00.gif هل توجد طريقة لتخلص من هذا الخلل غير اعادة تسمية الملفات وحذف العلامة منها ؟

-------------------------------
http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif- السؤال الثاني ؟

من هذا المسار الخاص بالملف

D:\AL . MOSLM\AL TWHd [aqra.TV]\01.AL TWHd AQRA.TV-2016.mp3

http://f.top4top.net/p_3494lxs61.png

كيف استخلص مسار الفولد الموجود فية الملف فقط ؟

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

:abc_152::abc_152::abc_152:

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

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

-------------------------------
http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif- السؤال الثاني ؟

من هذا المسار الخاص بالملف

d:\al . Moslm\al twhd [aqra.tv]\01.al twhd aqra.tv-2016.mp3

http://f.top4top.net/p_3494lxs61.png

كيف استخلص مسار الفولد الموجود فية الملف فقط ؟

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

:abc_152::abc_152::abc_152:


قد أحـــــاول معكم في الاجابـــة عن السؤال الثــــاني
فقد يتطلب السؤال الاول توفير ظروف مشابهة لمشروعك يمكنك توفيرها أو طرح الســـؤال بطريقة أخرى تخدم مشروعك
في الجزئيـــة العالقة على كل
جرب الآتي :
result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
path_parts = String.SplitPath(result[1]);
for w in string.gmatch(path_parts.Folder, "[^%\\]+") do
x=w
end
Input.SetText("Input1",x);

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

[ياسرهتهت]

قد أحـــــاول معكم في الاجابـــة عن السؤال الثــــاني
فقد يتطلب السؤال الاول توفير ظروف مشابهة لمشروعك يمكنك توفيرها أو طرح الســـؤال بطريقة أخرى تخدم مشروعك
في الجزئيـــة العالقة على كل
جرب الآتي :
result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
path_parts = String.SplitPath(result[1]);
for w in string.gmatch(path_parts.Folder, "[^%\\]+") do
x=w
end
Input.SetText("Input1",x);

اذ توفر جوابا أحسن جيــد لوتشاركنا قراءته و الاستفادة منه لأن استخلاص المجلد الأخير المتضمن قعلا وجدت فيه صعوبة
لذلك استغليت ناتج نهاية الدالة التكرارية
بالتوفيق
--------------------------------------------------------
شكرا لك استاذي الكريم وبارك الله فيك
من الواضح انني لم اضع سؤالي بشكل جيد او واضح
انا لا اريد استخراج اسم المجلد الاخير
انا اريد استخراج مسار المجلد الاخير
يعني من هذا المسار اريد حذف اسم الملف ونوعه
يعني هذا
D:\AL . MOSLM\AL TWHd [aqra.TV]\01.AL TWHd AQRA.TV-2016.mp3

ايد ان يصبح هكذا
D:\AL . MOSLM\AL TWHd [aqra.TV]

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

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

Dialog.Message("Notice",String.SplitPath("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3").Drive..String.SplitPath("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3").Folder);

[ياسرهتهت]

Dialog.Message("Notice",String.SplitPath("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3").Drive..String.SplitPath("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3").Folder);


------------------------------------
بسم الله الرحمن الرحيم
وهو المطلوب استاذي الكريم
بارك الله فيك
:abc_138:

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

أو

All,a,b = string.match("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3", "(.-)([^\\]-([^\\%.]+))$")
Dialog.Message("Notice",All);

سبــــق وتم طرحه بالتوفيق

[ياسرهتهت]

أو

All,a,b = string.match("D:\\AL . MOSLM\\AL TWHd [aqra.TV]\\01.AL TWHd AQRA.TV-2016.mp3", "(.-)([^\\]-([^\\%.]+))$")
Dialog.Message("Notice",All);

سبــــق وتم طرحه بالتوفيق

--------------------------------
وهذا ايضا رائع
جازك الله كل خير
:abc_138::abc_138:

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

اجابة عن الشطر الثاني من السؤال الاول
استبدل في الكود الاول الأسطر الثلاث التالية بما يوافقها في الكود
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value", selected[1]);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value2", CurrentPos);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value3", f_folder);


موفق

[ياسرهتهت]

اجابة عن الشطر الثاني من السؤال الاول
استبدل في الكود الاول الأسطر الثلاث التالية بما يوافقها في الكود
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value", selected[1]);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value2", CurrentPos);
INIFile.SetValue("AutoPlay\\Docs\\MediaPlayer.ini", string.match(txt, '[^][]+'), "My Value3", f_folder);


موفق
---------------------------------------------
بسم الله الرحمن الرحيم
رائع جدا استاذي الكريم
بارك الله فيك
واسف على التاخر في الرد
النت كان مقطوع عندي طوال يوم الجمعة وحتي قبل دقائق جاء
اشكرك على الكود الممتاز حقق المطلوب وعملية الحفظ تتم بشكل سليم

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