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

**ياسرهتهت ياسرهتهت** · 19-10-2016, 07:44 PM

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

السلام عليكم ورحمة الله وبركاته
بعد التحية و السلام اود ان اطرح على حضرانك سؤال
هو كيف ان اجعل الملفات الموجودة في الlistbox او tree تكون بعد تشغيل البرنامج مرتبة حسب الحروف الابجدية
اي اذا كان لدي كتاب القانون وفيه اجزاء من الاول -----الى العاشر
غتد كتابة اسم الكتاب مثلاُ
قانون 1 او قانون الجزء 1 و القانون جزء 2 و القانون جزء 3 وهكذا انتهاء بالجزء العاشر القانون الجزء 10 عند تشغيل البرنامج سوف يعمل القانون الجزء 1 ثم القانون الجزء 10 ثم القانون الجزء 3 وهكذا ويكون الترتيب غالبا مبعثرا ً فهل من حل لهذه المشكلة جزاكم الله خير

بسم الله الرحمن الرحيم
هذا هو الخيار المسئول عن الترتيب

وحتي تكون مرتبة نكتب
قانون001 او قانون الجزء 001 و القانون جزء 002 و القانون جزء 003 وهكذا انتهاء بالجزء العاشر القانون الجزء 010
اي نضع صفرين على اليسار بنفس الطريقة

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-10-2016, 12:53 PM

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

بسم الله الرحمن الرحيم
هذا هو الخيار المسئول عن الترتيب

وحتي تكون مرتبة نكتب
قانون001 او قانون الجزء 001 و القانون جزء 002 و القانون جزء 003 وهكذا انتهاء بالجزء العاشر القانون الجزء 010
اي نضع صفرين على اليسار بنفس الطريقة

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

شـــكرا أستاذ ياســــر

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-10-2016, 01:51 PM

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته

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

نريــد عند استدعائها إلى عنصــر ListBox تستدعى مرتبــــة

نجرب الاتي :
نكتب في global functions

كود PHP:


function alphanumsort(o)
  local function padnum(d) local dec, n = string.match(d, "(%.?)0*(.+)")
    return #dec > 0 and ("%.12f"):format(d) or ("%s%03d%s"):format(dec, #n, n) end
  table.sort(o, function(a,b)
    return tostring(a):gsub("%.?%d+",padnum)..("%3d"):format(#b)
         < tostring(b):gsub("%.?%d+",padnum)..("%3d"):format(#a) end)
  return o
end

ثم نأتي لأمر الاستدعاء نكتبه في حدث الصفحة on show أو في زر

كود PHP:


ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
x = File.Find("AutoPlay\\Docs\\", "*.txt", false, false, nil, nil);
local o = x
for k,v in ipairs(alphanumsort(o)) do 
y = String.SplitPath(v)
ListBox.AddItem("ListBox1", y.Filename, v);
end

بالتوفيـــق

**ياسرهتهت ياسرهتهت** · 29-10-2016, 02:39 PM

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

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته

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

نريــد عند استدعائها إلى عنصــر ListBox تستدعى مرتبــــة

نجرب الاتي :
نكتب في global functions

كود PHP:


function alphanumsort(o)

  local function padnum(d) local dec, n = string.match(d, "(%.?)0*(.+)")

    return #dec > 0 and ("%.12f"):format(d) or ("%s%03d%s"):format(dec, #n, n) end

  table.sort(o, function(a,b)

    return tostring(a):gsub("%.?%d+",padnum)..("%3d"):format(#b)

         < tostring(b):gsub("%.?%d+",padnum)..("%3d"):format(#a) end)

  return o

end

ثم نأتي لأمر الاستدعاء نكتبه في حدث الصفحة on show أو في زر

كود PHP:


ListBox.DeleteItem("ListBox1", LB_ALLITEMS);

x = File.Find("AutoPlay\\Docs\\", "*.txt", false, false, nil, nil);

local o = x

for k,v in ipairs(alphanumsort(o)) do 

y = String.SplitPath(v)

ListBox.AddItem("ListBox1", y.Filename, v);

end

بالتوفيـــق

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

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

شكر لك استاذنا كالعادة كود حصري ومميز

كود PHP:


function alphanumsort(o)

  local function padnum(d) local dec, n = string.match(d, "(%.?)0*(.+)")

    return #dec > 0 and ("%.12f"):format(d) or ("%s%03d%s"):format(dec, #n, n) end

  table.sort(o, function(a,b)

    return tostring(a):gsub("%.?%d+",padnum)..("%3d"):format(#b)

         < tostring(b):gsub("%.?%d+",padnum)..("%3d"):format(#a) end)

  return o

end

من اكواد ابوبلفيس الحصرية

مجرد محاولة فهم الكود تسبب الدوران

كل الشكر والتقدير لشخصكم الكريم زادك الله علماً ومعرفة ومدك بالصحة والعافية

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-10-2016, 03:51 PM

السلام عليكم ورحمة الله وبركاته
سعدت بكلماتك أستاذ ياســر وبوصول المعلومة لك
ومن الجيد الرجوع للموضـــوع
http://sites.ienajah.com/vb2/showpost.p...6&postcount=10

**امل الماضي امل الماضي** · 29-10-2016, 10:27 PM

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

**رانيا حسن رانيا حسن** · 08-11-2016, 12:09 PM

شكرا جزيلا ---- هل يمكن تتطبيق الاكواد على عنصر tree

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

كيف اجعل الملفات في الlistbox مرتبة حسب الحروف الابجدية

كيف اجعل الملفات في الlistbox مرتبة حسب الحروف الابجدية

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك