» Autoplay Media Studio

Zloy_Gelud

Почему-то скрипт не действует.
В кнопке Combobox ( т.е Кнопка со списком ) нет On Click, имеется только On Select, On Key, On Focus.

Вот скриншотик сделал ещё подробнее:
http://i18.fastpic.ru/big/2011/0323/98/967f115bfdde9cb8cac53e94cc9fdc98.jpg
При нажатии на нее появляется список строчек, вот нужно чтобы каждая из строчек списка, редактировали определенную строчку в txt файле.
Есть ли ещё какие-нибудь способы?

Zloy_Gelud, большое спасибо!
Попробую, отпишусь

Nikoly99
Нужно просто было создать кнопку (объект xButton) и вставить в событие On Click код, который я указывал.
Если тебе необходимо, чтобы после выбора пункта Комбобокса сразу редактировалась строчка, то просто вставь указанный код в событие On Select объекта Комбобокс.

Всё равно что-то не меняет текст. Не действует... странно. Вставил код в сценарий On Select
А кроме этого больше ничего менять не надо ?:

Код: local tArrayValues = {};
tArrayValues[3] = 'DVD SoftWare';
tArrayValues[5] = 'CD SoftWare';
tArrayValues[7] = 'Portables';

local sFilePath = "\\File.txt"; -- указал путь
.......
.......
.....
.

Nikoly99 -- Упс, это я прозевал. Сорри.
Добавь еще в Item Data пунктов объекта Комбобокс, числа, соответствующие номерам строк. Т.е. если ты указываешь в качестве индексов массива числа 3, 5 и 7, то их также нужно добавить в поля Item Data пунктов Комбобокса. Вот как-то так.

Даа), получается) спасибо, а если нужно например строку в txt файле одну и туже заменить, но под разным значением. Как сделать, чтобы каждый пункт в поле, заменял одну и туже строку (например строчка только [5], и чтобы все пункты заменяли ее по разному как укажу.)
А то попробовал, оно только в одном значении заменяет, а в другом переименовывать не хочет.

Примерно таков план у меня:

Код:
tArrayValues[5] = 'FullscreenResolution = 640x480';
tArrayValues[5] = 'FullscreenResolution = 800x600';
tArrayValues[5] = 'FullscreenResolution = 1280x1024';

-- нужно чтобы пункты меняли строчки разрешения экрана.
В [5-ой] строке в txt файле FullscreenResolution так и называется, нужно присвоить цифры только в одной строчке менялись.

Парни, может у кого-нибудь завалялся исходник муз. проекта, скиньте пожалуйста, сюда или в л.с. Хотел было сделать простенький список треков с проигрыванием, но даже этого не осилил..

что-то не соображу как заменить определённый пункт в строке в txt-файле после прописывания из Input


Код: result = Input.GetText("Input2");
TextFile.WriteFromString(_SourceFolder.."\\mytxt.txt", result, false);

Nikoly99

Код: tArrayValues = {};
tArrayValues[1] = 'FullscreenResolution = 640x480';
tArrayValues[2] = 'FullscreenResolution = 800x600';
tArrayValues[3] = 'FullscreenResolution = 1280x1024';

local sFilePath = _SourceFolder.."\\File.txt";

local nSel = ComboBox.GetSelected("ComboBox1");
if nSel ~= -1 then
local nData = String.ToNumber(ComboBox.GetItemData("ComboBox1", nSel));
if nData ~= 0 then
local tLines = TextFile.ReadToTable(sFilePath);
if tLines then
tLines[5] = tArrayValues[nData];
TextFile.WriteFromTable(sFilePath, tLines, false);
end
end
end

Какой оператор отвечает за прекращение выполнения дальнейших команд.

Код: odin = Image.IsVisible("Image24");
if odin == true then
Image.SetVisible("Image26", true);
Image.SetVisible("Image24", false);
<<прекратить>>
end

dva = Image.IsVisible("Image26");
if dva == true then
Image.SetVisible("Image28", true);
Image.SetVisible("Image26", false);
<<прекратить>>
end

Stalkersof
А какие команды ты собираешься прекращать? Из твоего куска кода непонятно..т.к. после

Цитата:

<<прекратить>>

никаких команд не следует. Или тебе необходимо, чтобы после выполнения "<<прекратить>> " здесь

Цитата:

odin = Image.IsVisible("Image24");
if odin == true then
Image.SetVisible("Image26", true);
Image.SetVisible("Image24", false);
<<прекратить>>
end

это

Цитата:

dva = Image.IsVisible("Image26");
if dva == true then
Image.SetVisible("Image28", true);
Image.SetVisible("Image26", false);
<<прекратить>>
end

не выполнялось?

Да именно так. Я на VB знаю как та м команда Exit а тут как.

Stalkersof

Код: Application.ExitScript();

