ПРОГРАММА:
local MySec = {}
local AVT = AllocTable()
function main()
AddColumn(AVT, 1, "ClassCod", true, QTABLE_STRING_TYPE, 12)
AddColumn(AVT, 2, "SecCod", true, QTABLE_STRING_TYPE, 12)
CreateWindow(AVT)
SetWindowCaption(AVT, "Table")
SetWindowPos(AVT, 0, 0, 200, 200)
local file = io.open ('D:\\SYS\\ATC Sec', 'r')
file :read()
local i = 0
while true do
i=i+1
MySec[i..'']= {}
MySec[i..'']['CCod'] = file :read(8)
if MySec[i..'']['CCod'] == nil then
break
end
file :seek (cur,1)
MySec[i..'']['SCod'] = file :read(6)
InsertRow(AVT, -1)
SetCell(AVT, 1, 1, MySec[i..'']['CCod'])
SetCell(AVT, 1, 2, MySec[i..'']['SCod'])
end
file :close()
end
____________________________________
ЗАПИСЬ В ФАЙЛЕ (скопировано из файла):
ClassCod SecCod
SPBFUT SRH8
SPBFUT GZH8
____________________________________
Результат на картинке.
Что не так?
Р.S. Раньше эта же программа, но с бОльшим количеством переменных, работала нормально. Остальные переменные убраны для простоты.