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