Пожелания По ПО OnAIR

ALEXS118 · Сообщение **ALEXS118** » 12 мар 2008 16:37

Да , всё верно.

ALEXS118 · Сообщение **ALEXS118** » 12 мар 2008 16:38

Если бы кто то помог бы нам с написанием макроса под ТНТ плейлисты,
мы были благодарны, возможно вознаграждение.

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

Даниленко Сергей

Для ALEXS118:По поводу написания макроса "под вас". Посмотрите, пожалуйста, сюда (в самый низ):
viewtopic.php?t=2194&highlight=%EC%E0%EA%F0%EE%F1
и сюда:
http://www.softlab-nsk.com/rus/forward/partner2.html

НоваяРеальность

ALEXS118 писал(а):Если бы кто то помог бы нам с написанием макроса под ТНТ плейлисты,
мы были благодарны, возможно вознаграждение.

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

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

Даниленко Сергей

Для НоваяРеальность:

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

А не хотите поделиться со всеми, разместив на http://www.softlab-nsk.com/rus/forward/partner2.html ?

НоваяРеальность

Даниленко Сергей писал(а):А не хотите поделиться со всеми, разместив на http://www.softlab-nsk.com/rus/forward/partner2.html ?

Да без проблем, только у нас всё по-проще, там на страничке партнеров всё так серьёзно написано, защита программы и т.п. У нас простенький макрос, заточенный под плейлист ТНТ-шный, без всяких защит. Такое и выкладывать то стыдно

Даниленко Сергей

Про защиту написано для тех кому она нужна, т.е для тех кто собирается продавать свое решение. Но это восе не противоречит тому, что предложенное на страничке "наши партнеры" может распространяться бесплатно всем желающим. Все зависит от вас, мы никакого ограничения не делаем.
А ТНТ-шников среди наших пользователей много - наверняка кому-нибудь ваша разработка пригодится.

eXed · Сообщение **eXed** » 13 мар 2008 15:16

Только у меня есть подозрение, что у ТНТ в региональных Алькасарах плейлисты разные. Новосибирский и Иркутский варианты очень разнятся.

vd · Сообщение vd » 13 мар 2008 15:23

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

Ярослав Королев

Уговорили.

У меня макрос под ТНТ, работает с их плей-листом.
Ориентировка на блоки - по цвету. Ибо у них рекламные блоки обычно серые, а региональные - зеленые.
Выложу макрос. Но он все время в небольшой доработке по отслеживанию цветов, ибо на ТНТ иногда любят менять их.

Но, в принципе, если человек дружен с вижуал бейсиком, то проблем поправить нет.
Три клика.
1. Получаем по мылу файл расписания.
2. Загружаем в эксель.
3. Кликаем кнопку с назначенным на него макросом.

На выходе в каталоге, где был плейлист от тнт лежит готовый файл с расширением air. Имя автоматом берется из имени вкладки (это дата плейлиста), перелопачивается и получается нечто вроде play2008-03-12.air.
Соответственно начало имени файла можно сове какое угодно, вплоть до Autoload и т.д. С введением фичи (возможным наверное) играть плейлисты из мелких плейлистов, функция аутолоада будт задействована на ура. Ибо нарисовать типовое расписание на день уже будет не проблема. Тока ролики подставляй.
Единственное пожелание - чтобы можно было вставлять в расписание ПУСТОЙ блок. Типа на 16-10 есть блок с роликами, а на 16-50 ничего нету. Но в основном расписании, которое генерится автоматом, обе ссылки на эти маленькие блоки стоят. Тока в первом случае из него все проигрывается, а во втором случае просто пролетаем мимо на команду ожидания конца регионального блока.

Типовой вид блока, генерируемого у нас из плейлста ТНТ - (реально взят из расписания на сегодня

)

wait time 9:51:37.16 [0.00] active Начало рекламного блока и лого выкл
logoOff
titlingOff
video1 0:00:01.00 [0.10]

wait time 9:52:49.16 [0.00] active Начало блока ТКВ - анонсов

wait time 9:54:19.16 [0.00] active Конец блока ТКВ - анонсов
video1 0:00:01.00 [0.10]

wait time 9:54:25.16 [0.00] active Конец рекламного блока и Лого вкл
logoOn
titlingOn
video1 0:00:01.00 [0.10]

Отправлю софтлабовцам на страницу.
Интересующимся прямо счас - мыло yarri (((вовсенесобака))) murom точка net.

НоваяРеальность

Мы немного по другому обрабатываем файл. Ориентируемся не на цвета блоков, а текст передач.
Вот текст макроса:

Код: Выделить всё

