Importation Vegas edl en FCP -- ?

Les importations du système.Windows.Formes

Les importations du système

Importations Sony.Vegas

Les importations du système.IO

Les importations du système.Array



Module public mainmodule

Sous principal

        Const filetag As String = "_bhrt.Edl "changement d'origine edl d'indiquer le nom de fichier script opération réussie

        Dim openfilediaLog1 que de nouvelles OuvertFileDiaLog ()

        Dim infile comme string

        Dim outfile comme string



        OuvertfilediaLog1.Initialdirectory = "c:\ "

        OuvertfilediaLog1.Filter = "edl de fichiers (*.Edl)|*.Edl "

        OuvertfilediaLog1.Filterindex = 2

        OuvertfilediaLog1.Restoredirectory = true



        'messagebox.Show ( "Bonjour le monde")

        «openfilediaLog1.ShowDiaLog ()

        Si openfilediaLog1.ShowDiaLog () = diaLogresult.Alors ok

            Infile = openfilediaLog1.Filename

            Si elle n'est pas (infile est rien), puis

                'Insérer le code pour lire les flux ici.

                Infile outfile =.Remove (infile.Longueur - 4) + filetag

                Dim fichiers comme fileclass = new fileclass (infile, Outfile, "")

                Fichiers.Pulllines ()

                Fichiers.Pullclips ()

                Fichiers.CloseFichiers ()

                Mon.Ordinateur.De fichiers.DeleteFile (infile)

            Fin si

        Autre

            Application.Exit ()

        Fin si









End sub







Public class fileclass



        Const edl_identifier As String = "* nom du clip:"Ne pas changer cette constante

        Const edl_identifiercorrection As String = "" "ne pas changer cette constante

        Const edl_Fichiersextension As String = ".Mov "modifier cette constante à vos fichiers vidéo extension (.Avi,...)

        Const string = edl_reelold comme "inconnu" ne pas changer cette constante

        Const edl_reelprefix As String = "fc" préfixe Bobine noms edl liste (vous pouvez changer cette constante que vous le souhaitez)



        Privé comme f1stream FileStream fichier: Originalni edl

        Privé comme f1reader StreamReader ' 

        Privé en tant que chaîne f1name

        Privé comme f2stream FileStream fichier: Novi edl

        Privé comme f2reader StreamWriter '        

        Privé en tant que chaîne f2name

        Privé comme f3stream FileStream fichier: Log 

        Privé comme f3reader StreamWriter '        

        Privé en tant que chaîne f3name



        Privé en tant que chaîne lineslistarr ()

        Privé en tant que chaîne lineslist_tagarr ()

        Privé linesindex as integer = 0

        Privé linesend as boolean = false

        Privé en tant que chaîne clipstmparr ()

        Privé en tant que chaîne clipslistarr ()



        Privé en tant que chaîne linesedlarr ()









        Public Sub New (ByVal p1filename en string, ByVal p2filename en string, ByVal p3filename comme chaîne de caractères)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            Essayer

                If (p1filename n'est pas rien) et (p1filename <> "") Then

                    F1stream = new FileStream (f1name, Filemode.Ouvert, Fileaccess.Lire)

                    F1reader = new StreamReader (f1stream)

                Fin si



                If (p2filename n'est pas rien) et (p2filename <> "") Then

                    F2stream = new FileStream (f2name, Filemode.Ouvertorcreate, Fileaccess.écrire)

                    F2reader = new StreamWriter (f2stream)

                Fin si



                If (p3filename n'est pas rien) et (p3filename <> "") Then

                    F3stream = new FileStream (f3name, Filemode.Ouvertorcreate, Fileaccess.écrire)

                    F3reader = new StreamWriter (f3stream)

                Fin si

            Attraper  EX  comme exception

                MsgBox ( "le fichier n'existe pas", Msgboxstyle.Critique, " SonyVegas script ")

            End try







        End sub



        Public sous closeFichiers ()

            F1reader.Fermer ()

            F1stream.Fermer ()

            F2reader.Fermer ()

            F2stream.Fermer ()

            «f3reader.Fermer ()

            «f3stream.Fermer ()

        End sub



        Public sous pulllines ()

            Dim Index As Integer = 0

            Redim préserver lineslistarr (2000)



            Faire jusqu'à f1reader.Endofstream

                Lineslistarr (index) = f1reader.Readline ()

                Index = index + 1

            Boucle



            Redim préserver lineslistarr (index - 1)

            Redim préserver lineslist_tagarr (index - 1)

            Redim préserver linesedlarr (index - 1)

        End sub



        Public sous pullclips ()

            Dim I as integer

            Dim j as integer = 0

            Dim spom As String = ""





            Redim préserver clipslistarr (0)

            Redim clipstmparr (lineslistarr.Length - 1)



            Pour I = 0 à lineslistarr.Length - 1

                Si lineslistarr (I).Longueur  17 alors

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

                Fin si



                Lineslist_tagarr (I) = ""



                Si spom = edl_identifier alors

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

                    Lineslist_tagarr (I) = clipstmparr (j)

                    J = j + 1

                Fin si

            Suivant



            Redim préserver clipstmparr (j - 1)

            Array.Sort (clipstmparr)



            Redim préserver clipslistarr (j - 1)

            J = 0

            Clipslistarr (0) = clipstmparr (0)



            Pour I = 0 à clipstmparr.Length - 1

                Si clipslistarr (j) <> Clipstmparr (I), puis

                    J = j + 1

                    Clipslistarr (j) = clipstmparr (I)

                Fin si

            Suivant

            Redim préserver clipslistarr (j)



            Createlines_edl ()

            Pour I = 0 à linesedlarr.Length - 1

                Insline_edl (linesedlarr (I))

            Suivant



        End sub



        Public sous createlines_edl ()

            Dim I as integer



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            Pour I = 2 à lineslistarr.Longueur - 2 étape 2

                Linesedlarr (I) = lineslistarr (I)

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

            Suivant

            Pour I = 3 à lineslistarr.Length - 1 étape 2

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



            Suivant



        End sub



        Privée findreel (ByVal Index As Integer) As String

            Dim I as integer



            Pour I = 0 à clipslistarr.Length - 1

                Si lineslist_tagarr (index) = clipslistarr (I), puis

                    Return (I + 1).ToString

                Fin si

            Suivant

            Return ""

        End Function





        Public sous insline_edl (ByVal ligne string)

            Dim txtline en string



            Txtline = ligne

            F2reader.WriteLine (txtline)

        End sub

        Public sous insline_comment (ByVal commentaire string)

            Dim txtline en string



            = txtline commentaire

            F3reader.WriteLine (txtline)

        End sub



        Public sous resetindex ()

            Linesindex = 0

        End sub





        Public ReadOnly Property productslist () As String ()

            Obtenir

                Retour lineslistarr

            Fin obtenir



        Fin de propriété



        Public ReadOnly Property productslistindex () as integer

            Obtenir

                Retour linesindex

            Fin obtenir



        Fin de propriété



        Public ReadOnly Property productslistend () as boolean

            Obtenir

                Retour linesend

            Fin obtenir



        Fin de propriété

Fin classe



  

Fin de module