» Indigo Rose AutoPlay Media Studio

AntiWinLockerLive

Огромное спасибо! Как просто открывался этот ларчик (

2All
Что нужно написать в OnClick объекта Button1, чтобы в поле текста Paragraph1 при каждом нажатии Button1 загружалось содержимое файлов 1.txt, 2.txt и 3.txt? Заранее спасибо.

kostya1478
Этот код будет загружать файлы 1.txt, 2.txt, 3.txt и дальше при каждом нажатии. Первое нажатие - 1.txt, второе - 2.txt и т. д.


Код: nCounter = 1;
--
local sPath = _SourceFolder.."\\"..nCounter..".txt";
local sText = TextFile.ReadToString(sPath);
nCounter = nCounter+1;
--
Paragraph.SetText("Paragraph1", sText);

KerberX

Спасибо за оперативность, но хз - 1.txt грузит, а дальше не подхватывает.

kostya1478
Забыл написать что

Код: nCounter = 1;

Заработало. Теперь нужно чтобы по окончании списка файлов текст последнего после ещё одного нажатия Button1 не исчезал, а оставался... И как теперь сделать, чтобы на другой кнопке можно было всегда вернуться на нужное количество файлов в Paragraph1?

з.ы. KerberX, простите гуманитария))

Цитата:

Теперь нужно чтобы по окончании списка файлов текст последнего после ещё одного нажатия Button1 не исчезал, а оставался

текст исчезает потому, что, при очередном нажатии кнопки, файла со следующим номером не существует и sText = TextFile.ReadToString(sPath) возвращает пустую строку, которая потом и отображается в объекте параграф. Нужно вставлять проверку условия, например

Код: local sPath = _SourceFolder.."\\"..nCounter..".txt"; -- формируем путь к файлу
if File.DoesExist(sPath) then -- проверяем существует ли файл с таким номером
     -- если существует - получаем текст из файла, показываем его, увеличиваем счетчик
    local sText = TextFile.ReadToString(sPath); -- читаем текст из файла в переменную
    Paragraph.SetText("Paragraph1", sText); -- загружаем текст из переменной в объект параграф
    nCounter = nCounter+1; -- увеличиваем показания счетчика на 1
end

kostya1478
Несколько более универсальный код.

Код: -- On Show страницы
nCounter = 1;
-- Создаём список .txt файлов
tTextFiles = File.Find(_SourceFolder, "*.txt", false, false, nil, nil);

-- On Click кнопки 1
local sPath = tTextFiles[nCounter];
if File.DoesExist(sPath) == true then
    local sText = TextFile.ReadToString(sPath);
    Paragraph.SetText("Paragraph1", sText);
    --
    if nCounter < #tTextFiles then
        nCounter = nCounter+1;
    end
end

-- On Click кнопки 2
if nCounter > 1 then
    nCounter = nCounter-1;
end
--
local sPath = tTextFiles[nCounter];
if File.DoesExist(sPath) == true then
    local sText = TextFile.ReadToString(sPath);
    Paragraph.SetText("Paragraph1", sText);
end

KerberX

В первом варианте работает, но при переходе назад к первому файлу, и нажатии ещё раз назад всё перестаёт работать. Немного напрягает и то, что после нажатия первой кнопки, вторая срабатывает только после второго нажатия, и наоборот.

Во втором варианте в On Click кнопки 1
if nCounter < #tTextFiles then -- выдаёт ошибку unexpected symbol near`#`

kostya1478, похоже что функция не нашла .txt файлы в OnShow. Ты указал папку в функции File.Find(_SourceFolder, "*.txt", false, false, nil, nil);?

kostya1478

Цитата:

if nCounter < #tTextFiles then  -- выдаёт ошибку unexpected symbol near`#`

версия программы AMS какая?

Со вторым вариантом разобрался, работает. Мой косяк, наворочал такого, что не сразу въедешь. С первым вариантом во второй кнопке ругается на Syntax error: `=` expected near `nCounter` в строке If nCounter < 1 then. KerberX, в принципе, второго варианта достаточно, спасибо. Допилишь первый - тоже возьму на заметку.

Добавлено:

Цитата:

версия программы AMS какая?

Основная - 7.5, пересоздал в 8 - заработало. Тоже подумал на конфликт.

kostya1478
в седьмой версии нельзя использовать оператор длины/размера # потому, что он появился только в версии LUA 5.1. А в седьмой версии используется старая версия LUA. В седьмой версии нужно так Table.Count(tTextFiles)

помогите пожалуйста сделать кнопку которая будет показывать 3 (01-99) случайных не повтаряющихся между собой номера в input окошках и маленькое окно где их будет запоминать до выключения проэкта...
типа

randomize
[хх] [хх] [xx]
history
[хх, хх, xx]
[хх, хх, xx]
[хх, хх, xx]
.
.
.
.


спасибо!

De1ta
Это в On Show или в глобальные.

