import Vegas edl into FCP - ?

I realize there was a post where somebody supposedly did this successfully by going from vegas to excel to fcp - unfortunately, there were no details mentioned, which, of course, are what one needs to know to do something like this.

I exported a test .edl from vegas, and tried importing it into fcp. when i click on the .edl, fcp crashes. just disappears into the abyss of my macbook. um, hello? i have two problems - the first is the edl itself.

here is what i got from vegas:

TITLE: a futur_Didier_mac test

FCM: NON-DROP FRAME

001 UNKNOWN V C 00:10:32,17 00:11:24,23 00:00:00,00 00:00:52,06

* FROM CLIP NAME: t16 - interview didier

002 UNKNOWN V C 00:11:27,00 00:12:10,14 00:00:52,06 00:01:35,20

* FROM CLIP NAME: t16 - interview didier

003 UNKNOWN AA C 00:10:32,17 00:11:25,14 00:00:00,00 00:00:52,22

* FROM CLIP NAME: t16 - interview didier

004 UNKNOWN AA C 00:11:25,14 00:11:25,14 00:00:52,22 00:00:52,22

004 UNKNOWN AA D 013 00:00:04,19 00:00:09,16 00:00:53,10 00:00:58,07

* FROM CLIP NAME: t16 - interview didier

* TO CLIP NAME: t22 - susanne texte 002 - 000

005 UNKNOWN AA C 00:00:09,16 00:00:09,16 00:00:58,07 00:00:58,07

005 UNKNOWN AA D 002 00:11:34,10 00:12:02,11 00:00:59,16 00:01:27,17

* FROM CLIP NAME: t22 - susanne texte 002 - 000

* TO CLIP NAME: t16 - interview didier

006 UNKNOWN AA C 00:12:02,11 00:12:02,11 00:01:27,17 00:01:27,17

006 UNKNOWN AA D 014 00:12:04,12 00:12:10,14 00:01:29,18 00:01:35,20

* FROM CLIP NAME: t16 - interview didier

* TO CLIP NAME: t16 - interview didier

007 UNKNOWN AA C 00:12:11,00 00:12:11,00 00:01:35,08 00:01:35,08

* FROM CLIP NAME: t16 - interview didier


I have no idea if this works with FCP or if not, what i have to do to it to make it recognizable.

second, in FCP, in order to import an edl, i choose the "reconnect" option and i have to choose a setting - i'm assuming i choose the HDV 720p 25 since the footage was shot on a JVC hdv 110, since that's what i would choose if i was capturing media from the camera.

Any ideas how i get this to work?

and yes, the project was pretty much all edited in vegas - the problem is the director works with fcp and wants to now take over editing the project and basically have control over it from the current editor. thus all the hassle.

I had to solve the same problem for my company. The problem is in the EDL file generated by Vegas, which does not fit FCP EDL file expected.
So I developed vb script to correct the EDL file generated by Vegas to fit expected FCP EDL format.
First, export edl as you did, then start this script to make necessary corrections (Tools->Scripting->Run Script).

Save this script text to text file, which must have an .vb extension:

---------------------------------------------Script Start----------------------------------------------

Imports System.Windows.Forms

Imports System

Imports Sony.Vegas

Imports System.IO

Imports System.Array



Public Module MainModule

Sub Main

        Const fileTag As String = "_BHRT.EDL"           'Change original EDL filename to indicate sucessfull script operation

        Dim openFileDialog1 As New OpenFileDialog()

        Dim inFile As String

        Dim outFile As String



        openFileDialog1.InitialDirectory = "c:"

        openFileDialog1.Filter = "edl files (*.edl)|*.edl"

        openFileDialog1.FilterIndex = 2

        openFileDialog1.RestoreDirectory = True



        'MessageBox.Show("hello world")

        'openFileDialog1.ShowDialog()

        If openFileDialog1.ShowDialog() = DialogResult.OK Then

            inFile = openFileDialog1.FileName

            If Not (inFile Is Nothing) Then

                ' Insert code to read the stream here.

                outFile = inFile.Remove(inFile.Length - 4) + fileTag

                Dim files As FileClass = New FileClass(inFile, outFile, "")

                files.pullLines()

                files.pullClips()

                files.closeFiles()

                My.Computer.FileSystem.DeleteFile(inFile)

            End If

        Else

            Application.Exit()

        End If









