السلام عليكم ورحمة الله وبركاته
دائما مستمرون في المشروع
اليوم سنستغل مجموعة من الدوال التي نحتاجها في الاحصائيات منها
دالة استخراج عدد حروف الكلمة
دالة استخراج اللكمات في جملة او نص
دالة لترتيب الغريد نصوصا
غير true الى false للترتيب التصاعدي و التنازلي
اما الترتيب العددي للغريد فاستعملنا موضوعا للاستاذ ثامر
*
------------------------------------------
استعملنا كود الاستدبالات في الحركات و التشكيل في الايات
*
--------------------------------------------------
من اجل ان يظهر الغريد من اليمين الى اليسار استعملنا اضافة للاخ النصل القاطع
*
*
-----------------------------------------
تصدير الاوتوبلاي الى ايسكل
*
في انتظار الاطلاع على المواضيع
دائما مستمرون في المشروع
اليوم سنستغل مجموعة من الدوال التي نحتاجها في الاحصائيات منها
دالة استخراج عدد حروف الكلمة
PHP Code:
String.Length(txt)
PHP Code:
xd="";q=1; TWord={};
for w in string.gmatch (m,"[^%s]+") do
xd=xd.." "..w;
TWord[q]=w;
q=q+1;
end
PHP Code:
Grid.SortTextItems("Grid1", 8, true, true)
اما الترتيب العددي للغريد فاستعملنا موضوعا للاستاذ ثامر
PHP Code:
x=0------------------------------------------------------------------------------------------
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, "c"..c, true);--------------
elseif c >=1000 and c<= 9999 then Grid.SetCellText("Grid1", i, 0, "d"..c, true);------------
elseif c >=10000 and c<= 99999 then Grid.SetCellText("Grid1", i, 0, "e"..c, true);----------
elseif c >=100000 and c<= 999999 then Grid.SetCellText("Grid1", i, 0, "f"..c, true);--------
elseif c >=1000000 and c<= 9999999 then Grid.SetCellText("Grid1", i, 0, "g"..c, true);------
end end ------
Grid.SortTextItems("Grid1", 0, true, true); ------
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--
*
------------------------------------------
استعملنا كود الاستدبالات في الحركات و التشكيل في الايات
PHP Code:
Str = "قُل لَّوْ كَانَ الْبَحْرُ مِدَادًا لِّكَلِمَاتِ رَبِّي لَنَفِدَ الْبَحْرُ قَبْلَ أَن تَنفَدَ كَلِمَاتُ رَبِّي وَلَوْ جِئْنَا بِمِثْلِهِ مَدَدًا " Dialog.Message("Notice", Str); NewStr = "" for i = 1,#Str do char = String.Mid(Str, i, 1); asc = String.Asc(char); if asc<240 then NewStr = NewStr..char end end Dialog.Message("Notice", NewStr);
--------------------------------------------------
من اجل ان يظهر الغريد من اليمين الى اليسار استعملنا اضافة للاخ النصل القاطع
*
*
-----------------------------------------
تصدير الاوتوبلاي الى ايسكل
PHP Code:
-- create scatterplot in Excel
require('luacom')
local excel = luacom.CreateObject("Excel.Application")
excel.Visible = true
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)
for row=1, 12 do
ws.Cells(row,1).Value2 = Grid.GetCellText("Grid1", row, 1);
ws.Cells(row,2).Value2 = Grid.GetCellText("Grid1", row, 2);
ws.Cells(row,3).Value2 = Grid.GetCellText("Grid1", row, 3);
ws.Cells(row,4).Value2 = Grid.GetCellText("Grid1", row, 4);
ws.Cells(row,5).Value2 = Grid.GetCellText("Grid1", row, 5);
ws.Cells(row,6).Value2 = Grid.GetCellText("Grid1", row, 6);
ws.Cells(row,7).Value2 = Grid.GetCellText("Grid1", row, 7);
ws.Cells(row,8).Value2 = Grid.GetCellText("Grid1", row, 8);
ws.Cells(row,9).Value2 = Grid.GetCellText("Grid1", row,9);
ws.Cells(row,10).Value2 = Grid.GetCellText("Grid1", row, 10);
ws.Cells(row,11).Value2 = Grid.GetCellText("Grid1", row, 11);
ws.Cells(row,12).Value2 = Grid.GetCellText("Grid1", row, 12);
end
في انتظار الاطلاع على المواضيع
