تويت
for i=1, Grid.GetRowCount("Grid1")+1 do
if Grid.GetCellText("Grid1", i, 1) == "" then
Grid.DeleteRow("Grid1", i, true);
end
end
هل فيه افكار يا سيادة يا كرام ؟
Grid.SetRedraw("Grid1", true, true);
ListBox.SetUpdate("ListBox1", true);
Grid.SetRedraw("Grid1", true, true);
ListBox.SetUpdate("ListBox1", true);
local tblsec = INIFile.GetSectionNames("AutoPlay\\Docs\\1.ini");
if tblsec then
for c in pairs(tblsec) do
ff = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "classe");
num = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "numero");
nom = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "nom");
date = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "date_naisasance");
grad = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "mis_scout");
stage = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "tahil");
sta = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_tahil");
fo = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "foj");
mbl = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "mobil");
mis = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_mis");
niv = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "niveau");
an = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "annee");
ni = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_niveau");
soc = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "social");
sc = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_social");
comun = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "commun");
commun = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_commun");
metier = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "metier");
mihna = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_metier");
email = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "email");
assu = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "n_assurance");
insc = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "an_inscription");
sang = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "g-sang");
fonct = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "f_fonction");
remm = INIFile.GetValue("AutoPlay\\Docs\\1.ini", tblsec[c], "rem");
if ff=="1" then
Grid.SetCellText("Grid1", c+1, 1, nom, true);
Grid.SetCellText("Grid1", c+1, 2, date, true);
Grid.SetCellText("Grid1", c+1, 3, commun, true);
Grid.SetCellText("Grid1", c+1, 4, grad, true);
Grid.SetCellText("Grid1", c+1, 5, stage, true);
Grid.SetCellText("Grid1", c+1, 6, mbl, true);
Grid.SetCellText("Grid1", c+1, 7, ni, true);
Grid.SetCellText("Grid1", c+1, 8, soc, true);
Grid.SetCellText("Grid1", c+1, 9, metier, true);
Grid.SetCellText("Grid1", c+1, 10, email, true);
Grid.SetCellText("Grid1", c+1, 11, assu, true);
Grid.SetCellText("Grid1", c+1, 12, sang, true);
result = ListBox.AddItem("ListBox1", nom, tblsec[c]);
ListBox.SetUpdate("ListBox1", true);
end
end
end
Grid.SetRedraw("Grid1", true, true);
for c in pairs(tblsec) do
؟for i,d in pairs(result) do
tbl = {"a","b","c","d"}
for c in pairs(tbl) do
Dialog.Message("Notice", c.." val= "..tbl[c], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
for i=1, Grid.GetRowCount("Grid1")+1 do
if Grid.GetCellText("Grid1", i, 1) == "" then
Grid.DeleteRow("Grid1", i, true);
end
end
for i=1, Grid.GetRowCount("Grid1")+1 do
if Grid.GetCellText("Grid1", 1, 1) == "" then
Grid.DeleteRow("Grid1", 1, true);
end
end
for i=1, Grid.GetRowCount("Grid1")+1 do
for i=1, Grid.GetRowCount("Grid1")+1 do
if Grid.GetCellText("Grid1", i, 1) == "" then
Grid.DeleteRow("Grid1", i, true);
end
end
end
for i=1, Grid.GetRowCount("Grid1")+1 do
if Grid.GetCellText("Grid1", i, 1) == "" then
Grid.DeleteRow("Grid1", i, true);
end
end
تعليق