BOObastis
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GOOSE
Цитата:| Я вот сейчас плагин с базой данных "мучаю"... Не работал с ним? |
Неа, да plugins pack савсем недавно в бесплатном варианте появился :)
Ну ты в курсе...
BBMike
Такой вариант:
Создаешь 2 объекта:
Пикча: 
1. ListBox с именем "AlbumList" - список альбомов. (разрешаешь в списке выбор нескольких пунктов)
ItemText - название альбома
ItemData - полный путь к album*.txt, в котором пути к трекам альбома
(к примеру D:\album1.txt, D:\album2.txt, и т.д.)
2. Кнопку - при событии On-Click код:
Код:
Selected_Items = ListBox.GetSelected("AlbumList");
-- получаем выбранные элементы списка а массив Selected_Items
if Selected_Items then
-- если что-то в списке выбрано (массив не пуст), продолжаем:
Selected_Albums = "";
--временная переменная, где будут храниться пути к трекам альбомов
for i in Selected_Items do
--перебираем массив, где храняться выбранные пункты списка
Path_to_Album = ListBox.GetItemData("AlbumList", i);
--получаем путь файлу album*.txt, где храняться пути к трекам
Album = TextFile.ReadToString(Path_to_Album);
--записываем в переменную пути к трекам, которые храняться в файле album*.txt
Selected_Albums =Selected_Albums..Album.."\r\n"
--добавляем пути в переменную, где храняться все пути к трэкам, \r\n -перевод строки
end
TextFile.WriteFromString("C:\\Program Files\\Winamp\\winamp.m3u", "#EXTM3U\r\n"..Selected_Albums, false);
--переписать файл с плейлистом, #EXTM3U\r\n - первая строка, котрая дает понять , что это файл плейлиста winampа
File.Run("C:\\Program Files\\Winamp\\winamp.exe", "winamp.m3u", "C:\\Program Files\\Winamp\\", SW_SHOWNORMAL, false);
-- запускаем Winamp c плейлистом winamp.m3u
else
-- если ничего не выбрано
Dialog.Message("Notice", "Ну ты бы чаво нибудь выбрал.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
--вывести сообщение "Ну ты бы чаво нибудь выбрал."
end
|
Это один из самых простых вариантов, не включает обрабоку ошибок, автоматическое получение путей к файлам из папок и т.д. AMS 5 можно реализовать практически любые операции.
P.S. Ухожу в отпуск
|
Всего записей: 242 | Зарегистр. 17-05-2004 | Отправлено: 08:45 18-07-2004 | Исправлено: BOObastis, 08:46 18-07-2004 |
|
большущее спасибочки.