End Sub







Public Class FileClass



        Const EDL_Identifier As String = "* FROM CLIP NAME:"    'Do not change this constant

        Const EDL_IdentifierCorrection As String = "  "         'Do not change this constant

        Const EDL_FilesExtension As String = ".MOV"             'Change this constant to your video files extension (.avi,...)

        Const EDL_ReelOld As String = "UNKNOWN"                 'Do not change this constant

        Const EDL_ReelPrefix As String = "FC"                   'Prefix to reel names in EDL list (You can change this constant as you wish)



        Private f1Stream As FileStream      ' file: originalni EDL

        Private f1Reader As StreamReader    ' 

        Private f1Name As String

        Private f2Stream As FileStream      ' file: novi EDL

        Private f2Reader As StreamWriter    '        

        Private f2Name As String

        Private f3Stream As FileStream      ' file: log 

        Private f3Reader As StreamWriter    '        

        Private f3Name As String



        Private linesListArr As String()

        Private linesList_TagArr As String()

        Private linesIndex As Integer = 0

        Private linesEnd As Boolean = False

        Private clipsTmpArr As String()

        Private clipsListArr As String()



        Private linesEDLArr As String()









        Public Sub New(ByVal p1FileName As String, ByVal p2FileName As String, ByVal p3FileName As String)

            f1Name = p1FileName

            f2Name = p2FileName

            f3Name = p3FileName



            Try

                If (p1FileName IsNot Nothing) And (p1FileName <> "") Then

                    f1Stream = New FileStream(f1Name, FileMode.Open, FileAccess.Read)

                    f1Reader = New StreamReader(f1Stream)

                End If



                If (p2FileName IsNot Nothing) And (p2FileName <> "") Then

                    f2Stream = New FileStream(f2Name, FileMode.OpenOrCreate, FileAccess.Write)

                    f2Reader = New StreamWriter(f2Stream)

                End If



                If (p3FileName IsNot Nothing) And (p3FileName <> "") Then

                    f3Stream = New FileStream(f3Name, FileMode.OpenOrCreate, FileAccess.Write)

                    f3Reader = New StreamWriter(f3Stream)

                End If

            Catch ex As Exception

                MsgBox("File does not exist", MsgBoxStyle.Critical, "Sony Vegas Script")

            End Try







        End Sub



        Public Sub closeFiles()

            f1Reader.Close()

            f1Stream.Close()

            f2Reader.Close()

            f2Stream.Close()

            'f3Reader.Close()

            'f3Stream.Close()

        End Sub



        Public Sub pullLines()

            Dim index As Integer = 0

            ReDim Preserve linesListArr(2000)



            Do Until f1Reader.EndOfStream

                linesListArr(index) = f1Reader.ReadLine()

                index = index + 1

            Loop



            ReDim Preserve linesListArr(index - 1)

            ReDim Preserve linesList_TagArr(index - 1)

            ReDim Preserve linesEDLArr(index - 1)

        End Sub



        Public Sub pullClips()

            Dim i As Integer

            Dim j As Integer = 0

            Dim sPom As String = ""





            ReDim Preserve clipsListArr(0)

            ReDim clipsTmpArr(linesListArr.Length - 1)



            For i = 0 To linesListArr.Length - 1

                If linesListArr(i).Length > 17 Then

                    sPom = linesListArr(i).Substring(0, 17)

                End If



                linesList_TagArr(i) = ""



                If sPom = EDL_Identifier Then

                    clipsTmpArr(j) = linesListArr(i).Substring(18, linesListArr(i).Length - 18)

                    linesList_TagArr(i) = clipsTmpArr(j)

                    j = j + 1

                End If

            Next



            ReDim Preserve clipsTmpArr(j - 1)

            Array.Sort(clipsTmpArr)



            ReDim Preserve clipsListArr(j - 1)

            j = 0

            clipsListArr(0) = clipsTmpArr(0)



            For i = 0 To clipsTmpArr.Length - 1

                If clipsListArr(j) <> clipsTmpArr(i) Then

                    j = j + 1

                    clipsListArr(j) = clipsTmpArr(i)

                End If

            Next

            ReDim Preserve clipsListArr(j)



            createLines_EDL()

            For i = 0 To linesEDLArr.Length - 1

                insLine_EDL(linesEDLArr(i))

            Next



        End Sub



        Public Sub createLines_EDL()

            Dim i As Integer



            linesEDLArr(0) = linesListArr(0)

            linesEDLArr(1) = linesListArr(1)



            For i = 2 To linesListArr.Length - 2 Step 2

                linesEDLArr(i) = linesListArr(i)

                linesEDLArr(i) = linesListArr(i).Replace(EDL_ReelOld, EDL_ReelPrefix + findReel(i + 1))

            Next

            For i = 3 To linesListArr.Length - 1 Step 2

                linesEDLArr(i) = EDL_Identifier + EDL_IdentifierCorrection + linesList_TagArr(i) + EDL_FilesExtension



            Next



        End Sub



        Private Function findReel(ByVal index As Integer) As String

            Dim i As Integer



            For i = 0 To clipsListArr.Length - 1

                If linesList_TagArr(index) = clipsListArr(i) Then

                    Return (i + 1).ToString

                End If

            Next

            Return ""

        End Function





        Public Sub insLine_EDL(ByVal line As String)

            Dim txtLine As String



            txtLine = line

            f2Reader.WriteLine(txtLine)

        End Sub

        Public Sub insLine_comment(ByVal comment As String)

            Dim txtLine As String



            txtLine = comment

            f3Reader.WriteLine(txtLine)

        End Sub



        Public Sub resetIndex()

            linesIndex = 0

        End Sub





        Public ReadOnly Property ProductsList() As String()

            Get

                Return linesListArr

            End Get



        End Property



        Public ReadOnly Property ProductsListIndex() As Integer

            Get

                Return linesIndex

            End Get



        End Property



        Public ReadOnly Property ProductsListEnd() As Boolean

            Get

                Return linesEnd

            End Get



        End Property

