» Autoplay Media Studio

Блин как легко оказалось!
Башка не варит как следует а значит старею
Спасибо!

Zloy_Gelud

А можно сделать, что бы при клике на картинку, она сначала увеличивалась не много, а при следующем клике уменьшалась в исходный размер...

ЗЫ: Картинок несколько на странице.

Есть такой код
[more=Код]
Код: Folder.Size = function (sPath)
g_FolderSize = 0;
tbExt = {};
local tblExtFind = {log=true, txt=true}
tblFilePass = {};
StatusDlg.Show();
tblFiles = File.Find(sPath, "*.*", CheckBox.GetChecked("CheckBox_Recurse"), false, nil, function(current)
local nSize = File.GetSize(current);
g_FolderSize = g_FolderSize + nSize;
if String.SplitPath(current).Extension~="" then
local sExt = String.Mid(String.SplitPath(current).Extension, 2, -1);
tbExt[sExt] = "";
if tblExtFind[sExt] then
tText = TextFile.ReadToTable(current);
if tText then
strPass = tText[#tText];
if strPass=="" and #tText>=2 then
index=#tText;
while index>1 do
strPass = tText[index];
if strPass~="" then
break;
end
index = index-1;
end

end
if String.Find(strPass, ":", 1, false)~=-1 then
strPass = String.Mid(strPass, String.Find(strPass, ":", 1, false)+1, -1);
strPass = string.gsub (strPass, "^%s*(.+)%s*$", "%1");
if strPass~="" then
tblFilePass[#tblFilePass+1]={file = String.Replace(current, "."..sExt, "", false), pass = strPass};
end
end

end

end
end
return true;
end);
StatusDlg.Hide();
end

Robby
Что-то не понятна суть этой затеи. Чем не устраивает таблица tblFilePass? Зачем что-то объединять? Разве результатом объединения не будет таже таблица, что и tblFilePass?

Zloy_Gelud
не совсем так, таблицы разные, tblFilePass содержит только архивы для которых найден пароль, а tblFiles все найденные файлы. Обрабатывать потом нужно все найденные файлы, но если встретиться архив то применить для его распаковки пароль.
Тут пришла мысль о неправильном пути реализации. Так получается слишком сложно, нужно сравнивать значение таблиц. Придумал решение проще. Сейчас попробую сделать.

Robby
Если б ты поподробней расписал, можно было бы вместе подумать, как попроще реализовать.

Zloy_Gelud
Есть результаты поиска tblFiles = File.Find...
В поиске участвуют все файлы и tblFiles содержит пути ко всем файлам.
Среди найденных файлов есть архивы, например *.rar, и текстовые описания к ним формата *.rar.log или *.rar.txt. В тестовых описания последняя строка может быть паролем. Наличие пароля определяется по наличию ":" в строке (например pass: пароль). Нужно результирующий двухмерный массив в котором по индексу и ключу можно получить путь к архиву и пароль для него если он есть. Я сделал так:


Код: tblFiles = File.Find("C:\\MyDir\\", "*.*", false, false, nil, nil);
-- функция получения пароля
function GetPass(path)
local function test(path)
if File.DoesExist(path..".txt") then
tText = TextFile.ReadToTable(path..".txt");
return tText;
elseif File.DoesExist(path..".log") then
tText =TextFile.ReadToTable(path..".log");
return tText;
else
return false;
end
end
if test(path) then
strPass = tText[#tText];
if strPass=="" and #tText>=2 then
index=#tText;
while index>1 do
strPass = tText[index];
if strPass~="" then
break;
end
index = index-1;
end

end
if String.Find(strPass, ":", 1, false)~=-1 then
strPass = String.Mid(strPass, String.Find(strPass, ":", 1, false)+1, -1);
strPass = string.gsub (strPass, "^%s*(.+)%s*$", "%1");
if strPass~="" then
return strPass;
end
end
end

end

-- создание массива tblFilePass[i]={Path=value, Pass=GetPass(value)}
if (tblFiles) then
tblFilePass={};
for i,value in pairs(tblFiles) do
local strExtension = String.SplitPath(value).Extension;
tblFilePass[i]={Path=value, Pass=GetPass(value)};
end
end

-- здесь вывод результата работы
if (tblFilePass) then
for i=1, #tblFilePass do
Debug.ShowWindow(true);
Debug.Print(tblFilePass[i].Path.." \t "..tostring(tblFilePass[i].Pass).."\r\n");
end
end

Lexua и Zloy_Gelud,

Спасибо за советы, они мне помогли, раньше не было возможности поблагодарить.

Zloy_Gelud только сейчас смог посмотреть. Спасибо, то что надо!!!


Добавлено:
Господа, реально ли сделать так, чтобы при заходе на страницу менялась бы раскладка клавиатуры на английский язык. Зашел на страницу и стал писать в Input сразу на английском языке. Заранее спасибо.

dallas page

Цитата:

Господа, реально ли сделать так, чтобы при заходе на страницу менялась бы раскладка клавиатуры на английский язык. Зашел на страницу и стал писать в Input сразу на английском языке.

Реально.

On Show страницы:

Код: DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000409\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
Page.SetFocus("Input1");

Zloy_Gelud спасибо

Вот еще кусочек русской справки по Autoplay Media Studio
http://rghost.ru/31982311

Есть сайт интернет-магазин. Как бы мне сделать копирование информации оттуда.
К примеру есть страница http://fotomag.com.ua/samsung-c3330-champ-2-metallic-silver-info.html Как мне сделать чтобы название и цена копировались с страницы, которую я укажу (все страницы будут из этого интернет-магазина).

ubian -- тести.

Код: -- Получаем исходный код страницы
local sHTML = HTTP.Submit("http://fotomag.com.ua/samsung-s5360-galaxy-y-metallic-grey-info.html", {}, SUBMITWEB_POST, 20, 80, nil, nil);
-- Вытягиваем название
local sName = string.match(sHTML, '<div id="mainpanel" >%s+<h1>(.-)</h1>')
-- Вытягиваем цену
local sPrice = string.match(sHTML, '<dd class="price" >%s+<span >(.-)%s+</dd>')
local sPrice = string.gsub(sPrice, "</span>%s+", " ");

Dialog.Message("Опаньки", "Я узнал, что " .. sName .. " стоит " .. sPrice..".", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Zloy_Gelud, ну ты прям как всегда. Ограмное спасибо)

Zloy_Gelud
Здравствуйте, а Вы не знаете ответ на мой вопрос, который я не так давно задавал lerik 2703

AVM185

Когда перешли на последнюю страницу темы, сохраняй какое-нибудь значение в реестр (или в файл). А при запуске проекта необходимо считывать это значение. Если оно есть или имеет определенное значение, значит делаем вывод, что тема изучена.

Zloy_Gelud
Посоветуйте пожалуйста как это осуществить

AVM185

Для примера.

On Show или On Preload первой страницы (ну или туда, куда необходимо):

Код: local sValue = Registry.GetValue(HKEY_CURRENT_USER, "Software\\My_cool_soft", "Theme_1", true);
if sValue == "" or sValue == "0" then
-- здесь действия, если тема не изучена
elseif sValue == "" then
-- здесь действия, если тема изучена
end

Zloy_Gelud
Огромное Вам спасибо за помощь

Народ! Посоветуйте утилитку командной строки для перекодировки ansi в utf-8. Или может код где проскакивал. Плагин Unicode крив ужасно и велик не в меру(хотя с этим я готов мириться). А с кирилицей в нем вообще беда(крякозябры)

Добрый вечер.
Ребят, я в работе с авторанами новичек. Никак немогу понять как заставить работать ListBox.
Мне нужно вставить в ListBox так что бы при клике на каждую на них открывалась нужная мне картинка.

Добавлено:
Сори, опечатался. Мне нужно вставить в ListBox несколько строчек так что бы при клике на каждую на них открывалась нужная мне картинка.

Lexua
попробуй это uniconv.rar (474.8 КБ) формат командной стороки

Код:
uniconv.exe cp1251 file.txt UTF8 file_utf.txt

Lexua -- без дополнительных модулей/программ.

Код: Encoding = {};

--[[ Преобразование строки в UTF8 кодировку]]
Encoding.StringToUTF8 = function (sString)
local Result = "";
local Code
for char in sString:gmatch(".") do
Code = String.Asc(char);
if Code >= 192 and Code <= 239 then
Result = Result .. String.Char(208)..String.Char(Code - 48);
elseif Code >= 240 and Code <= 255 then
Result = Result .. String.Char(209)..String.Char(Code - 112);
elseif Code == 168 then
Result = Result .. String.Char(208)..String.Char(129);
elseif Code == 184 then
Result = Result .. String.Char(209)..String.Char(145);
else
Result = Result .. String.Char(Code);
end
end
return Result;
end

Dialog.Message("ANSI -> UTF8", Encoding.StringToUTF8("Привет"));

Нужна функция Суммы размеров. Есть множество чисел N, нужно из него выбрать числа без повторов на сумму, максимально приближающуюся к заданному числу T. Сумма должна минимально (задается) отклоняться от числа T, отклонение обязательно с недостатком.
Нужно примерно такое:

Код:
function optSum (tSize, nMax, nLimit)
-- здесь код
return tOptimum
end

Robby
Попробуй этот пример раскурить:
http://ateist.spb.ru/programs/cpp/ranec.htm
Вроде то, что нужно, но у меня чет не получилось реализовать в AMS.

Zloy_Gelud, всё гениальное просто

Цитата:

Zloy_Gelud

с ListBox я разобрался. Но теперь есть другой вопрос. Скажите, можно ли в АМS 8 реализовать функцию поиска по как на сайте?
К примеру, есть папка с фотографиями. В поле "поиск" вводим название какой либо фото - открывается окошко с ссылкой на это фото.
Может быть можно сделать поиск по ключевым словам?



Добавлено:
И еще вопрос. Здесь, на форуме, есть скрипт для бегущей строки. Подскажите как его закольцевать, что бы строка бежала беспрерывно?

Добавлено:
И еще, понимает ли прога *gif. Просто через объект "Изображение" она их не воспроизводит. А через слайдшоу...разбивать надпись на слои...как то не серьезно

Есть вопрос. Сейчас создаю 2D движок по заказу. Так вот возник вопрос. Как выставить одно изображение выше второго, ну или в общем обьект. К примеру есть Image1 и Image2. Image1 выше стандартно чем Image2. Как мне сделать наоборот. И еще: как можно преобразовать десятиричное чисто в двоичное?

Robby
Сложновата задачка. Но, если поможет, то могу скинуть код, который находит все возможные варианты последовательностей чисел из массива, сумма которых равна заданной, т.е. без отклонений.

Добавлено:
ubian

Цитата:

как можно преобразовать десятиричное чисто в двоичное?

http://rghost.ru/32289831 (c) 2007 Tim Kelly/Dialectronics

big gnome

Цитата:

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

http://rghost.ru/32290281

Цитата:

понимает ли прога *gif. Просто через объект "Изображение" она их не воспроизводит. А через слайдшоу...разбивать надпись на слои...как то не серьезно

Вставляй через объект Video.