Sub Плейлист&#40;&#41;
    
    Set fs = CreateObject&#40;"Scripting.FileSystemObject"&#41;
    Set a = fs.CreateTextFile&#40;"R&#58;\Playlist\logo.air", True&#41;
    
    Range&#40;"B1"&#41;.Select
    z1 = InputBox&#40;"Введите групповую задержку в сек.", "Ввод задержки команд плейлиста", 2.2&#41;
    n = 1
    Flag = 0
    ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
    x = ActiveCell.Value
    'MsgBox x
    Text = "wait follow " + x
    a.WriteLine &#40;Text&#41;
    ActiveCell.Offset&#40;1, 1&#41;.Range&#40;"A1"&#41;.Select
    Reklama = 0
    
Do
    Okno = ""
    ActiveCell.Offset&#40;1, 0&#41;.Range&#40;"A1"&#41;.Select
    C = ActiveCell.Value
    dop = 0
    'MsgBox C
    If &#40;C Like "НАЧАЛО СЕТЕВОЙ РЕКЛАМЫ*"&#41; Or &#40;C Like "*НАЧ. СЕТ*"&#41; Then
        If Flag = 1 Then
            Flag = 0
            Okno = " Конец нашей рекламы"
            dop = 0.5
        End If
        Reklama = 1
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1 + dop&#41; * 100&#41;&#41; + " &#91;1.00&#93; active " + Okno + " Начало сетевой рекламы"
        'MsgBox Text
        a.WriteLine &#40;Text&#41;
        a.WriteLine &#40;"logoOff"&#41;
        a.WriteLine &#40;"titlingOff"&#41;
        a.WriteLine &#40;"video1 0&#58;00&#58;00.50 &#91;0.10&#93;"&#41;
        ActiveCell.Offset&#40;0, 1&#41;.Range&#40;"A1"&#41;.Select
    ElseIf C Like "*ОКОНЧАНИЕ РЕКЛАМЫ*" Then
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1&#41; * 100&#41;&#41; + " &#91;1.00&#93; active Окончание сетевой рекламы"
        'MsgBox Text
        a.WriteLine &#40;Text&#41;
        a.WriteLine &#40;"logoOn"&#41;
        a.WriteLine &#40;"titlingOn"&#41;
        a.WriteLine &#40;"video1 0&#58;00&#58;00.50 &#91;0.10&#93;"&#41;
        ActiveCell.Offset&#40;0, 1&#41;.Range&#40;"A1"&#41;.Select
        Reklama = 0
    ElseIf C Like "*ОКОН. РЕКЛАМЫ*" Then
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1&#41; * 100&#41;&#41; + " &#91;1.00&#93; active Окончание сетевой рекламы"
        'MsgBox Text
        a.WriteLine &#40;Text&#41;
        a.WriteLine &#40;"logoOn"&#41;
        a.WriteLine &#40;"titlingOn"&#41;
        a.WriteLine &#40;"video1 0&#58;00&#58;00.50 &#91;0.10&#93;"&#41;
        ActiveCell.Offset&#40;0, 1&#41;.Range&#40;"A1"&#41;.Select
        Reklama = 0
    ElseIf &#40;C Like "*НАЧ.РЕГ.ОКНА*"&#41; Or &#40;C Like "*ОКОН. РЕГ. ВРЕМЕНИ*"&#41; Then
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1&#41; * 100&#41;&#41; + " &#91;1.00&#93; active " + C
        a.WriteLine &#40;Text&#41;
        a.WriteLine &#40;"logoOn"&#41;
        a.WriteLine &#40;"titlingOn"&#41;
        ActiveCell.Offset&#40;0, 2&#41;.Range&#40;"A1"&#41;.Select
        Text = "video1 " + TextTime&#40;str&#40;ActiveCell&#41;&#41; + " &#91;0.10&#93;"
        a.WriteLine &#40;Text&#41;
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
    ElseIf &#40;C Like "*Через 2 минуты*"&#41; Or &#40;C Like "*РЕГ.ОКНА*"&#41; Or &#40;C Like "*РЕГ. ОКНА*"&#41; And Not &#40;C Like "*БЕЗРАЗМЕРНАЯ*"&#41; Then
        Reklama = 0
        If Flag = 0 Then
            Flag = 1
            Okno = str&#40;n&#41; + " РЕГ.ОКНО"
            komanda = "video1 0&#58;00&#58;00.50 &#91;0.10&#93;"
            'komanda = "pause 0&#58;00&#58;00.10"
            dop = -0.2
            n = n + 1
        Else
            Flag = 0
            Okno = " Конец нашей рекламы"
            dop = 1#
            komanda = "video1 0&#58;00&#58;00.50 &#91;0.10&#93;"
        End If
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1 + dop&#41; * 100&#41;&#41; + " &#91;1.00&#93; active " + Okno
        'MsgBox Text
        a.WriteLine &#40;Text&#41;
        a.WriteLine &#40;"logoOn"&#41;
        a.WriteLine &#40;"titlingOn"&#41;
        a.WriteLine &#40;komanda&#41;
        ActiveCell.Offset&#40;0, 1&#41;.Range&#40;"A1"&#41;.Select
    ElseIf &#40;Reklama + Flag = 0&#41; Then
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
        Text = "wait time " + TextTime&#40;str&#40;ActiveCell + &#40;z1&#41; * 100&#41;&#41; + " &#91;1.00&#93; active " + C
        a.WriteLine &#40;Text&#41;
        ActiveCell.Offset&#40;0, 2&#41;.Range&#40;"A1"&#41;.Select
        Text = "video1 " + TextTime&#40;str&#40;ActiveCell&#41;&#41; + " &#91;0.10&#93;"
        a.WriteLine &#40;Text&#41;
        ActiveCell.Offset&#40;0, -1&#41;.Range&#40;"A1"&#41;.Select
    End If