Zloy_Gelud
Спасибо все работает через elseif получилось перелиставание картинок.

Цитата:

local nLine = 5; -- номер строки
local sReplace = Input.GetText("Input1");

local tLines = TextFile.ReadToTable("C:\\MyFile.txt");
if tLines then
if nLine <= #tLines then
tLines[nLine] = String.Mid(tLines[nLine], 1, String.ReverseFind(String.TrimRight(tLines[nLine], "\""), "\"", false)) .. sReplace .. "\"";
TextFile.WriteFromTable("C:\\MyFile.txt", tLines, false);
end
end

Zloy_Gelud, спасибо)) но есть одна заминка - если стереть в текстовом поле текст то редактирование текстовика тоже идёт, в текстовике получается file.txt "file2.txt" ""

а когда снова ввожу в текстовое поле информацию выходит file.txt "file2.txt"start1" (кавычки не хватает)

если вводить текст с заменой поверх текущего то всё работает как надо, если же стирать то 2 параметра "сливаются"

Madrigal5000

Код: local nLine = 5;
local sReplace = Input.GetText("Input1");

local tLines = TextFile.ReadToTable("C:\\MyFile.txt");
if tLines then
if nLine <= #tLines then
tLines[nLine] = String.Mid(tLines[nLine], 1, String.ReverseFind(String.Mid(tLines[nLine], 1, #tLines[nLine] - 1), "\"")) .. sReplace .. "\"";
TextFile.WriteFromTable("C:\\MyFile.txt", tLines, false);
end
end

В AMPS возможно передать фокус кнопке через код

Stalkersof
Стандартно нет. Но с помощью WinAPI можно объекту xButton фокус передать.

Zloy_Gelud, Спасибо большое, всё работает

Ладно с API морочится не буду. Черевато последствиями. Да стандартных возможностей маловато. Развитие программы продолжается или свежих версий мы больше не увидим.

Stalkersof

Цитата:

Да стандартных возможностей маловато.

Шутишь? Если не хватает каких-либо действий, то благодаря WinAPI и множества плагинов АМС имеет практически безграничные возможности. Да и других программ, имеющих хотя бы 30% возможностей АМС не существует в природе.

Цитата:

Развитие программы продолжается или свежих версий мы больше не увидим.

Прогресс не стоит на месте.. Приблизительно раз в год IR выпускает новую версию. А в течении года правит баги и добавляет кое-чего по-мелочи.

Тут с этим разобратся. Какое там Библиотеки Windows.
Будем ждать новых версий.

Цитата:

local nLine = 5;
local sReplace = Input.GetText("Input1");

local tLines = TextFile.ReadToTable("C:\\MyFile.txt");
if tLines then
if nLine <= #tLines then
tLines[nLine] = String.Mid(tLines[nLine], 1, String.ReverseFind(String.Mid(tLines[nLine], 1, #tLines[nLine] - 1), "\"")) .. sReplace .. "\"";
TextFile.WriteFromTable("C:\\MyFile.txt", tLines, false);
end
end

Ок?

ОК ))) спасибо !!! ))) всё работает как надо ))))

При переходе со страницы на страницу с опр. эффектом, его можно оборвать щелчком мыши по меню, можно ли сделать так, чтобы эффект перехода ни чем не обрывался? Если да, объясните пожалуйста по подробнее.

P.S. http://forum.ru-board.com/topic.cgi?forum=5&topic=33745&start=1600#8

Как открыть сайт без использования Web

Stalkersof -- См. File.OpenURL

Добрый вечер. Скажите уважаемые гуру AutoPlay Media Studio как сделать что содержимое нескольких объектов input при сохранение в текстовый док сохранялись в отдельных строках
вот мой пример:

a = Input.GetText("Input1");
b = Input.GetText("Input2");
TextFile.WriteFromString("C:\\script.txt", "create vdisk file=".. a..".vhd".." Maximum=51200".." type=EXPANDABLE ", true);
TextFile.WriteFromString("C:\\script.txt", "create vdisk file=".. b..".vhd".." Maximum=51200".." type=EXPANDABLE ", true);

Вот возник такой вопрос.
При переходе на новую страницу что происходит с уже открытой страницей?
Она выгружается из памяти. Или просто накладывается по верх старой.

STREAMRIDER

a = Input.GetText("Input1");
b = Input.GetText("Input2");
TextFile.WriteFromString("C:\\script.txt", "create vdisk file=".. a..".vhd".." Maximum=51200".." type=EXPANDABLE \n", true);
TextFile.WriteFromString("C:\\script.txt", "create vdisk file=".. b..".vhd".." Maximum=51200".." type=EXPANDABLE \n", true);

не подскажете как выдернуть ссылку на закачку с данной страницы http://data.cod.ru/95225 ? и вставить её к примеру в поле Input (я предварительно http download поставил ), пробовал FindString но не выходит