String.Length(txt)
xd="";q=1; TWord={};
for w in string.gmatch (m,"[^%s]+") do
xd=xd.." "..w;
TWord[q]=w;
q=q+1;
end
Grid.SortTextItems("Grid1", 8, true, true)
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--
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);
-- 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
Nmos = Input.GetText("InpSerch");
NewStr = ""
for i = 1,#Nmos do char = String.Mid(Nmos, i, 1); asc = String.Asc(char);
if asc<240 then NewStr = NewStr..char end end Nmos = NewStr;
txt = " ÓæÑ ÊÍÊæí Úáì ßáãÉ "..Nmos;
Paragraph.SetText("Paragraph1", txt)
Grid.SetProperties("Grid1", {Rows=115});
Grid.SetColumnWidth("Grid1", 4, 140)
for d=5,9 do
Grid.SetColumnWidth("Grid1", d, 0)
end
Grid.SetCellText("Grid1", 0, 4, " ßáãÉ "..Nmos);
Label.SetText("Label1", 0);
for i=1,114 do
Grid.SetRowHeight("Grid1", i, 23);
end
for i=1,Grid.GetRowCount("Grid1") do for p=1,9 do
Grid.SetCellText("Grid1", i, p, "")
end end
tot=0;
----------------------ÍÓÈ Ãæá
for sels=1,114 do
db = SQLite.Open("AutoPlay\\db\"..sels..".db");
s= SQLite.QueryToTable(db, "select * from coran");
Progress.SetRange("Progress1", 0, #s.Data);
Progress.SetCurrentPos("Progress1", 0);
--------
nom=0;
for i,v in pairs(s.Data) do
m = s.Data[i]["Aya_text"];
NewStr = "" ;for i = 1,#m do char = String.Mid(m, i, 1); asc = String.Asc(char);
if asc<240 then NewStr = NewStr..char end end mol = NewStr;
--------
repeat
g = String.Find(mol, Nmos, 1);
if g~=-1 then nom = nom+1; end
mol = String.Replace(mol,String.Mid(mol, 1, g),"");
until g == -1
Progress.SetCurrentPos("Progress1", i);
end
Grid.SetCellText("Grid1", sels, 1 ,sels);
Grid.SetCellText("Grid1", sels, 2 ,ordre[sels]);
Grid.SetCellText("Grid1", sels, 3, sels);
Grid.SetCellText("Grid1", sels, 4, nom);
tot=tot+nom ; Label.SetText("Label1", tot) ;
Grid.SetCellText("Grid1", 0, 4, " ßáãÉ "..Nmos.." : "..tot);
end
------------------------
fonts_path = Shell.GetFolder(SHF_FONTS);
fonts = File.Find(_SourceFolder.."\\AutoPlay\\Fonts", "*.*", true, true, nil, nil);
if fonts then
for x,y in pairs (fonts) do
File.Copy(y, fonts_path, false, false, false, true);
end
end
mopick = {"gh","kl","gh","sd","er","gh","vb","sd","uo","gh"}
g="";
flags = {};
for i=1,table.getn(mopick) do
if not flags[mopick[i]] then
io.write(' ' .. mopick[i]) ;
flags[mopick[i]] = true
g=g..mopick[i].."\r\n"
end
end
Dialog.Message("",g);
Test = Paragraph.GetText("Paragraph1")
local strHTMLData = "<html><body><h1>"..Test.."</h1>";
strHTMLData = strHTMLData.."<table width=100% border=1>";
for i=0,Grid.GetRowCount("Grid1") do
strHTMLData = strHTMLData.."<tr>";
for p=1,Grid.GetColumnCount("Grid1") do
txt = Grid.GetCellText("Grid1", i, p);
strHTMLData = strHTMLData.."<td>";
strHTMLData = strHTMLData..txt;
strHTMLData = strHTMLData.."</td>";
end
strHTMLData = strHTMLData.."</tr>";
end
strHTMLData = strHTMLData.."</table>";
strHTMLData = strHTMLData.."</html></body>";
-- Save the file...
local strFN = _TempFolder.."\\test.htm";
TextFile.WriteFromString(strFN,strHTMLData);
TextFile.WriteFromString(Shell.GetFolder(SHF_MYDOCUMENTS)..""..Test..".doc" ,strHTMLData);
File.Open(Shell.GetFolder(SHF_MYDOCUMENTS)..""..Test..".doc", "", SW_SHOWNORMAL);
grid = Page.GetObjectType("Grid1");
result = Excel.ExportToExcel(grid, "Grid1", 1, 65535, 16776960);
p = {"Úáí","ÇáÇÁ","Úáí","ÎáæÏ","Úáí","ÎáæÏ","ÇáÇÁ","Úáí","ÇáÇÁ","ÎáæÏ"}
function tally(t)
local freq = {} ;
for _, v in ipairs(t) do
freq[v] = (freq[v] or 0) + 1 ;
end
return freq
end
function dump(t)
g="";
for k,v in pairs(t) do
g=g.."("..k.."-"..v..")".."\r\n";
end
end
dump(tally(p))
Dialog.Message("",g)
Nmos = Input.GetText("InpSerch");
NewStr = ""
for i = 1,#Nmos do char = String.Mid(Nmos, i, 1); asc = String.Asc(char);
if asc<240 then NewStr = NewStr..char end end Nmos = NewStr;
txt = " سور تحتوي على كلمة "..Nmos;
Paragraph.SetText("Paragraph1", txt)
Grid.SetProperties("Grid1", {Rows=115});
Grid.SetColumnWidth("Grid1", 4, 90)
Grid.SetColumnWidth("Grid1", 5, 140)
Grid.SetColumnWidth("Grid1", 6, 240)
for d=7,9 do
Grid.SetColumnWidth("Grid1", d, 0)
end
Grid.SetCellText("Grid1", 0, 4, " كلمة "..Nmos);
Grid.SetCellText("Grid1", 0, 5, " الكلمات المصدر");
Grid.SetCellText("Grid1", 0, 6, "تكرار الكلمات");
Label.SetText("Label1", 0);
for i=1,114 do
Grid.SetRowHeight("Grid1", i, 23);
end
for i=1,Grid.GetRowCount("Grid1") do for p=1,9 do
Grid.SetCellText("Grid1", i, p, "")
end end
tot=0; gh=1;
----------------------Íسب أول
for sels=1,114 do
db = SQLite.Open("AutoPlay\\db"..sels..".db");
s= SQLite.QueryToTable(db, "select * from coran");
Progress.SetRange("Progress1", 0, #s.Data);
Progress.SetCurrentPos("Progress1", 0);
--------
nom=0;
mopick={};c=1;
for i,v in pairs(s.Data) do
m = s.Data[i]["Aya_text"];
NewStr = "" ;for i = 1,#m do char = String.Mid(m, i, 1); asc = String.Asc(char);
if asc<240 then NewStr = NewStr..char end end mol = NewStr;
istibAlif={["أ"] = "ا",["إ"] = "ا",["آ"] = "ا"}
mol = string.gsub (mol, ".",istibAlif);
q=1; TWord={}; for w in string.gmatch (mol,"[^%s]+") do TWord[q]=w; q=q+1;end
for b,mk in pairs(TWord) do
g = String.Find(mk, Nmos, 1);
if g ~=-1 then nom = nom+1; mopick[c]=mk;c=c+1; end
end
Progress.SetCurrentPos("Progress1", i);
end
-------rep---
ggg=""; flags = {}; mopick2 = mopick ;
for i=1,table.getn(mopick) do if not flags[mopick[i]] then
io.write(' ' .. mopick[i]) ; flags[mopick[i]] = true
ggg=ggg.." - "..mopick[i] ;end end
----cal rep-----
function tally(t)
local freq = {} ; for _, v in ipairs(t) do freq[v] = (freq[v] or 0) + 1 ; end return freq end
function dump(t)
gc=""; for k,v in pairs(t) do gc=gc.."- ".." ("..k.."-"..v..") ".."\r\n"; end end
dump(tally(mopick2))
----------------------
if nom ~= 0 then
Grid.SetCellText("Grid1", gh, 1 ,gh);
Grid.SetCellText("Grid1", gh, 2 ,ordre[sels]);
Grid.SetCellText("Grid1", gh, 3, sels);
Grid.SetCellText("Grid1", gh, 4, nom);
Grid.SetCellText("Grid1", gh, 5, ggg);
Grid.SetCellText("Grid1", gh, 6, gc);
tot=tot+nom ; Label.SetText("Label1", tot) ;
Grid.SetCellText("Grid1", 0, 4, " كلمة "..Nmos.." : "..tot);
gh=gh+1;
end
end
------------------------
dbw = SQLite.Open("AutoPlay\\Docs\\coranWo.db");
sw= SQLite.QueryToTable(dbw, "select * from coran");
ListBox.DeleteItem("ListBox1", LB_ALLITEMS)
d=1;
txt = Input.GetText("Input1")
Htchkil(txt) ; txt=moth;
if txt ~= " " then
for i,v in pairs(sw.Data) do
m = sw.Data[i]["Mot"]; Htchkil(m) ; m=moth;
if String.Mid(m,1, #txt) == txt then
if d<15 then ListBox.AddItem("ListBox1", m, ""); d=d+1 ;end
end
end
end
tol=1;
db = SQLite.Open("AutoPlay\\Docs\\coranAR.db");
s= SQLite.QueryToTable(db, "select * from coran");
---------------N
asma = ListBox.GetSelected(this)
if (asma) then
ass = ListBox.GetItemText(this, asma[1]);
Name = "ÇáÈÍË Úä ßáãÉ ".. " _ "..ass ;
------------------
strielhadi="";
lien ="file:///C:/1.jpg"
lien2 ="file:///C:/2.png"
------------------
for i,v in pairs(s.Data) do
mas = s.Data[i]["Aya_text"];
Htchkil(mas); ms = moth;
---------------------------------------------------------
g = String.Find(ms,ass, 1, false);
if g~= -1 then
-----------------------------------------------------------
Raya = String.ToNumber(s.Data[i]["Aya_Num"]);
Tsora = s.Data[i]["Sora_text"];
txtz = s.Data[i]["Num_Joz"] ;
txth = s.Data[i]["Num_Hiz"] ;
txtr = s.Data[i]["Num_rob"] ;
----------
strielhadi = strielhadi.."<img src="..lien2.." width=600 height=40>";
strielhadi = strielhadi.."<p> </p>"
-----------
strT = " [ ".. mas .." ]".."<p> </p>"
txtjhr = " ÓæÑÉ "..Tsora.."--".." ÇáÂíÉ ÑÞã "..Raya.."(-***-)".." ÇáÌÒÁ "..txtz.."--".." ÇáÍÒÈ "..txth.."--".." ÇáÑÈÚ "..txtr;
strText ="<p><font color="..Mycolor2.." size ="..FonteZ2.." face="..fontSc2.."><strong>"..txtjhr.."</strong></font></p>"
strT = strT ..strText
strText ="<p style=text-align=right ><font color="..Mycolor.." size ="..FonteZ.." face="..fontSc..">"..strT.."</font></p>"
strielhadi = strielhadi..strText;
---------------------- ----------------------
tol=tol+1;
end
end
-------------------------------------------
----------------------------------------
tol = tol-1
img = "<BODY BACKGROUND="..lien.."></BODY>"
local strHTMLData = "<html><head></head>"..img.."<body style=text-align=center ><h1 style=text-align=center style=background-color=yellow ><font size=15 face="..fontSc2.." >"..Name.."</font></h1>"
--------------------
strHTMLData = strHTMLData.."<p><font color="..Mycolor3.." size ="..FonteZ3.." face="..fontSc3.." ><strong>".."ÇáäÊíÌÉ "..": "..tol.."</strong></font></p>"
strHTMLData = strHTMLData..strielhadi;
strHTMLData = strHTMLData.."</html></body>";
--Save the file...
local strFN = _TempFolder.."\\test.htm";
TextFile.WriteFromString(strFN,strHTMLData);
Web.LoadURL("Web1",strFN);
TextFile.WriteFromString(_TempFolder..""..Name..".doc",strHTMLData);
end
elhadi="";
mop = ComboBox.GetSelected(this)
TfsirDb = ComboBox.GetItemData(this, mop);
---------------
--------
db = SQLite.Open("AutoPlay\\Docs\"..TfsirDb..".db");
s= SQLite.QueryToTable(db, "select * from coran");
------------------
MonNumS = Grid.GetCellText("Grid1", AudioAya, 3, Rsora);
MonNumA = Grid.GetCellText("Grid1", AudioAya, 6, Raya);
for r,vr in pairs(s.Data) do
if MonNumS == s.Data[r]["Sora_Num"] then
if MonNumA == s.Data[r]["Aya_Num"] then
------------------------------
if mop == 1 or mop == 4 then
txte = s.Data[r]["Tafsir"] ;
elseif mop == 2 then
txte = s.Data[r]["Aya_Tafsir"] ;
elseif mop == 3 then
elhadi = elhadi .. s.Data[r]["Aya_mot"].." : " ..s.Data[r]["Aya_tafsir"] .."\r\n";
txte = elhadi;
end
end
end
end
Input.SetText("Input_Info_Display", txte)