Indigo Rose AutoPlay Media Studio (часть 1) - [85] :: Программы

Есть очередной вопрос :

-- Очищаем ЛистБокс2
-- Считаем количество записей (строк) в ЛистБоксе2
nCount = ListBox.GetCount("ListBox2");
-- Если их количество больше 0
if (nCount) then
    -- пока их количество больше 0
    while nCount > 0 do
        -- удаляем каждую запись (строку)
        ListBox.DeleteItem("ListBox2", nCount);
        -- уменьшая после каждого удаления их количество на 1
        nCount = nCount - 1;
    end
end

-- Получаем данные выделенной строки в ЛистБоксе1
tSelected = ListBox.GetSelected("ListBox1");
-- Если что то выбрано, то
if tSelected then
    -- Читаем табличные данные
    for nTableIndex, nListBoxIndex in tSelected do
        -- Получаем путь к выбранному файлу (из колонки 'data' ЛистБокса1)
        sEXEFilePath = ListBox.GetItemData("ListBox1", nListBoxIndex);
        -- Получаем имя выделенного файла
        sEXEFileName = ListBox.GetItemText("ListBox1", nListBoxIndex);
        -- Меняем расширение
        sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);
        end

end
Label.SetVisible("Label2", true);

-- Делаем видимым ЛистБокс русиков
ListBox.SetVisible("ListBox2", true);
-- Заполняем его
-- директория русиков
_SearchdirRus =_SourceFolder.."\\Autoplay\\Docs\\system\\Rus\\";
-- ищем файлы с именем выбранного файла в ЛистБокс1
FileListRus = File.Find(_SearchdirRus, sEXEFileName, false, false, nil);
---добавляем в ЛистБокс2
if FileListRus then -- если есть русификатор
    for j in FileListRus do
resName = String.SplitPath(FileListRus[j]).Filename; -- получаем имя файла
        resPath = _SearchdirRus..sEXEFileName; -- получаем путь
        ListBox.AddItem("ListBox2", "Русификатор "..resName, resPath); -- добавляем запись в ЛистБокс2, имя файла пишем в 'text', а путь к нему в 'data'
    end
end

-- Читаем нужный текстовый файл
strFileRus = TextFile.ReadToString(sTXTFilePath);
-- и выводим это описание
Paragraph.SetText("Paragraph1", strFileRus);

А если нужный файл не экзешник , а архив RAR,Надо как-то расширение поменять?

Модерирует : gyra, Maz
Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101