Importação Vegas EDL em FCP -- ?

Importações sistema.Windows.Formas

Importações sistema

Importações Sony.vegas

Importações sistema.IO

Importações sistema.Array



Público módulo mainmodule

Sub Main

        Const filetag como string = "_bhrt.EDL "mudança original EDL nomeficheiro para indicar sucesso script operação

        Dim openfilediaLog1 como novos openfilediaLog ()

        Dim infile como string

        Dim OUTFILE como string



        AbrirfilediaLog1.Initialdirectory = "c:\ "

        AbrirfilediaLog1.Filtro = "EDL ficheiros (*.EDL)|*.EDL "

        AbrirfilediaLog1.Filterindex = 2

        AbrirfilediaLog1.Restoredirectory = true



        "messagebox.Show ( "Olá mundo")

        «openfilediaLog1.ShowdiaLog ()

        Se openfilediaLog1.ShowdiaLog () = diaLogresult.Ok

            Infile = openfilediaLog1.Filename

            Se não for (infile é nada), então

                "Inserir código para ler o fluxo aqui.

                OUTFILE = infile.Remove (infile.Comprimento - 4) + filetag

                Dim arquivos como fileclass = new fileclass (infile, OUTFILE, "")

                Arquivos.Pulllines ()

                Arquivos.Pullclips ()

                Arquivos.CloseArquivos ()

                Meu.Computador.Filesystem.Deletefile (infile)

            End if

        Diferente

            Aplicativo.Exit ()

        End if









End Sub







Public class fileclass



        Const edl_identifier como string = "* Nome do clip:" 'Não alterar esta constante

        Const edl_identifiercorrection como string = "" 'Não alterar esta constante

        Const edl_Arquivosextension como string = ".Mov " 'alterar esta constante para os ficheiros de vídeo extensão (.Avi,...)

        Const string = edl_reelold como "desconhecido" não mudar essa constante

        Const edl_reelprefix como string = "fc" prefixo para nomes no carretel EDL lista (você pode alterar essa constante que quiser)



        Privado f1stream como Arquivostream 'ficheiro: Originalni EDL

        Privado como f1reader StreamReader ' 

        Privado f1name como string

        Privado f2stream como Arquivostream 'ficheiro: Novi EDL

        Privado como f2reader StreamWriter '        

        Privado f2name como string

        Privado f3stream como Arquivostream 'ficheiro: Log 

        Privado como f3reader StreamWriter '        

        Privado f3name como string



        Privado lineslistarr como string ()

        Privado lineslist_tagarr como string ()

        Privado como linesindex inteiro = 0

        Privado linesend como boolean = false

        Privado clipstmparr como string ()

        Privado clipslistarr como string ()



        Privado linesedlarr como string ()









        Public Sub New (ByVal p1filename como string, ByVal p2filename como string, ByVal p3filename como corda)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            Tentar

                If (p1filename não é nada) e (p1filename <> "") Então

                    F1stream = new Arquivostream (f1name, Filemode.Abrir, Fileaccess.Leia)

                    F1reader = new StreamReader (f1stream)

                End if



                If (p2filename não é nada) e (p2filename <> "") Então

                    F2stream = new Arquivostream (f2name, Filemode.Abrirorcreate, Fileaccess.Escrever)

                    F2reader = new StreamWriter (f2stream)

                End if



                If (p3filename não é nada) e (p3filename <> "") Então

                    F3stream = new Arquivostream (f3name, Filemode.Abrirorcreate, Fileaccess.Escrever)

                    F3reader = new StreamWriter (f3stream)

                End if

            Pegar  EX  como excepção

                MsgBox ( "Arquivo não existe", Msgboxstyle.Crítica, " Sonyvegas script ")

            End Tentar







        End Sub



        Public Sub closeArquivos ()

            F1reader.Close ()

            F1stream.Close ()

            F2reader.Close ()

            F2stream.Close ()

            «f3reader.Close ()

            «f3stream.Close ()

        End Sub



        Public Sub pulllines ()

            Dim como índice inteiro = 0

            ReDim preservar lineslistarr (2000)



            Fazer até f1reader.Endofstream

                Lineslistarr (índice) = f1reader.Readline ()

                índice = índice + 1

            Loop



            ReDim preservar lineslistarr (index - 1)

            ReDim preservar lineslist_tagarr (index - 1)

            ReDim preservar linesedlarr (index - 1)

        End Sub



        Public Sub pullclips ()

            Dim I como inteiro

            Dim j como integer = 0

            Dim spom como string = ""





            ReDim preservar clipslistarr (0)

            ReDim clipstmparr (lineslistarr.Comprimento - 1)



            Para i = 0 a lineslistarr.Comprimento - 1

                Se lineslistarr (I).Comprimento  17, então

                    Spom = lineslistarr (I).Substring (0, 17)

                End if



                Lineslist_tagarr (I) = ""



                Se spom = edl_identifier então

                    Clipstmparr (j) = lineslistarr (I).Substring (18, Lineslistarr (I).Comprimento - 18)

                    Lineslist_tagarr (I) = clipstmparr (j)

                    J = j + 1

                End if

            Próximo



            ReDim preservar clipstmparr (j - 1)

            Array.Sort (clipstmparr)



            ReDim preservar clipslistarr (j - 1)

            J = 0

            Clipslistarr (0) = clipstmparr (0)



            Para i = 0 a clipstmparr.Comprimento - 1

                Se clipslistarr (j) <> Clipstmparr (I), em seguida,

                    J = j + 1

                    Clipslistarr (j) = clipstmparr (I)

                End if

            Próximo

            ReDim preservar clipslistarr (j)



            Createlines_edl ()

            Para i = 0 a linesedlarr.Comprimento - 1

                Insline_edl (linesedlarr (I))

            Próximo



        End Sub



        Public Sub createlines_edl ()

            Dim I como inteiro



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            Para i = 2 a lineslistarr.Comprimento - 2 passo 2

                Linesedlarr (I) = lineslistarr (I)

                Linesedlarr (I) = lineslistarr (I).Replace (edl_reelold, Edl_reelprefix + findreel (I + 1))

            Próximo

            Para i = 3 a lineslistarr.Comprimento - 1 etapa 2

                Linesedlarr (I) = edl_identifier + edl_identifiercorrection + lineslist_tagarr (I) + edl_Arquivosextension



            Próximo



        End Sub



        Privado função findreel (ByVal index As Integer) As String

            Dim I como inteiro



            Para i = 0 a clipslistarr.Comprimento - 1

                Se lineslist_tagarr (índice) = clipslistarr (I), em seguida,

                    Return (i + 1).ToString

                End if

            Próximo

            Return ""

        End function





        Public Sub insline_edl (ByVal linha como corda)

            Dim txtline como string



            Txtline = linha

            F2reader.WriteLine (txtline)

        End Sub

        Public Sub insline_comment (ByVal comentário como corda)

            Dim txtline como string



            = txtline comentário

            F3reader.WriteLine (txtline)

        End Sub



        Public Sub resetindex ()

            Linesindex = 0

        End Sub





        Public ReadOnly Property productslist () As String ()

            Obter

                Retorno lineslistarr

            Final obter



        End Property



        Public ReadOnly Property productslistindex () As Integer

            Obter

                Retorno linesindex

            Final obter



        End Property



        Public ReadOnly Property productslistend () como booleanas

            Obter

                Retorno linesend

            Final obter



        End Property

Fim classe



  

End Module