تويت
مطلوب كــــــود للبحث في كائن (Tree) ؟
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
p= ListBox.GetSelected("SearchList");
r = ListBox.GetItemData("SearchList", p[1])
Tree.SetSelectedNode("Tree1", r);
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
p= ListBox.GetSelected("SearchList");
r = ListBox.GetItemData("SearchList", p[1])
Tree.SetSelectedNode("Tree1", r);
تعليق