импорт Vegas EDL в FCP -- ?

импорт системы.Windows.формы

импорт системы

импорт Sony.Vegas

импорт системы.IO

импорт системы.массив



общественности модуль mainmodule

Sub Main

        Const filetag как строка = "_bhrt.EDL "изменить первоначальную EDL файла указать сценарий успешной операции

        Dim openfilediaВойти1 в качестве нового openfilediaВойти ()

        Dim INFILE как строка

        Dim outfile как строка



        открыватьfilediaВойти1.Initialdirectory = "C:\ "

        открыватьfilediaВойти1.Фильтр = "EDL файлов (*.EDL)|*.EDL "

        открыватьfilediaВойти1.Filterindex = 2

        открыватьfilediaВойти1.Restoredirectory = TRUE



        'MessageBox.Show ( "привет мир")

        'openfilediaВойти1.ShowdiaВойти ()

        если openfilediaВойти1.ShowdiaВойти () = diaВойтиresult.ОК затем

            INFILE = openfilediaВойти1.имя_файла

            если нет (INFILE ничего), то

                'Вставить код прочитать здесь поток.

                Outfile = INFILE.Снимут (INFILE.Длина - 4) + filetag

                Dim файлы fileclass = новый fileclass (INFILE, Outfile, "")

                Файлы.Pulllines ()

                Файлы.Pullclips ()

                Файлы.CloseФайлы ()

                мой.компьютер.файловая система.Deletefile (INFILE)

            End If

        еще

            приложение.выезд ()

        End If









End Sub







Public Class fileclass



        Const edl_identifier как строка = "* из клипа имя:"Не изменяют этой константы

        Const edl_identifiercorrection как строка = "" не изменяют этой константы

        Const edl_Файлыextension как строка = ".мов "изменить эту константу, чтобы ваше видео файлов расширение (.AVI,...)

        Const edl_reelold как строка = "Неизвестный" не изменяют этой константы

        Const edl_reelprefix как строка = "ФК" префикс для катушечная EDL имена в список (Вы можете изменить это постоянный по своему желанию)



        частные f1stream как Файлыtream файл: Originalni EDL

        частные f1reader как StreamReader ' 

        частные f1name как строка

        частные f2stream как Файлыtream файл: Нови EDL

        частные f2reader как streamwriter '        

        частные f2name как строка

        частные f3stream как Файлыtream файл: Войти 

        частные f3reader как streamwriter '        

        частные f3name как строка



        частные lineslistarr как строка ()

        частные lineslist_tagarr как строка ()

        частные linesindex как целое = 0

        частные linesend как булевый = FALSE

        частные clipstmparr как строка ()

        частные clipslistarr как строка ()



        частные linesedlarr как строка ()









        PUBLIC SUB новый (ByVal p1filename как строка, ByVal p2filename как строка, ByVal p3filename как строка)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            пытаться

                если (p1filename isnot ничего) и (p1filename <> ""), То

                    F1stream = новый Файлыtream (f1name, Filemode.открывать, Fileaccess.читать)

                    F1reader = New StreamReader (f1stream)

                End If



                если (p2filename isnot ничего) и (p2filename <> ""), То

                    F2stream = новый Файлыtream (f2name, Filemode.открыватьorcreate, Fileaccess.писать)

                    F2reader = новый streamwriter (f2stream)

                End If



                если (p3filename isnot ничего) и (p3filename <> ""), То

                    F3stream = новый Файлыtream (f3name, Filemode.открыватьorcreate, Fileaccess.писать)

                    F3reader = новый streamwriter (f3stream)

                End If

            ловить  EX  в качестве исключения

                MsgBox ( "Файл не существует", Msgboxstyle.критический, " SonyVegas Скрипт ")

            End пытаться







        End Sub



        PUBLIC SUB closeФайлы ()

            F1reader.CLOSE ()

            F1stream.CLOSE ()

            F2reader.CLOSE ()

            F2stream.CLOSE ()

            'f3reader.CLOSE ()

            'f3stream.CLOSE ()

        End Sub



        PUBLIC SUB pulllines ()

            Dim Index As Integer = 0

            Redim сохранить lineslistarr (2000)



            делать до тех пор, пока f1reader.Endofstream

                Lineslistarr (индекс) = f1reader.ReadLine ()

                Index = Index + 1

            петля



            Redim сохранить lineslistarr (индекс - 1)

            Redim сохранить lineslist_tagarr (индекс - 1)

            Redim сохранить linesedlarr (индекс - 1)

        End Sub



        PUBLIC SUB pullclips ()

            Dim Я как целое

            Dim J As Integer = 0

            Dim spom как строка = ""





            Redim сохранить clipslistarr (0)

            Redim clipstmparr (lineslistarr.длина - 1)



            Я = 0 lineslistarr.длина - 1

                если lineslistarr (I).длина  17 тогда

                    Spom = lineslistarr (I).подстрока (0, 17)

                End If



                Lineslist_tagarr (I) = ""



                если spom = edl_identifier затем

                    Clipstmparr (J) = lineslistarr (I).подстрока (18, Lineslistarr (I).длина - 18)

                    Lineslist_tagarr (I) = clipstmparr (J)

                    J = J + 1

                End If

            следующий



            Redim сохранить clipstmparr (J - 1)

            массив.сортировки (clipstmparr)



            Redim сохранить clipslistarr (J - 1)

            J = 0

            Clipslistarr (0) = clipstmparr (0)



            Я = 0 clipstmparr.длина - 1

                если clipslistarr (J) <> Clipstmparr (I), а затем

                    J = J + 1

                    Clipslistarr (J) = clipstmparr (I)

                End If

            следующий

            Redim сохранить clipslistarr (J)



            Createlines_edl ()

            Я = 0 linesedlarr.длина - 1

                Insline_edl (linesedlarr (I))

            следующий



        End Sub



        PUBLIC SUB createlines_edl ()

            Dim Я как целое



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            Я = 2 до lineslistarr.длина - 2 Шаг 2

                Linesedlarr (I) = lineslistarr (I)

                Linesedlarr (I) = lineslistarr (I).заменить (edl_reelold, Edl_reelprefix + findreel (I + 1))

            следующий

            Я = 3 lineslistarr.длина - 1 Шаг 2

                Linesedlarr (I) = edl_identifier + edl_identifiercorrection + lineslist_tagarr (I) + edl_Файлыextension



            следующий



        End Sub



        частные функции findreel (ByVal Index As Integer) As String

            Dim Я как целое



            Я = 0 clipslistarr.длина - 1

                если lineslist_tagarr (индекс) = clipslistarr (I), а затем

                    возвращение (I + 1).Tostring

                End If

            следующий

            возвращение ""

        End Function





        PUBLIC SUB insline_edl (ByVal строку как строку)

            Dim txtline как строка



            Txtline = строка

            F2reader.Writeline (txtline)

        End Sub

        PUBLIC SUB insline_comment (ByVal комментарий как строка)

            Dim txtline как строка



            Txtline = комментарий

            F3reader.Writeline (txtline)

        End Sub



        PUBLIC SUB resetindex ()

            Linesindex = 0

        End Sub





        общественные чтения собственности productslist () As String ()

            получать

                вернуться lineslistarr

            целью получить



        End Property



        общественные чтения собственности productslistindex () As Integer

            получать

                вернуться linesindex

            целью получить



        End Property



        общественные чтения собственности productslistend (), как булевый

            получать

                вернуться linesend

            целью получить



        End Property

End Class



  

End Module