Форум Quest3D восстановлен!

-- CallChannel function is called when channel is called
function searchDirAndFiles(iDirPath)
local currentValue = channel.GetChild(1)
local currentDir = channel.GetChild(2)
local dirOrFiles = channel.GetChild(3)
local update = channel.GetChild(4)
local nxItems = channel.GetChild(5)
local nameOfItem = channel.GetChild(6)
local result = {{},{}} --(folders,files)
currentDir:SetText(iDirPath)
update:CallChannel()
--fileList
dirOrFiles:SetValue(0) --searchFiles
local files = nxItems:GetValue()
currentValue:SetValue(0)
local i = 0
while i<files do
result[1][i+1] = iDirPath..'\\'..nameOfItem:GetText()
i = 1 + i
currentValue:SetValue(i)
end
--createDirList
dirOrFiles:SetValue(1) --searchDirs
local folders = nxItems:GetValue()
currentValue:SetValue(0)
local j = 0
while j<folders do
result[2][j+1] = iDirPath..'\\'..nameOfItem:GetText()
j = 1 + j
currentValue:SetValue(j)
end
return result
end
function createFileList(iFsList)
local result=''
for i,v in pairs(iFsList[1]) do
result = result..iFsList[1][i]..'\r\n'
end
for j,v in pairs(iFsList[2]) do
result = result..iFsList[2][j]..'\r\n'
end
return result
end
function CallChannel()
--input data
local path = channel.GetChild(0):GetText()
--out data
local result = channel.GetChild(7)
if path ~= '' then
local lFsList = searchDirAndFiles(path)
local fileList = createFileList(lFsList)
result:SetText(fileList)
end
end
-- GetValue function is called when this channels is used as Value
function GetValue()
return -1
end[/spoiler]Страница создана за 0.011 сек. Запросов: 11.