تويت
السلام عليكم ورحمة الله وبركاته
في زر سمه البحث أكتب الكود :
الان أكتب كلمة محمد
في الانبوت اضغط على الزر
----------------------------------
ما هي النتائج ؟
لاحظ في Label10 ستجد العدد 4 أليس كذلك ؟
وفي RichText1 ستجد الاية و رقمها و السورة أليس كذلك ؟
موفق
في زر سمه البحث أكتب الكود :
كود PHP:
RichText.Delete("RichText1");
Label.SetText("Label10", "");
tamer = 0
khadem =""
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
gg = Input.GetText("Input1");
if gg~='' then
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 and s.Data[i]["naya"] ~="0" then
khadem=khadem ..s.Data[i]["alaya"].."---".."الاية".." "..s.Data[i]["naya"].." "..s.Data[i]["soura"].."\r\n".."\r\n"
tamer =tamer+1
end
end
end
end
end
RichText.SetText("RichText1", khadem, false);
Label.SetText("Label10", tamer);
في الانبوت اضغط على الزر
----------------------------------
ما هي النتائج ؟
لاحظ في Label10 ستجد العدد 4 أليس كذلك ؟
وفي RichText1 ستجد الاية و رقمها و السورة أليس كذلك ؟
موفق
تعليق