Einfuhr Vegas edl in FCP -- ?

Einfuhren System.Windows.Formen

Einfuhren System

Einfuhren Sony.Vegas

Einfuhren System.Io

Einfuhren System.Array



öffentlichen Modul mainmodule

Sub Main

        Const filetag als String = "_bhrt.Edl "ändern edl ursprünglichen Dateinamen, um anzuzeigen, erfolgreiche Skript Betrieb

        Dim openfilediaLog1 als neue openfilediaLog ()

        Dim infile als Zeichenkette

        Dim outfile als Zeichenkette



        öffnenfilediaLog1.Initialdirectory = "C:\ "

        öffnenfilediaLog1.Filter = "EDS-Dateien (*.Edl)|*.Edl "

        öffnenfilediaLog1.Filterindex = 2

        öffnenfilediaLog1.Restoredirectory = true



        "MessageBox.Zeigen ( "hallo Welt")

        "openfilediaLog1.ShowdiaLog ()

        Wenn openfilediaLog1.ShowdiaLog () = diaLogresult.Ok dann

            Infile = openfilediaLog1.Filename

            Wenn nicht (infile ist nichts), dann

                "Einfügen, um den Strom hier.

                Outfile = infile.Entfernen (infile.Länge - 4) + filetag

                Dim-Dateien als fileclass = new fileclass (infile, Outfile, "")

                Dateien.Pulllines ()

                Dateien.Pullclips ()

                Dateien.CloseDateien ()

                Mein.Computer.Dateisystem.DeleteFile (infile)

            Ende, wenn

        Sonst

            Anwendung.Exit ()

        Ende, wenn









End Sub







Public class fileclass



        Const edl_identifier als String = "* Namen von Clip:"" Ändern sich nicht, diese Konstante

        Const edl_identifiercorrection als String = "" "sich nicht ändern, diese Konstante

        Const edl_Dateienextension als String = ".Mov "ändern konstant auf Ihre Video-Dateien die Erweiterung (.Avi,...)

        Const edl_reelold als String = "unbekannt", "ändern sich nicht, diese Konstante

        Const edl_reelprefix als String = "FC"-Präfix, um Rollen-Namen in edl Liste (Sie können diese Konstante, wie Sie möchten)



        Private f1stream als FileStream-Datei: Originalni edl

        Private f1reader als StreamReader " 

        Private f1name als Zeichenkette

        Private f2stream als FileStream-Datei: Novi edl

        Private f2reader als StreamWriter "        

        Private f2name als Zeichenkette

        Private f3stream als FileStream-Datei: Log 

        Private f3reader als StreamWriter "        

        Private f3name als Zeichenkette



        Private lineslistarr als String ()

        Private lineslist_tagarr als String ()

        Private linesindex As Integer = 0

        Private linesend als boolean = false

        Private clipstmparr als String ()

        Private clipslistarr als String ()



        Private linesedlarr als String ()









        Public Sub New (ByVal p1filename als Zeichenkette, ByVal p2filename als Zeichenkette, ByVal p3filename als String)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            Versuchen

                If (p1filename isnot nichts) und (p1filename <> ""), Dann

                    F1stream = new FileStream (f1name, FileMode.öffnen, Fileaccess.Lesen)

                    F1reader = new StreamReader (f1stream)

                Ende, wenn



                If (p2filename isnot nichts) und (p2filename <> ""), Dann

                    F2stream = new FileStream (f2name, FileMode.öffnenorcreate, Fileaccess.Schreiben)

                    F2reader = new StreamWriter (f2stream)

                Ende, wenn



                If (p3filename isnot nichts) und (p3filename <> ""), Dann

                    F3stream = new FileStream (f3name, FileMode.öffnenorcreate, Fileaccess.Schreiben)

                    F3reader = new StreamWriter (f3stream)

                Ende, wenn

            Fangen  EX  als Ausnahme

                MsgBox ( "Datei existiert nicht", Msgboxstyle.Kritische, " SonyVegas Skript ")

            End Versuchen







        End Sub



        Public Sub closeDateien ()

            F1reader.Close ()

            F1stream.Close ()

            F2reader.Close ()

            F2stream.Close ()

            "f3reader.Close ()

            "f3stream.Close ()

        End Sub



        Public Sub pulllines ()

            Dim Index As Integer = 0

            ReDim erhalten lineslistarr (2000)



            Tun, bis f1reader.Endofstream

                Lineslistarr (Index) = f1reader.Readline ()

                Index = Index + 1

            Schleife



            ReDim erhalten lineslistarr (Index - 1)

            ReDim erhalten lineslist_tagarr (Index - 1)

            ReDim erhalten linesedlarr (Index - 1)

        End Sub



        Public Sub pullclips ()

            Dim I As Integer

            Dim j As Integer = 0

            Dim spom als String = ""





            ReDim erhalten clipslistarr (0)

            ReDim clipstmparr (lineslistarr.Länge - 1)



            Für I = 0 bis lineslistarr.Länge - 1

                Wenn lineslistarr (I).Länge  17, dann

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

                Ende, wenn



                Lineslist_tagarr (I) = ""



                Wenn spom = edl_identifier dann

                    Clipstmparr (j) = lineslistarr (I).Substring (18, Lineslistarr (I).Länge - 18)

                    Lineslist_tagarr (I) = clipstmparr (j)

                    J = j + 1

                Ende, wenn

            Nächster



            ReDim erhalten clipstmparr (j - 1)

            Array.Art (clipstmparr)



            ReDim erhalten clipslistarr (j - 1)

            J = 0

            Clipslistarr (0) = clipstmparr (0)



            Für I = 0 bis clipstmparr.Länge - 1

                Wenn clipslistarr (j) <> Clipstmparr (I), dann

                    J = j + 1

                    Clipslistarr (j) = clipstmparr (I)

                Ende, wenn

            Nächster

            ReDim erhalten clipslistarr (j)



            Createlines_edl ()

            Für I = 0 bis linesedlarr.Länge - 1

                Insline_edl (linesedlarr (i))

            Nächster



        End Sub



        Public Sub createlines_edl ()

            Dim I As Integer



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            Für i = 2 zu lineslistarr.Länge - 2 Schritt 2

                Linesedlarr (I) = lineslistarr (I)

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

            Nächster

            Für i = 3 bis lineslistarr.Länge - 1 Schritt 2

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



            Nächster



        End Sub



        Private Funktion findreel (ByVal Index As Integer) As String

            Dim I As Integer



            Für I = 0 bis clipslistarr.Länge - 1

                Wenn lineslist_tagarr (Index) = clipslistarr (I), dann

                    Return (i + 1).ToString

                Ende, wenn

            Nächster

            Return ""

        End Function





        Public Sub insline_edl (ByVal Zeile As String)

            Dim txtline als Zeichenkette



            Txtline = line

            F2reader.WriteLine (txtline)

        End Sub

        Public Sub insline_comment (ByVal Kommentar als String)

            Dim txtline als Zeichenkette



            Txtline = Kommentar

            F3reader.WriteLine (txtline)

        End Sub



        Public Sub resetindex ()

            Linesindex = 0

        End Sub





        Public ReadOnly Property productslist () As String ()

            Bekommen

                Rückkehr lineslistarr

            Ende erhalten



        Ende Eigentum



        Public ReadOnly Property productslistindex () As Integer

            Bekommen

                Rückkehr linesindex

            Ende erhalten



        Ende Eigentum



        Public ReadOnly Property productslistend () As Boolean

            Bekommen

                Rückkehr linesend

            Ende erhalten



        Ende Eigentum

End Class



  

End Module