/**

 * You can use this script to export Vegas regions in the .sub format

 * for use in DVDA as subtitles.  This script can aslo export regions

 * as tab separated text.

 *

 * To use this script:

 *

 * 1) Create named Vegas regions.

 * 2) Confirm no overlapped regions.

 * 3) Vegas>tools>scripting>run script>ExportRegionsAsSubtitles.js; save

 * 4) Import into DVDA using the Import Subtitles button in the DVDA timeline.

 *

 * Revision Date: Feb. 25, 2004.

 *

 * 12 August 2004 - changes by Sony to output .sub files in Unicode format.

 *

 * 12 August 2004 - J. Knight - Change instances of the string "\n" in region labels

 *                              to new lines to allow exporting multiline subtitles.

 **/

import System.IO;

import System.Text;

import System.Collections;

import System.Windows.Forms;

import System.Globalization;

import Sony.Vegas;

 

function TimeToString(time) : String 

{

    var decimalSeparator = CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator;

 

    var rgTime = time.ToString( RulerFormat.Time ).split(decimalSeparator); // {"hh:mm:ss", "ddd"}

    var sbRes : StringBuilder = new StringBuilder();

 

    sbRes.Append( rgTime[0]);

    sbRes.Append( ':' );

 

    var iCentiseconds = Math.round( rgTime[1]/ 10);

 

    sbRes.Append((( iCentiseconds / 10 ) >> 0 )% 10 );

    sbRes.Append((( iCentiseconds /  1 ) >> 0 )% 10 );

 

    return sbRes; 

}

 

function CreateStreamWriter(fileName : String, encoding : Encoding) : StreamWriter {

    var fs : FileStream = new FileStream(fileName, FileMode.CreateNew, FileAccess.Write, FileShare.None);

    var sw : StreamWriter =  new StreamWriter(fs, encoding);

    return sw;

}

 

function ExportRegionsToSUB(exportFile : String) {

    var streamWriter : StreamWriter = null;

    try {

        streamWriter = CreateStreamWriter(exportFile, System.Text.Encoding.Unicode);

        //streamWriter.WriteLine("Start\tEnd\tLength\tName");

        var enumRegions : IEnumerator = Vegas.Project.Regions.GetEnumerator();

        var iSubtitle = 0;

        var newline = String.fromCharCode(13,10);

        while (enumRegions.MoveNext()) 

        {

            var region : Region = enumRegions.Current;

            var tsv : StringBuilder = new StringBuilder();

            

            tsv.Append((( iSubtitle / 1000 )>> 0) % 10 );

            tsv.Append((( iSubtitle /  100 )>> 0) % 10 );

            tsv.Append((( iSubtitle /   10 )>> 0) % 10 );

            tsv.Append((( iSubtitle /    1 )>> 0) % 10 );

            tsv.Append('\t');

   

            tsv.Append( TimeToString( region.Position ));

            tsv.Append('\t');

            tsv.Append( TimeToString( region.End ));

            tsv.Append('\t');

            tsv.Append(region.Label.replace(/\\n/g,newline));  // new line for "\n"

            streamWriter.WriteLine(tsv.ToString());

            streamWriter.WriteLine();

            

            iSubtitle++;

        }

    } finally {

        if (null != streamWriter)

            streamWriter.Close();

    }        

}

 

function ExportRegionsToTXT(exportFile : String) {

    var streamWriter : StreamWriter = null;

    try {

        streamWriter = CreateStreamWriter(exportFile, System.Text.Encoding.Unicode);

        streamWriter.WriteLine("Start\tEnd\tLength\tName");

        var enumRegions : IEnumerator = Vegas.Project.Regions.GetEnumerator();

        while (enumRegions.MoveNext()) 

        {

            var region : Region = enumRegions.Current;

            var tsv : StringBuilder = new StringBuilder();

   

            tsv.Append( region.Position.ToString( RulerFormat.Time ));

            tsv.Append('\t');

            tsv.Append( region.End.ToString( RulerFormat.Time  ));

            tsv.Append('\t');

            tsv.Append( region.Length.ToString( RulerFormat.Time  ));

            tsv.Append('\t');

            tsv.Append(region.Label);

            

            streamWriter.WriteLine(tsv.ToString());

        }

    } finally {

        if (null != streamWriter)

            streamWriter.Close();

    }        

}

 

// an example filter: "PNG File (*.png)|*.png|JPEG File (*.jpg)|*.jpg"

function ShowSaveFileDialog(filter, title, defaultFilename) : String {

    var saveFileDialog = new SaveFileDialog();

    if (null == filter) {

        filter = "All Files (*.*)|*.*";

    }

    saveFileDialog.Filter = filter;

    if (null != title)

        saveFileDialog.Title = title;

    saveFileDialog.CheckPathExists = true;

    saveFileDialog.AddExtension = true;

    if (null != defaultFilename) {

        var initialDir = Path.GetDirectoryName(defaultFilename);

        if (Directory.Exists(initialDir)) {

            saveFileDialog.InitialDirectory = initialDir;

        }

        saveFileDialog.DefaultExt = Path.GetExtension(defaultFilename);

        saveFileDialog.FileName = Path.GetFileName(defaultFilename);

    }

    if (System.Windows.Forms.DialogResult.OK == saveFileDialog.ShowDialog()) {

        return Path.GetFullPath(saveFileDialog.FileName);

    } else {

        return null;

    }

}

 

var projName;

 

var projFile = Vegas.Project.FilePath;

if ((null == projFile) || (0 == projFile.length)) 

{

    projName = "Untitled";

} 

else 

{

    projName = Path.GetFileNameWithoutExtension(projFile);

}

 

var strExportFile : String = ShowSaveFileDialog

( "DVD Architect Subtitle Script (*.sub)|*.sub|" + 

  "Vegas Region List (*.txt)|*.txt", 

  "Save Regions as Subtitles", projName + "-Regions"

  );

 

if (null != strExportFile)

{

    var iExt = strExportFile.lastIndexOf('.');

    if( strExportFile.substr( iExt+1,3+1 ).toUpperCase() == "SUB" ) // Works even if prev 

       // lastIndexOf fails or if the ext contains but not equal to "sub"

        ExportRegionsToSUB(strExportFile);

    else

        ExportRegionsToTXT(strExportFile);

}

 before the code and