Код: function Table.Find(tTargetTable, nStartPos, vData, bCaseSensitive)
    if tTargetTable ~= nil then
        for x, y in pairs(tTargetTable) do
            if x >= nStartPos then
                if bCaseSensitive ~= true then
                    if String.Lower(y) == String.Lower(vData) then
                        return x
                    end
                else
                    if y == vData then
                        return x
                    end
                end
            end
        end
    end
end
--
tAllLines = {};

огромное спасибо!

а какой шанс показывать каждый номер в своём input-е не повторясь между input-ами за одно нажатие и все input-ы показывать в одной строке в инпуте истории как показывает сейчас

De1ta
То есть чтобы числа не повторялись ни в истории ни в текущем наборе или как? А то я ничего не понял.

нет
надо 3 окна в которых появлаются *** и не повторяются между собой приодном нажатии
и 1 окно истории где их будет показывать (можно как и сейчас [*** , *** , ***])

De1ta
Просто замени вот это

Код: Input.SetText("Input1", string.format("[%s]", table.concat(tLine, "] [", 1, #tLine)));

А я тут всё-ещё вожусь со своею проблемой, которая, увы, волнует только меня:

Скачал программу CFF Explorer, в ней открыл исполняемый файл скомпилированного файла, поставил галочку напротив параметра "app can handle >2gb address space" и сохранил exe.

После этого "Autoplay Media Studio" перестала игнорировать большие файлы, но, большие файлы по прежнему не распаковываются, просто процесс весит на начале распаковки и не продвигается.

Может у кого нибудь есть идеи как побороть данный недуг, хеееелп...

Pus21
Возможно этот проект тебе поможет. Проверь глобальные функции и код в On Click двух кнопок.

Добавлен исправленный код для Callback функции.
Для информации прочитать две страницы форума дальше.
https://yadi.sk/d/nc-des42nxHGS

Как правильно создать такое условие: если в Paragraph1 загружено содержимое файла 1.txt, то в Paragraph2.SetText "Текст один", иначе 2.txt - другой текст, 3.txt - третий и т.д.?

KerberX
Спасибо, во первых мне уже интересно, поскольку используется другой 7-ZIP.dll, а не тот который использую я.

Но выдаёт ошибку отсутствия плагина \MemoryEx\MemoryEx.lmd, хотя он в указанной директории есть.

Pus21
MemoryEx нужно подключить в проекте. Или может версия не та. Установи эту в "AutoPlay Media Studio\Plugins\Actions".
https://yadi.sk/d/EF18zTITiyfqE

KerberX
При запуске
При сборке
При сборке если включить плагины

Может быть нудно устанавливать какие нибудь дополнения для "AutoPlay Media Studio"? У меня кроме русификатора нечего больше не стоит.

Pus21
Нужно установить AMS PluginPowerPack 5.3 для AMS 8.x by Robby из Варезника. И лучше вообще не использовать русификатор.

KerberX
Я знал что Вы так скажете, но у меня хороший русификатор, глюков с ним не замечал.

Да, после установки PluginPowerPack все заработало, но мне не очень понятно зачем вообще нужен этот 7zip плагин, ведь тоже самое можно сделать и через 7z.exe? Или окно 7-ZIP.dll можно убрать, а место него поставить ProgressBar?

Pus21,
В этом примере есть свои преимущества, например распаковка запароленных архивов.
(если распаковывать с помощью 7z.exe, пароль можно увидеть в Process Explorer)

Ну и расширенные возможности, отображения прогресс бара и дополнительной информации в окне программы.

KerberX, откуда взяли этот проект, есть еще какая нибудь информация по нему?
Какие форматы поддерживает данная библиотека? (7-zip32.dll)
Библиотека плагинов не поддерживается? (7z.dll)

По мне, так очень сложно, для адаптации под свои проекты.

AntiWinLockerLive
Мда, сложновато. А я вот наоборот сделал из 7z.exe минималистичный разбраковщик - ProgressBar и все, даже рамки убрал. Но из этого тоже можно все убрать, вопрос - зачем.

Цитата:

Или окно 7-ZIP.dll можно убрать, а место него поставить ProgressBar?

Можно. Вот изменённый проект. Проверить On Startup.
https://yadi.sk/d/cDVy59K9izsv2


Цитата:

KerberX, откуда взяли этот проект, есть еще какая нибудь информация по нему?

DLL создал какой-то японец из оригинального 7-Zip. Документацию перевёл другой человек. Я нашёл эту DLL. Zloy_Gelud по моей просьбе сделал пример её использования и на основе этого примера я расширил функционал.


Цитата:

Какие форматы поддерживает данная библиотека? (7-zip32.dll)

Zip, 7z (LZMA, LZMA2, BZip2, PPMd). RAR и RAR5 не поддерживается.


Цитата:

Библиотека плагинов не поддерживается? (7z.dll)

Что за библиотека плагинов? Хотя, скорее всего, нет.