ייבוא Vegas edl לתוך FCP -- ?

יבוא מערכת.Windows.טפסים

יבוא מערכת

יבוא Sony.Vegas

יבוא מערכת.IO

יבוא מערכת.מערך



הציבור מודול mainmodule

תת הראשי

        Const filetag כמו מחרוזת = "_bhrt.Edl "שינוי שם הקובץ המקורי edl לציין סקריפט פעולה מוצלח

        כהוי openfilediaיומן1 חדש openfilediaיומן ()

        כהוי infile כמו מחרוזת

        כהוי outfile כמו מחרוזת



        לפתוחfilediaיומן1.Initialdirectory = "C:\ "

        לפתוחfilediaיומן1.מסנן = "edl הקבצים (*.Edl)|*.Edl "

        לפתוחfilediaיומן1.Filterindex = 2

        לפתוחfilediaיומן1.Restoredirectory = נכון



        'messagebox.הצג ( "שלום העולם")

        'openfilediaיומן1.Showdiaיומן ()

        אם openfilediaיומן1.Showdiaיומן () = diaיומןresult.אז בסדר

            Infile = openfilediaיומן1.שם הקובץ

            אם לא (infile שום דבר) לאחר מכן

                'להכניס קוד לקרוא הזרם כאן.

                Outfile = infile.הסר (infile.אורך - 4) + filetag

                כהוי קבצים כמו fileclass = חדש fileclass (infile, Outfile, "")

                קבצים.Pulllines ()

                קבצים.Pullclips ()

                קבצים.Closeקבצים ()

                שלי.מחשב.FILESYSTEM.Deletefile (infile)

            End If

        אחר

            יישום.יציאה ()

        End If









End Sub







