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

**ياسرهتهت ياسرهتهت** · 12-12-2015, 07:09 PM

بسم الله الرحمن الرحيم
اخي العزيز
شاهد هذا الموضوع
http://sites.ienajah.com/vb2/showthread.php?t=32605

ان شاء الله يفيدك

**ابراهيم عوض ابراهيم عوض** · 12-12-2015, 07:36 PM

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

بسم الله الرحمن الرحيم
اخي العزيز
شاهد هذا الموضوع
http://sites.ienajah.com/vb2/showthread.php?t=32605

ان شاء الله يفيدك

شكرا استاذ ياسر على الرابط

بعد المشاهدة
الرابط يشرح الترتيب التنازلى

و انا ارغب فى الترتيب تصاعدى
فما هى الطريقة لذلك ؟

**المـهاجر المـهاجر** · 13-12-2015, 07:11 PM

البليجن له إصداران جاهزان
الأول فقط منشور
لو لم تكن توصلت لحل أطلعنى لتنزيل الإصدار الثانى

كود PHP:


MohagerGridsort.GridSort("Grid1", 0, true);

true تعادل تصاعدى
false تعادل تنازلى

منتظر ردك

**ثامر أبو بلقيس ثامر أبو بلقيس** · 13-12-2015, 08:05 PM

إن شاء الله أجد وقت اليوم و أكتب لك الحل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 13-12-2015, 08:23 PM

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

01 - أكتب في global functions

كود PHP:


function GridSortRange(strGridName,StartRow,StartColumn,EndRow,EndColumn,Desc)
local tTmp = {}
local nSRow = StartRow
local nSCol = StartColumn
local nERow = EndRow
local nECol = EndColumn
local nComp = -1
if (Desc) then nComp = 1 end
local swap = function(a,b) return (String.CompareNoCase(a,b) == nComp) end
 Grid.SetRedraw(strGridName, false, false);
   for c  = nSCol , nECol do 
      for r = nSRow, nERow do     
         tTmp[r] = Grid.GetCellText(strGridName, r, c)
      end
      table.sort(tTmp,swap)
      for index,value in ipairs(tTmp) do
        Grid.SetCellText(strGridName, index, c, value, false);
      end
     tTmp = {}
   end
   Grid.SetRedraw(strGridName, true, true);
end
function GridSortRowsByColumn(strGridName,StartColumn,EndColumn,StartRow,EndRow,SortByColumn,Desc)
local tTmp = {}
local nSRow = StartRow
local nSCol = StartColumn
local nERow = EndRow
local nECol = EndColumn
local nComp = -1
if(SortByColumn < StartColumn and SortByColumn > EndColumn) then return end -- sorted column must be in the range of StartColumn - EndColumn
if (Desc) then nComp = 1 end
local swap = function(a,b) return (String.CompareNoCase(a[SortByColumn],b[SortByColumn]) == nComp) end
   Grid.SetRedraw(strGridName, false, false);
     for r = nSRow, nERow do 
       local tblx = {}
         for c  = nSCol , nECol do 
           tblx[c] = Grid.GetCellText(strGridName, r, c)
         end
      tTmp[r] = tblx
      end
      table.sort(tTmp,swap)
      for row_index,row_value in pairs(tTmp) do
         for col_index,col_value in pairs(row_value) do
           Grid.SetCellText(strGridName, row_index, col_index, col_value, false);
         end
      end
     tTmp = {}
   Grid.SetRedraw(strGridName, true, true);
end

كيف نستغل هذه الأكواد ... نعود لمشاركة قديمة في الموقع تعود لسنة2014

و نضع في زر الكود التالي :

كود PHP:


x=1------------------------------------------------------------------------------------------ 
p=Grid.GetRowCount("Grid1");-----------------------------------------------------------------
for i=x,p do c= Grid.GetCellText("Grid1", i, 4);c = String.ToNumber(c);----------------------
if c < 10 then Grid.SetCellText("Grid1", i, 4, "a"..c, true);--------------------------------
elseif  c >=10 and c<= 99 then Grid.SetCellText("Grid1", i, 4, "b"..c, true);----------------
elseif  c >=100 and c<= 999 then Grid.SetCellText("Grid1", i, 4, "d"..c, true);--------------
elseif  c >=1000 and c<= 9999 then Grid.SetCellText("Grid1", i, 4, "e"..c, true);------------
elseif  c >=10000 and c<= 99999 then Grid.SetCellText("Grid1", i, 4, "f"..c, true);----------
elseif  c >=100000 and c<= 999999 then Grid.SetCellText("Grid1", i,4, "g"..c, true);--------
elseif  c >=1000000 and c<= 9999999 then Grid.SetCellText("Grid1", i, 4, "h"..c, true);------
end end 
local s_row = 1
local s_col = 0
local e_row = Grid.GetRowCount("Grid1")-1
local e_col = Grid.GetColumnCount("Grid1")-1
local sort_col = 4
GridSortRowsByColumn("Grid1",s_col,e_col,s_row,e_row,sort_col,false)
---------
for u=x,p do                                                                           ------
y= Grid.GetCellText("Grid1", u, 4);     --abou_belkiss  alger le 26-03-2014            ------
n = String.Mid(y, 1, 1);                                                               ------
c = String.Replace(y, n, "", false);                                                   ------
Grid.SetCellText("Grid1", u, 4, c, true);                                              ------
end------------------------------------------------------------------------------------------                                                                                   ------

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

الصف الأول غير معني بالترتيب متروك للعناوين

**ابراهيم عوض ابراهيم عوض** · 13-12-2015, 09:15 PM

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

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

الصف الأول غير معني بالترتيب متروك للعناوين

شاكر لك روح التعاون استاذ ثامر

لم افهم الإقتباس

فعلت كما ذكرت لى
ارفقت ملف مفتوح به الكود

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

الملفات المرفقة

Tarteb Tasa3ody.rar (10.7 كيلوبايت, 12 مشاهدات)

**ثامر أبو بلقيس ثامر أبو بلقيس** · 13-12-2015, 09:21 PM

خانة المجموع عندك هي العمود الاول لكن بالنسبة للجريد الأول هو 0 كما اخبرتك يبدأ العد بالنسبة له من 0

اذن العمود الذي سترتب بناء عليه هو العمود 0

ليصبح الكود يعد تغيير كل 4 بـ 0

كود PHP:


x=1------------------------------------------------------------------------------------------ 

p=Grid.GetRowCount("Grid1");-----------------------------------------------------------------

for i=x,p do c= Grid.GetCellText("Grid1", i, 0);c = String.ToNumber(c);----------------------

if c < 10 then Grid.SetCellText("Grid1", i, 0, "a"..c, true);--------------------------------

elseif  c >=10 and c<= 99 then Grid.SetCellText("Grid1", i, 0, "b"..c, true);----------------

elseif  c >=100 and c<= 999 then Grid.SetCellText("Grid1", i, 0, "d"..c, true);--------------

elseif  c >=1000 and c<= 9999 then Grid.SetCellText("Grid1", i, 0, "e"..c, true);------------

elseif  c >=10000 and c<= 99999 then Grid.SetCellText("Grid1", i, 0, "f"..c, true);----------

elseif  c >=100000 and c<= 999999 then Grid.SetCellText("Grid1", i,0, "g"..c, true);--------

elseif  c >=1000000 and c<= 9999999 then Grid.SetCellText("Grid1", i, 0, "h"..c, true);------

end end 

local s_row = 1

local s_col = 0

local e_row = Grid.GetRowCount("Grid1")-1

local e_col = Grid.GetColumnCount("Grid1")-1

local sort_col = 0

GridSortRowsByColumn("Grid1",s_col,e_col,s_row,e_row,sort_col,false)

---------

for u=x,p do                                                                           ------

y= Grid.GetCellText("Grid1", u, 0);     --abou_belkiss  alger le 26-03-2014            ------

n = String.Mid(y, 1, 1);                                                               ------

c = String.Replace(y, n, "", false);                                                   ------

Grid.SetCellText("Grid1", u, 0, c, true);                                              ------

end------------------------------------

شوف الان هل مازال عندك اشكال

**ثامر أبو بلقيس ثامر أبو بلقيس** · 20-12-2015, 12:28 PM

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

**زياد مقداد زياد مقداد** · 20-12-2015, 09:16 PM

شكرا لكم موضوع قيم فعلا

**فرح صالحي فرح صالحي** · 26-12-2015, 09:31 PM

شـكــ وبارك الله فيك ـــرا لك .

.. لك مني أجمل تحية .

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

كيف يمكن ترتيب عناصر الجريد تصاعديا مثل الإيكسل

كيف يمكن ترتيب عناصر الجريد تصاعديا مثل الإيكسل

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك