الواردات Vegas الى edl FCP -- ?

نظام الواردات.Windows.أشكال

نظام الواردات

الواردات Sony.Vegas

نظام الواردات.IO

نظام الواردات.مصفوفة



وحدة mainmodule العامة

الفرعي الرئيسي

        كما const filetag سلسلة = "_bhrt.Edl "تغيير اسم الملف الأصلي edl تشير إلى نجاح عملية الكتابة

        يفتحfilediaسجل1 قاتمة جديدة openfilediaسجل ()

        سلسلة قاتمة كما infile

        سلسلة قاتمة كما outfile



        يفتحfilediaسجل1.Initialdirectory = "ج:\ "

        يفتح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 شيء) ثم

                'تضاف مدونة قراءة تيار هنا.

                Infile = outfile.إزالة (infile.الطول -- 4) + filetag

                صورة قاتمة كما fileclass = جديدة fileclass (infile, Outfile, "")

                ملفات.Pulllines ()

                ملفات.Pullclips ()

                ملفات.Closeملفات ()

                ملكي.كمبيوتر.الملفات.Deletefile (infile)

            إذا كانت الغاية

        أيضا

            تطبيق.خروج ()

        إذا كانت الغاية









نهاية الفرعية







الطبقة العامة fileclass



        كما const edl_identifier سلسلة = "مقطع من الاسم *:"لا تغيير هذا ثابت

        كما const edl_identifiercorrection سلسلة = "" لا تغيير هذا ثابت

        كما const edl_ملفاتextension سلسلة = ".وسائل التحقق "هذا التغيير المستمر لملفات الفيديو الخاصة بك التمديد).أفي,...)

        كما const edl_reelold سلسلة = "غير معروفة" لا تغيير هذا ثابت

        كما const edl_reelprefix سلسلة = "التيسير" لالبادئة بكرة أسماء في قائمة edl (تستطيع تغيير هذا ثابت كما يحلو لك)



        كما ملفاتtream الخاصة f1stream 'ملف: Originalni edl

        كما streamreader الخاصة f1reader ' 

        كما f1name سلسلة من القطاع الخاص

        كما ملفاتtream الخاصة f2stream 'ملف: نوفي edl

        كما streamwriter الخاصة f2reader '        

        كما f2name سلسلة من القطاع الخاص

        كما ملفاتtream الخاصة f3stream 'ملف: سجل 

        كما streamwriter الخاصة f3reader '        

        كما f3name سلسلة من القطاع الخاص



        كما lineslistarr سلسلة من القطاع الخاص ()

        كما lineslist_tagarr سلسلة من القطاع الخاص ()

        كما linesindex الخاصة integer = 0

        كما linesend الخاص منطقي = كاذبة

        كما clipstmparr سلسلة من القطاع الخاص ()

        كما clipslistarr سلسلة من القطاع الخاص ()



        كما linesedlarr سلسلة من القطاع الخاص ()









        العامة والفرعية الجديدة (byval كما p1filename سلسلة, كما p2filename سلسلة byval, كما byval p3filename سلسلة)

            F1name = p1filename

            F2name = p2filename

            F3name = p3filename



            يحاول

                إذا كان (p1filename isnot شيئا) و (p1filename <> "") ثم

                    = f1stream جديدة ملفاتtream (f1name, Filemode.يفتح, Fileaccess.قراءة)

                    = f1reader جديدة streamreader (f1stream)

                إذا كانت الغاية



                إذا كان (p2filename isnot شيئا) و (p2filename <> "") ثم

                    = f2stream جديدة ملفاتtream (f2name, Filemode.يفتحorcreate, Fileaccess.الكتابة)

                    = f2reader جديدة streamwriter (f2stream)

                إذا كانت الغاية



                إذا كان (p3filename isnot شيئا) و (p3filename <> "") ثم

                    = f3stream جديدة ملفاتtream (f3name, Filemode.يفتحorcreate, Fileaccess.الكتابة)

                    = f3reader جديدة streamwriter (f3stream)

                إذا كانت الغاية

            يمسك  EX  استثناء

                Msgbox ( "الملف غير موجود", Msgboxstyle.حرجة, " SonyVegas سيناريو ")

            نهاية محاكمة







        نهاية الفرعية



        دون closeملفات العامة ()

            F1reader.وثيقة ()

            F1stream.وثيقة ()

            F2reader.وثيقة ()

            F2stream.وثيقة ()

            'f3reader.وثيقة ()

            'f3stream.وثيقة ()

        نهاية الفرعية



        دون pulllines العامة ()

            مؤشر قاتمة integer = 0

            Redim الحفاظ على lineslistarr (2000)



            حتى لا f1reader.Endofstream

                Lineslistarr (رقم قياسي) = f1reader.Readline ()

                مؤشر مؤشر + 1 =

            حلقة



            Redim الحفاظ على lineslistarr (رقم قياسي -- 1)

            Redim الحفاظ على lineslist_tagarr (رقم قياسي -- 1)

            Redim الحفاظ على linesedlarr (رقم قياسي -- 1)

        نهاية الفرعية



        دون pullclips العامة ()

            قاتمة الأول integer

            ي قاتمة كما integer = 0

            كما قاتمة spom سلسلة = ""





            Redim الحفاظ على clipslistarr (0)

            Redim clipstmparr (lineslistarr.الطول -- 1)



            لأنني = 0 لlineslistarr.الطول -- 1

                إذا lineslistarr (أولا).طول  ثم 17

                    Spom = lineslistarr (أولا).خيط ثانوي (0, 17)

                إذا كانت الغاية



                Lineslist_tagarr (الأول) = ""



                إذا spom = ثم edl_identifier

                    Clipstmparr (ي) = lineslistarr (أولا).خيط ثانوي (18, Lineslistarr (أولا).طول -- 18)

                    Lineslist_tagarr (الأول) = clipstmparr (ي)

                    ي ي + 1 =

                إذا كانت الغاية

            التالي



            Redim الحفاظ على clipstmparr (ي -- 1)

            مصفوفة.النوع (clipstmparr)



            Redim الحفاظ على clipslistarr (ي -- 1)

            ي = 0

            Clipslistarr (0) = clipstmparr (0)



            لأنني = 0 لclipstmparr.الطول -- 1

                إذا clipslistarr (ي) <> Clipstmparr (أولا) ثم

                    ي ي + 1 =

                    Clipslistarr (ي) = clipstmparr (أولا)

                إذا كانت الغاية

            التالي

            Redim الحفاظ على clipslistarr (ي)



            Createlines_edl ()

            لأنني = 0 لlinesedlarr.الطول -- 1

                Insline_edl (linesedlarr (أولا))

            التالي



        نهاية الفرعية



        دون createlines_edl العامة ()

            قاتمة الأول integer



            Linesedlarr (0) = lineslistarr (0)

            Linesedlarr (1) = lineslistarr (1)



            لأنني = 2 لlineslistarr.الطول -- 2 الخطوة 2

                Linesedlarr (الأول) = lineslistarr (أولا)

                Linesedlarr (الأول) = lineslistarr (أولا).استبدال (edl_reelold, Edl_reelprefix + findreel (أولا + 1))

            التالي

            لأنني = 3 لlineslistarr.الطول -- 1 الخطوة 2

                Linesedlarr (أولا) edl_identifiercorrection = edl_identifier + + lineslist_tagarr (أولا) + edl_ملفاتextension



            التالي



        نهاية الفرعية



        مهمة خاصة findreel (byval مؤشر integer) سلسلة

            قاتمة الأول integer



            لأنني = 0 لclipslistarr.الطول -- 1

                إذا lineslist_tagarr (رقم قياسي) = clipslistarr (أولا) ثم

                    عودة (أولا + 1).Tostring

                إذا كانت الغاية

            التالي

            عودة ""

        انهاء مهمة





        دون insline_edl العامة (سلسلة byval خط)

            سلسلة قاتمة كما txtline



            = خط txtline

            F2reader.Writeline (txtline)

        نهاية الفرعية

        دون insline_comment العامة (سلسلة byval التعليق)

            سلسلة قاتمة كما txtline



            = txtline التعليق

            F3reader.Writeline (txtline)

        نهاية الفرعية



        دون resetindex العامة ()

            Linesindex = 0

        نهاية الفرعية





        قراءة productslist الممتلكات العامة () في سلسلة ()

            يحصل

                عودة lineslistarr

            الحصول على نهاية



        نهاية الملكية



        قراءة في الممتلكات العامة productslistindex () integer

            يحصل

                عودة linesindex

            الحصول على نهاية



        نهاية الملكية



        قراءة في الممتلكات العامة productslistend () منطقي

            يحصل

                عودة linesend

            الحصول على نهاية



        نهاية الملكية

نهاية الصف



  

في نهاية الوحدة