הציבור מחלקה fileclass



        Const edl_identifier כמו מחרוזת = "* מאת קליפ שם:" 'אל תשנה את זה קבוע

        Const edl_identifiercorrection כמו מחרוזת = "" 'אל תשנה את זה קבוע

        Const edl_קבציםextension כמו מחרוזת = ".Mov " 'זה קבוע כדי לשנות את סיומת קבצי וידאו (.אבי,...)

        Const edl_reelold כמו מחרוזת = "לא ידוע" 'אל תשנה את זה קבוע

        Const edl_reelprefix כמו מחרוזת = "fc" 'קידומת ל אשוה רשימת שמות edl (אתה יכול לשנות זאת כרצונך קבוע)



        פרטי f1stream כפי קבציםtream 'קובץ: Originalni edl

        פרטי f1reader כפי streamreader ' 

        פרטי f1name כמו מחרוזת

        פרטי f2stream כפי קבציםtream 'קובץ: Novi edl

        פרטי f2reader כפי streamwriter '        

        פרטי f2name כמו מחרוזת

        פרטי f3stream כפי קבציםtream 'קובץ: יומן 

        פרטי f3reader כפי streamwriter '        

        פרטי f3name כמו מחרוזת



        פרטי lineslistarr כמו מחרוזת ()

        פרטי lineslist_tagarr כמו מחרוזת ()

        פרטי linesindex כמו שלם = 0

        פרטי linesend כפי בוליאני = FALSE

        פרטי clipstmparr כמו מחרוזת ()

        פרטי clipslistarr כמו מחרוזת ()



        פרטי linesedlarr כמו מחרוזת ()









        הציבור תת חדשים (byval p1filename כמו מחרוזת, Byval p2filename כמו מחרוזת, Byval p3filename כמו מחרוזת)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            לנסות

                אם (p1filename isnot כלום) ו (p1filename <> "") אז

                    F1stream = חדש קבציםtream (f1name, Filemode.לפתוח, Fileaccess.לקרוא)

                    F1reader = חדש 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 Sub



        הציבור תת closeקבצים ()

            F1reader.סגור ()

            F1stream.סגור ()

            F2reader.סגור ()

            F2stream.סגור ()

            'f3reader.סגור ()

            'f3stream.סגור ()

        End Sub



        הציבור תת pulllines ()

            כהוי לאינדקס כמו שלם = 0

            Redim לשמר lineslistarr (2000)



            לעשות עד f1reader.Endofstream

                Lineslistarr (אינדקס) = f1reader.Readline ()

                אינדקס = מדד + 1

            לולאה



            Redim לשמר lineslistarr (מדד - 1)

            Redim לשמר lineslist_tagarr (מדד - 1)

            Redim לשמר linesedlarr (מדד - 1)

        End Sub



        הציבור תת pullclips ()

            כהוי אני כמו מספר שלם

            כהוי J כ שלם = 0

            כהוי spom כמו מחרוזת = ""





            Redim לשמר clipslistarr (0)

            Redim clipstmparr (lineslistarr.אורך - 1)



            עבור i = 0 ל lineslistarr.אורך - 1

                אם lineslistarr (אני).אורך  17 אז

                    Spom = lineslistarr (אני).Substring (0, 17)

                End If



                Lineslist_tagarr (אני) = ""



                אם spom = אז edl_identifier

                    Clipstmparr (J) = lineslistarr (אני).Substring (18, Lineslistarr (אני).אורך - 18)

                    Lineslist_tagarr (אני) = clipstmparr (J)

                    J = J + 1

                End If

            הבא



            Redim לשמר clipstmparr (j - 1)

            מערך.מיין (clipstmparr)



            Redim לשמר clipslistarr (j - 1)

            J = 0

            Clipslistarr (0) = clipstmparr (0)



            עבור i = 0 ל clipstmparr.אורך - 1

                אם clipslistarr (J) <> Clipstmparr (אני) אז

                    J = J + 1

                    Clipslistarr (J) = clipstmparr (אני)

                End If

            הבא

            Redim לשמר clipslistarr (J)



            Createlines_edl ()

            עבור i = 0 ל linesedlarr.אורך - 1

                Insline_edl (linesedlarr (אני))

            הבא



        End Sub



        הציבור תת createlines_edl ()

            כהוי אני כמו מספר שלם



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            עבור i = 2 ל lineslistarr.אורך - 2 שלב 2

                Linesedlarr (אני) = lineslistarr (אני)

                Linesedlarr (אני) = lineslistarr (אני).להחליף (edl_reelold, Edl_reelprefix + findreel (I + 1))

            הבא

            עבור i = 3 כדי lineslistarr.אורך - 1 שלב 2

                Linesedlarr (אני) = edl_identifier + edl_identifiercorrection + lineslist_tagarr (אני) + edl_קבציםextension



            הבא



        End Sub



        פרטי פונקציה findreel (כמו מדד byval שלם) כמו מחרוזת

            כהוי אני כמו מספר שלם



            עבור i = 0 ל clipslistarr.אורך - 1

                אם lineslist_tagarr (אינדקס) = clipslistarr (אני) אז

                    חזרה (אני + 1).Tostring

                End If

            הבא

            חזרה ""

        סוף פונקציה





        הציבור תת insline_edl (כמו קו byval מחרוזת)

            כהוי txtline כמו מחרוזת



            Txtline = קו

            F2reader.Writeline (txtline)

        End Sub

        תת insline_comment הציבור (כפי byval התגובה מחרוזת)

            כהוי txtline כמו מחרוזת



            Txtline = תגובה

            F3reader.Writeline (txtline)

        End Sub



        הציבור תת resetindex ()

            Linesindex = 0

        End Sub





        הציבור לקריאה נכס productslist () כמו מחרוזת ()

            להשיג

                חזור lineslistarr

            סוף לקבל



        סוף נכס



        הציבור לקריאה נכס productslistindex () כמו שלם

            להשיג

                חזור linesindex

            סוף לקבל



        סוף נכס



        הציבור לקריאה נכס productslistend () כפי בוליאני

            להשיג

                חזור linesend

            סוף לקבל



        סוף נכס

סוף השיעור



  

סוף מודול