End Class



  

End Module

---------------------------------------------Script End------------------------------------------------

hi angela,

You should really have no problems with finding the file through Vegas window.

One of the reasons could be that(in Windows Explorer) Tools->Folder Options->View->Hide Extensions for known files is checked. If it is the case, you cannot see the default extension of txt file.

Go to (Using Windows Explorer):C:Program FilesSonyVegas Pro 8.0Script Menu. In that folder you should see some script files with extension .js and .cs. If you cannot see that extension, it means that you have to make that option unchecked.

Also, try to put the file you created in this folder, you should see it in the Tools->Scripting menu. If Vegas is already open, Run Tools->Scripting->Rescan Script Menu Folder, to make it know about your file.

I hope this will help you.

Hi Andi,
I did not test the code with Vegas ver 9.0, but it should work as well as with older version. I will test the code and let you know about the results.

Hi Elvir, I hope I'm not bothering you to much with this but by chance has there been any luck with the script so far? Is it possible you can email me the script file and instructions on how to use it to my email at: andi.nakasone@gmail.com

I would greatly appreciate your help with getting my vegas project to work as a FCP project this weekend, so much so that I would be more than happy to pay you a little something for your time, thanks again!

-Andi

I have sent email to andi.nakasone@gmail.com with attached tool. Please, check your inbox.
You can reach me at: e.surkovic@ieee.org