Loop Until C = "ГЦП"
a.Close
Range&#40;"A1"&#41;.Select
End Sub
Function TextTime&#40;ByVal T As String&#41;
    T = Trim&#40;T&#41;
    If Len&#40;T&#41; < 8 Then D = String&#40;8 - Len&#40;T&#41;, "0"&#41; Else D = ""
    T = D + T
    Text1 = Right&#40;T, 2&#41;
    T = Mid&#40;T, 1, Len&#40;T&#41; - 2&#41;
    Text2 = Right&#40;T, 2&#41;
    T = Mid&#40;T, 1, Len&#40;T&#41; - 2&#41;
    Text3 = Right&#40;T, 2&#41;
    T = Mid&#40;T, 1, Len&#40;T&#41; - 2&#41;
    Text4 = Right&#40;T, 2&#41;
    If Text4 = "" Then Text4 = "0"
    TextTime = Text4 + "&#58;" + Text3 + "&#58;" + Text2 + "." + Text1
    'MsgBox TextTime
End Function

В начале есть параметр "групповая задержка". Смысл его в разнице времени в плей-листе на ТНТ и реального времени выхода. Скорее всего эта задержка образуется суммарно в спутниковом тракте прохождения сигнала и тракте обработки сигнала на эфирной машинке. В макросе она по умолчанию установлена 2.2 и подбирается экспериментально, чтобы сократить ляпухи во времени при врезке своих рекламных блоков. (Кстати недавно до установки новой версии ФорвардТА и до переустановки системы значение было у нас 3.2 Не знаю вчем тут дело, либо переустановка системы повлияла, либо в новой версии Форварда была увеличена скорость обработки сигнала).
Ещё там жестко прописан путь и имя создаваемого файла:
Set a = fs.CreateTextFile("R:\Playlist\logo.air", True)
Поскольку плейлисты создаются на разных машинах, а не на эфирной, мы подключаем диск на эфирной машинке, где хранится плейлист, как R: и тогда нет проблем с выполнением макроса на разных машинах.
Храним макрос в файле personal.xls что упрощает установку на любую машину (простой заменой стандартного файла Office). Поэтому при открытии любого файла *.xls макрос доступен. Назначаем ему любую комбинацию клавиш для запуска и вперед.
Что делает: Обрабатывает каждую строку исходного файла с ТНТ и в текстовый файле записывает её аналог в формате ОнЭйра. Группирует все ролики сетевой рекламы в один блок с выключением титров и логотипа:
video1 0:00:00.50 [0.10]
wait time 06:10:03.20 [1.00] active Начало сетевой рекламы
logoOff
titlingOff

Группирует все ролики региональной рекламы и нумерует их для вставки своих роликов:
video1 0:00:00.50 [0.10]
wait time 06:11:39.00 [1.00] active 1 РЕГ.ОКНО
logoOn
titlingOn

Окончание выполнения макроса: строка ГЦП (поэтому если будете обрабатывать не целиком файл, а часть, например когда приходят изменения, то последней строкой ставьте строку ГЦП)

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

Даниленко Сергей

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

НоваяРеальность

Пожалуйста, размещайте. Или скажите, что нам для этого надо сделать.

Даниленко Сергей

...Или скажите, что нам для этого надо сделать.

От вас нам нужно:
1) Автор, компания
2) Название разработки
3) Описание разработки
4) Контакты для связи
5) Приветствуется скриншоты, документация...
Информацию присылайте на forward@sl.iae.nsk.su
Разместим информацию на сайте мы сами.

ALEXS118 · Сообщение **ALEXS118** » 17 мар 2008 09:05

НУ собственно с плейлистами разобрались , А как обстоят дела с вводом времени? измените ?