» Autoplay Media Studio

AVM185,

Код:
--Узнаем текст и присваеваем ему переменную
local TestResults = Paragraph.GetText("Paragraph1");
--Записываем в файл
TextFile.WriteFromString("C:\\MyFile.txt", TestResults, false);
--Очищаем переменную
TestResults = nil

ubian
Пожалуйста напишите поподробнее

Добавлено:
ubian , огромное спасибо, разобрался

Добавлено:
Подскажите пожалуйста, как сделать сохранение в файл из различных источников
файл находится TextFile.WriteFromString(myDir.."\\Test\\"..myFileName,"Тема 15 Задача решена неверно" , false); у меня при последующей записи в этот файл, удаляется предыдущая запись

Лови

Код:
--Добываем старый текст из файла File.filetype (Может быть изменен);
local OldFileText = TextFile.ReadToString(_SourceFolder.."\\File.filetype");
--Новый текст
YourNewText = "" --Что хочешь вписываешь;
--Записываем файл тот что указали в шаге №1
TextFile.WriteFromString(_SourceFolder.."\\File.filetype", OldFileText..YourNewText, false);
--Очищаем переменную
OldFileText = nil

Без сохранения уже записанного текст!

Код: TextFile.WriteFromString(_SourceFolder.."\\File.filetype", OldFileText..YourNewText, true);

Zloy_Gelud
не могли бы вы подробнее объяснить как пользоваться этим скриптом?


Цитата:

Повесь на кнопку Поиска:

Код:
local sSearch = Input.GetText("Input1");
if String.TrimLeft(sSearch, nil) ~= "" then
g_Files = File.Find("C:\\MyDir", sSearch, false, false, nil, nil);
end

Получишь таблицу путей найденных файлов. Дальше выводи их из таблицы куда надо.

big gnome

Цитата:

как пользоваться этим скриптом

Вот полный код!

