1.00 inputfile Input File bypassfalse tspopenFile Document document document tsplist Line separator linesp valueAuto tspboolean Append append valuefalse skipcomments Skip Comments bypassfalse tsplongString Exclusionlist exclusionlist value/ tspboolean Skip also empty lines skipalsoemptylines valuefalse tspboolean Skip also inline comments skipalsoinlinecomments valuefalse replace Replace bypassfalse tspstring Find find value\n\n tspstring Replace replace value### tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse replace Replace bypassfalse tspstring Find find value\n tspstring Replace replace value tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse replace Replace bypassfalse tspstring Find find value### tspstring Replace replace value\n\n tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse replace Replace bypassfalse tspstring Find find value tspstring Replace replace value tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse script Script bypassfalse tsplongString Script scripttext valuefunction wraptitle(title as string, width as integer) as string dim w,i,cw as integer dim first,second,word as string w = len(title) if w < width then return title end if if w > 2*width then // too long return title end if cw = countfields(title," ") first = nthfield(title," ",1) for i = 2 to cw word = nthfield(title," ",i) if len(first) + len(word) > w/2 then second = mid(title,len(first) + len(word) + 3) if len(first) > len(second) then return first + chr(13) + word + " " + second else return first + " " + word + chr(13) + second end if end if first = first + " " + word next return first end function dim text, title,result as string dim i, cf as integer text = gettext cf = countfields(text,chr(13)+chr(13)) for i = 1 to cf title = nthfield(text,chr(13)+chr(13),i) title = wraptitle(title,38) result = result + title + chr(13) + chr(13) next print result inserttext Insert Text bypassfalse tsplongString Text text value tspboolean Replace selection replaceselection valuefalse outputfolder Output Folder bypassfalse tspfolder Folder folder folder tsplist Line separator linesp valueAuto tsplongString Filenamescript filenamescript value tspstring Mac Creator maccreator value tspstring Mac Type mactype value tspboolean Save only changes saveonlychanges valuefalse tspboolean Ask before overwrite askbeforeoverwrite valuetrue inputfile Input File bypassfalse tspopenFile Document document document tsplist Line separator linesp valueAuto tspboolean Append append valuefalse parsercmx3600 CMX 3600 bypassfalse tspstring Title title value tspboolean Translate tracks translatetracks valuefalse script Script bypassfalse tsplongString Script Text scripttext valuedim text as string text = gettext select case getcolumnname case "Event" case "Record In" text = format(tctoframes(text,25),"00000") case "Record Out" text = format(tctoframes(text,25),"00000") else text = "" end select print text parserspace Space bypassfalse tspstring Headings headings value parsertext Text bypassfalse tspboolean Add headings addheadings valuefalse replace Replace bypassfalse tspstring Find find value tspstring Replace replace value tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse replace Replace bypassfalse tspstring Find find value\n tspstring Replace replace value\n\n tspboolean Case Sensitive casesensitive valuefalse tspboolean Use RegEx useregex valuefalse inputfile Input File bypassfalse tspopenFile Document document document tsplist Line separator linesp valueAuto tspboolean Append append valuetrue script Script bypassfalse tsplongString Script Text scripttext valuedim text, title, ev,result as string dim i, cf as integer text = gettext cf = (countfields(text,getnewline+getnewline) -1)/ 2 for i = 1 to cf ev = nthfield(text,getnewline+getnewline,i) title = nthfield(text,getnewline+getnewline,i+cf) result = result + ev + getnewline + title + getnewline + getnewline next print result outputfolder Output Folder bypassfalse tspfolder Folder folder folder tsplist Line separator linesp valueAuto tsplongString Filenamescript filenamescript value tspstring Mac Creator maccreator value tspstring Mac Type mactype value tspboolean Save only changes saveonlychanges valuefalse tspboolean Ask before overwrite askbeforeoverwrite valuetrue window.width660 window.height520 window.horizontalsplitter231 window.verticalsplitter202 window.pagesetup globalwindow.top48 globalwindow.left650 globalwindow.width100 globalwindow.height50