البحث في القرآن الكريم بالتشكيل أو بدونه

 كود PHP:
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
result4 = Input.GetText("Input1");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y  then
g = String.Find(s.Data[i]["alaya"],result4, 1, false);
if g~= -1 then
 Dialog.Message(s.Data[i]["soura"].."   ".."الآية".."   "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end  

 كود PHP:
Dialog.Message("Notice",  String.Replace("timer", "i", "a", false));

كود بلغة HTML:

        sostituzioni ={["t"] = "C",["i"] = "l",["m"] = "e",["e"] = "a"}s = "timer"r

 كود PHP:
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
result4 = Input.GetText("Input1");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y  then
istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
m = s.Data[i]["alaya"]
abou_belkiss = string.gsub (m, ".",istibdalate)
g = String.Find(abou_belkiss,result4, 1, false);
g2 = String.Find(s.Data[i]["alaya"],result4, 1, false);
if g~= -1 or g2~= -1 then
 Dialog.Message(s.Data[i]["soura"].."   ".."الآية".."   "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end  

 كود PHP:
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
gg = Input.GetText("Input1");
istibdalate2={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}

result4 = string.gsub (gg, ".",istibdalate2)
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y  then
istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
m = s.Data[i]["alaya"]
abou_belkiss = string.gsub (m, ".",istibdalate)
g = String.Find(abou_belkiss,result4, 1, false);
if g~= -1  then
 Dialog.Message(s.Data[i]["soura"].."   ".."الاية".."   "..s.Data[i]["naya"], s.Data[i]["alaya"]);
end
end
end
end  

 كود PHP:
b1= ComboBox.GetSelected(this);
b1 = String.ToNumber(b1);
bidaya = String.ToNumber(ComboBox.GetItemText(this, b1));
index_1=ComboBox.GetItemData(this, b1);  

 كود PHP:
n1= ComboBox.GetSelected(this);
n1 = String.ToNumber(n1);
nihaya = String.ToNumber(ComboBox.GetItemText(this,n1));
index_2=ComboBox.GetItemData(this, n1);  

 كود PHP:
ComboBox.ResetContent("ComboBox2");
ComboBox.ResetContent("ComboBox3");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
f=ListBox.GetCount(this);
n= ListBox.GetSelected(this);
tt= ListBox.GetItemText(this,  n[1]);
if n ~= nil and chiek ~= nil then
v = ListBox.GetItemData(this, n[1]);
hh = File.Find(_SourceFolder.."\\AutoPlay\\Docs\"..v.."\"..chiek.."\", "*.mp3", false, false, nil, nil);
for total=1,#hh do
ComboBox.AddItem("ComboBox2", total, _SourceFolder.."\\AutoPlay\\Docs\"..v.."\"..chiek.."\"..total..".mp3");
ComboBox.AddItem("ComboBox3", total, _SourceFolder.."\\AutoPlay\\Docs\"..v.."\"..chiek.."\"..total..".mp3");
end
end
ComboBox.SetSelected("ComboBox2", 1);
ComboBox.SetSelected("ComboBox3", 1);  

 كود PHP:
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
if index_1~= nil and index_2~= nil then
for i = 1,rept do
if index_1 == index_2 then
result = ListBox.AddItem("ListBox4", index_1, "");
elseif index_1 ~=  index_2  then
for j=bidaya,nihaya do
result = ListBox.AddItem("ListBox4",ComboBox.GetItemData("ComboBox3", j), "");
end
end
end
end
--------------------------------------
my_table = {};
----------
for n =1,ListBox.GetCount("ListBox4")do
vv=ListBox.GetItemText("ListBox4", n);
path_parts = String.SplitPath(vv);
p=path_parts.Drive
b=path_parts.Folder
c=path_parts.Extension
Table.Insert(my_table, 1, String.ToNumber(path_parts.Filename));
end
 ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
selectionsort(my_table)
for bb = 1, table.getn(my_table) do
result = ListBox.AddItem("ListBox4", p..b..my_table[bb]..c, "");
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin1", k);
MediaPlayer.Play("Plugin1");
end  

 كود PHP:
function ScrollInputText(sObject)

                    strText = Input.GetText(sObject);

                    strText = String.Right(strText, String.Length(strText)-1)..String.Left(strText, 1)

                    Input.SetText(sObject, strText);

end

function selectionsort(a)
for pos = 1, table.getn(a) do
local min = pos
for i = pos + 1, table.getn(a) do
if a[i] < a[min] then
min = i
end -- if
end -- for
if min ~= pos then
a[pos], a[min] = a[min], a[pos]
end  
end  
end