ســــــؤال بخصوص (INIFile.GetSectionNames )؟

[ياسرهتهت]

بسم الله الرحمن الرحيم

ListBox.DeleteItem("ListBox1", -1);
a = INIFile.GetSectionNames(_SourceFolder.."\\autoplay\\docs\\list.ini");
count = Table.Count(a);
if count ~= 0 then
for i=1 , count do
txt = INIFile.GetValue(_SourceFolder.."\\autoplay\\docs\\list.ini", "item" .. i, "txt");
data = INIFile.GetValue(_SourceFolder.."\\autoplay\\docs\\list.ini", "item" .. i, "data");
result = ListBox.AddItem("ListBox1", txt, data);
end
end

بهذا الكود نستدعي Value الي ListBox


http://www.abc4web.net/vb/images/icons/startup.gif---السؤال عندي اكثر من ملف ini اريد ان استدعيها معا الي ListBox ؟ ما هو الكود لفعل ذالك ؟

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

[المـهاجر]

جرب
function ini2list(x)
a = INIFile.GetSectionNames(x);
count = Table.Count(a);
if count ~= 0 then
for i=1 , count do
txt = INIFile.GetValue(x, "item" .. i, "txt");
data = INIFile.GetValue(x, "item" .. i, "data");
result = ListBox.AddItem("ListBox1", txt, data);
end
end
end

ListBox.DeleteItem("ListBox1", -1);
iniPath = File.Find(_SourceFolder.."\\autoplay\\docs\\", "*.ini", false, false, nil, nil);
for A,Z in pairs (iniPath) do
ini2list(Z)
end

موفق

[ياسرهتهت]

جرب
function ini2list(x)
a = INIFile.GetSectionNames(x);
count = Table.Count(a);
if count ~= 0 then
for i=1 , count do
txt = INIFile.GetValue(x, "item" .. i, "txt");
data = INIFile.GetValue(x, "item" .. i, "data");
result = ListBox.AddItem("ListBox1", txt, data);
end
end
end


ListBox.DeleteItem("ListBox1", -1);
iniPath = File.Find(_SourceFolder.."\\autoplay\\docs\\", "*.ini", false, false, nil, nil);
for A,Z in pairs (iniPath) do
ini2list(Z)
end

موفق

-------------------------------------
----------------------------------------
بسم الله الرحمن الرحيم
شكرا لك استاذ المهاجر
:abc_051::abc_051:

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

[المـهاجر]

على الرحب و السعة