Код: local sImagePath =""
local sSearch = Input.GetText("Input1");
if String.TrimLeft(sSearch, nil) ~= "" then
g_Files = File.Find("C:\\MyDir", sSearch.."*.jpg", false, false, nil, nil);
end
if g_Files~= nil then
if #g_Files > 1 then
for x=1,#g_Files do
sImagePath=sImagePath..g_Files[x]..",\n\r"
end
Dialog.Message("Notice",sImagePath, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Notice",g_Files[1], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
Dialog.Message("Notice", "Не найдено", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Мне интересно можно сделать физику обьектов через глобальную функцию и как на счет моих прошлых вопросов

Цитата:

Код:
-- Получаем исходный код страницы
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, подскажи плиз как код переделать для страницы: http://www.digital.ru/goods/notebooks/samsung/267191.htm. Чтобы он вытаскивал со страницы цену в в магазинах сети и цену в интернет магазине. Заранее спасибо

dallas page

Цитата:

Zloy_Gelud, подскажи плиз как код переделать для страницы: http://www.digital.ru/goods/notebooks/samsung/267191.htm. Чтобы он вытаскивал со страницы цену в в магазинах сети и цену в интернет магазине. Заранее спасибо

Ok.

Код: 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

-- Получаем исходный код страницы
local sHTML = HTTP.Submit("http://www.digital.ru/goods/notebooks/samsung/267164.htm", {}, SUBMITWEB_POST, 20, 80, nil, nil);
-- В магазинах сети
local sLocalCost = string.match(sHTML, '<noindex>'..Encoding.StringToUTF8("Цена в магазинах сети")..'.-2px;">(.-)<noindex>');
-- В инет магазине
local sWebCost = string.match(sHTML, '<noindex>'..Encoding.StringToUTF8("Цена в интернет магазине")..'.-2px;">(.-)<noindex>');
Dialog.Message("", "Цена в магазинах сети: "..sLocalCost .. " руб.\r\nЦена в интернет магазине: "..sWebCost.. " руб.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

По той же теме. Как мне выводить все товары из списка в ListBox к примеру из http://fotomag.com.ua/index.php?action=group&slug=mouse&sort=popular&v%5B364%5D%5B%5D=lazernaya

ubian -- для другой страницы (без фильтра).

Код: -- Получаем исходный код страницы
local sHTML = HTTP.Submit("http://fotomag.com.ua/CPU/index.html", {}, SUBMITWEB_POST, 20, 80, nil, nil);
for name in sHTML:gmatch('<li>.-<a class="name".-">(.-)</a>') do
ListBox.AddItem("ListBox1", name, "");
end

Zloy_Gelud, а как с фильтром?

ubian -- также. Просто я сначала подумал, что запрос с фильтром надо будет по другому выполнять, а оказалось аналогично работает.

lerik2703, спасибо огромное...но я ведь нуб, подскажите пожалуйсто, как пошагово это сделать? Т.е какие кнопки надо вставить? Чес. слово, стыдно вас напрягать, но у меня не получается. А начальство на работе жмет. Сделал на свою голову простенький диск, ради хохмы, а они вцепились, как клещ - сделай еще один диск.
И еще вопрос, не могли бы вы написать скрипт для работы с объектом каталога (Tree propertits).
Можно ли сделать что бы Каталог разворачивался в другую сторону?

Цитата:

Каапец я туплю...

Код:

--First
TextLabel = Label.GetText("Label1");
--Second
Label.SetText("Label2", TextLabel);
TextLabel = nil

это действие переность текст из одного объекта - всё впорядке, а тоже самое только с двумя?
На 1 странице 2 объекта с текстами, переходим на 2 страницу тексты из предыдущей страницы вствляется в объекты 1 и 2.

big gnome

Цитата:

подскажите пожалуйсто, как пошагово это сделать

а что именно не понятно?

Цитата:

написать скрипт для работы с объектом каталога

какой?
Vadim021X

Цитата:

тоже самое только с двумя

Код: tLabelText={}
for x=1,2 do
tLabelText[x]=Label.GetText("Label"..x);
end

lerik, я думаю что ему больше подойдет без таблицы, как ето (извиняюсь за нправильное написание, буквы на клавиатуре нету) делал я т.к. он самое простое спрашивал. Щас с планшета и написать код не могу, не очень удобно.

Цитата:

а что именно не понятно?

Создал я кнопку, вставил ваш скрипт...а дальше?

Цитата:

как извлечь из таблицы ты надеюсь знаешь?

нееет! я только еще начал турбо паскаль изучать! О чем ты говоришь? Я ещё многово не знаю! А в этой проге что то пытаюсь делать, потому что она с визуальной оболочкой.
Так что извините, что прошу писать подробнее для меня такого...

Так, вот суть:
На странице №1 находятся два объекта Label1, label2. В первом слово "Яблоко", во втором "Груша". Далее перехожу на страницу №2, там также объекты Label1, label2, но в них нет текста (но в них должно появится те же слова на странице №1).
Вопрос: Как Два слова из объектов на странице №1 скопировать в два объекта на странице №2?

Vadim021X

Цитата:

Так что извините, что прошу писать подробнее для меня такого...

В On Show страницы 2

Код: for index, text in pairs(tLabelText) do
Label.SetText("Label"..index, text);
end

Я думаю это более тяжело. Гораздо понятнее будет так
Для On Show на Page1


Код: LabelText_1 = Label.GetText("Label1"); --Добываем текст Label1
LabelText_2 = Label.GetText("Label2"); --Добываем текст Label2

Цитата:

И еще. Если хочешь что-небудь нормальное из программирование выучить и перспективное учи ассемблер или Си или Делфи, если уже занялся паскалем. Также еще перспективно Java

Я полюбому буду паскаля учить, это у меня по школьной программе.

Ну так учи Delphi Это тоже паскаль типо...

ubian -- хватит флудить, Vadim021X'у лучше знать, что ему нужно учить, тем более

Цитата:

это у меня по школьной программе.

Всем привет!
Срочно и быстро скажите, как сделать секундомер в проекте?
Кнопку нажимаешь и он начинает считать, ещё раз нажимаешь он останавливается, но значение не сбрасывается? и желательно, чтоб на кнопке менялась надпись ("Старт", "Пауза").

Добавлено:
и еще сценарий другой кнопки для сброса секундомера подскажите.

Vadim021X

Цитата:

Срочно и быстро скажите, как сделать секундомер в проекте?

А что собственно в результате хотите получить?

Всем привет

Задался вопросом: В проекте есть Dialogs , вызываю его функцией DialogEx.Show("Dialog1"); но когда появляется окно, страницы проекта становятся неактивными, то есть нельзя перейти на другую, вот и сама суть вопроса:

Можно ли сделать данное диалоговое окно независимым - то есть при его появление можно было бы продолжать переходить на другие страницы проекта.

PAVELNEXT
Имхо, не получится. AMS для создания диалогового окна использует WinAPI функцию CreateDialogIndirectParam, которая в качестве параметра hWndParent принимает дескриптор нашего окна проекта. По-простому, это означает, что окно проекта будет являться родительским по отношению к диалоговому окну, и, пока его не закроешь, проект будет оставаться "неактивным". Вариант выхода: писать DLL (?), которая будет отлавливать вызов CreateDialogIndirectParam и подменять hWndParent на 0. Или же смириться с тем, как оно есть.

Mr_Paradox

Добавь в Глобальные функции:

Код: function QueryAllowProjectClose()
local nOpacity = 250;
while nOpacity > 0 do
WinApi.SetWindowTrans(Application.GetWndHandle(), nOpacity);
Application.Sleep(10);
nOpacity = nOpacity - 5;
if nOpacity == 0 then
break;
end
end
return true;
end

PAVELNEXT

Цитата:

Можно ли сделать данное диалоговое окно независимым

Можно с помощью WinApi, но возникнет слишком много проблем.
Основная проблема заключается в том, что управлять объектами будет возможно только в последнем открытом диалоговом окне.
Например:
В окне проекта есть объект "Label1" c текстом "Главное окно", и в диалоговом окне тоже есть объект "Label1" c текстом "Диалоговое окно".
Как ты думаешь какой текст мы извлечем из "Label1" с помощью Label.GetText?

tavria2

Цитата:

Можно с помощью WinApi, но возникнет слишком много проблем.

Напиши все же, как ты это сделал.