مطلوب كــــــود للبحث في كائن (Tree) ؟

[ياسرهتهت]

بسم الله الرحمن الرحيم
اخواني الاعزاء اساتذتي الكرام
مطلوب كــــــود للبحث في كائن (Tree) ؟

http://c.top4top.net/p_998or11.png

رابط الملف لتوضيح الطلب


http://up.top4top.net/downloadf-996pu61-rar.html

موفقين بإذن الله ... لكم مني أجمل تحية .

[عبد الهادي بهاب]

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

[ثامر أبو بلقيس]

:abc_139:


على مستوى global functions
sPDFRootFolder = _SourceFolder .. "\\PDFs";
Tree.FindAllNodesByText =
function (strTree, strNode, strText, bExactMatch)
local tblItems = {};
local tbTree = Tree.GetChildren(strTree, strNode);
if tbTree then
for i,v in pairs(tbTree) do
if bExactMatch == false then
if String.Find(tbTree[i]["Text"], strText, 1, false) ~= -1 then
bFound = true;
else bFound = false;
end
else
if tbTree[i]["Text"] == strText then
bFound = true;
else bFound = false;
end
end
if bFound then
Table.Insert(tblItems, Table.Count(tblItems) +1, tbTree[i]["NodeIndex"]);
end
if Tree.GetChildCount(strTree, tbTree[i]["NodeIndex"]) ~= -1 then
tbReturn = Tree.FindAllNodesByText(strTree, tbTree[i]["NodeIndex"], strText, bExactMatch);
if tbReturn then
for i,v in pairs(tbReturn) do
Table.Insert(tblItems, Table.Count(tblItems)+1, v);
end
end
end
end
return tblItems;
else
return nil;
end
end

في زر البحث :
ListBox.DeleteItem("SearchList",LB_ALLITEMS);
tbFound = Tree.FindAllNodesByText("Tree1", "0", Input.GetText("search"), true);
for i,v in pairs(tbFound) do
ListBox.AddItem("SearchList", Input.GetText("search"),v );
end

على مستوى ليستبوكس
في الحدث on select
p= ListBox.GetSelected("SearchList");
r = ListBox.GetItemData("SearchList", p[1])
Tree.SetSelectedNode("Tree1", r);

ملاحظتان:
01 - كتابة معيار البحث بدقة مع مراعاة أي فراغ زائد يؤثر على النتيجة
02 - في زر البحث تغيير true بــ false يمكن البحث حتى بجذور المفردة

موفــــــــــــــق :abc_138:

[ياسرهتهت]

:abc_139:


على مستوى global functions
sPDFRootFolder = _SourceFolder .. "\\PDFs";
Tree.FindAllNodesByText =
function (strTree, strNode, strText, bExactMatch)
local tblItems = {};
local tbTree = Tree.GetChildren(strTree, strNode);
if tbTree then
for i,v in pairs(tbTree) do
if bExactMatch == false then
if String.Find(tbTree[i]["Text"], strText, 1, false) ~= -1 then
bFound = true;
else bFound = false;
end
else
if tbTree[i]["Text"] == strText then
bFound = true;
else bFound = false;
end
end
if bFound then
Table.Insert(tblItems, Table.Count(tblItems) +1, tbTree[i]["NodeIndex"]);
end
if Tree.GetChildCount(strTree, tbTree[i]["NodeIndex"]) ~= -1 then
tbReturn = Tree.FindAllNodesByText(strTree, tbTree[i]["NodeIndex"], strText, bExactMatch);
if tbReturn then
for i,v in pairs(tbReturn) do
Table.Insert(tblItems, Table.Count(tblItems)+1, v);
end
end
end
end
return tblItems;
else
return nil;
end
end

في زر البحث :
ListBox.DeleteItem("SearchList",LB_ALLITEMS);
tbFound = Tree.FindAllNodesByText("Tree1", "0", Input.GetText("search"), true);
for i,v in pairs(tbFound) do
ListBox.AddItem("SearchList", Input.GetText("search"),v );
end

على مستوى ليستبوكس
في الحدث on select
p= ListBox.GetSelected("SearchList");
r = ListBox.GetItemData("SearchList", p[1])
Tree.SetSelectedNode("Tree1", r);

ملاحظتان:
01 - كتابة معيار البحث بدقة مع مراعاة أي فراغ زائد يؤثر على النتيجة
02 - في زر البحث تغيير true بــ false يمكن البحث حتى بجذور المفردة

موفــــــــــــــق :abc_138:
------------------------------------------------------
بسم الله الرحمن الرحيم

شكرا لك استاذي الكريم تمت التجربة ننجاح
:abc_138::abc_138::abc_138:

[عبد الهادي بهاب]

جميل جدا ......نستفيد منكم شبوخنا .......كما يجب ان تكون عناوين الكتب موحية بالمحتوى حتى يكون للبحث قيمة

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[احمد كبه]

السلام عليكم تكدر ترفع الملف بعد التعديل

[احمد كبه]

لم ينجح تجربته على نفس هذا المشروع اذا امكن رفعه كاملا

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
اخواني الاعزاء اساتذتي الكرام
مطلوب كــــــود للبحث في كائن (tree) ؟

http://c.top4top.net/p_998or11.png

رابط الملف لتوضيح الطلب


http://up.top4top.net/downloadf-996pu61-rar.html

موفقين بإذن الله ... لكم مني أجمل تحية .



هل ممكن اللملف بعد التعديل عليه

لانه لم ينجح معي

[مخـ الأمل ـاوي]

ارجوا ارفاق الملف بعد التعديل...
للاهمية
وشكرا

[مخـ الأمل ـاوي]

عمل جميل ومفيد
بارك الله وفيك
وبالتوفيق في قادم الاعمال
بس ياليت لو ترفق الملف بعد التعديل

[مخـ الأمل ـاوي]

للرفع للاهمية... وشكرا