SetBatchLines -1
FileRead, test, C:\test\test.prproj
FilterList := match1 := "", Poss := 1
While Poss := regexmatch(test, "<VideoClipTrackItem ObjectID(.*?)(?:<VideoClipTrackItem ObjectID|</PremiereData>)", match, poss+StrLen(match1))
{
   If Instr(match1, "<MatchName>PR.ADBE Levels</MatchName>")
   {
      FilterMatch := "", Posss := 1, minid := 999999999999999, maxid := ""
      While Posss := regexmatch(match1, "<VideoFilterComponent ObjectID.*?</VideoFilterComponent>", FilterMatch, posss+StrLen(FilterMatch))
      {
         regexmatch(FilterMatch, "<MatchName>(.*?)</MatchName>", filterName)
         regexmatch(FilterMatch, "<VideoFilterComponent ObjectID=""(.*?)""", id)
         regexmatch(FilterMatch, "<Bypass>(.*?)</Bypass>", bypass)
         if (filterName1 = "PR.ADBE Levels") and (bypass1 = "false")
         {
            if (id1 > maxid)
               maxid := id1
         }
         else if (filterName1 != "AE.ADBE Opacity") and (filterName1 != "AE.ADBE Motion") and (filterName1 != "AE.ADBE AECrop") and (filterName1 != "AE.ADBE Gaussian Blur 2") and (bypass1 = "false")
         {
            if (id1 < minid)
               minid := id1
         }
      }
      if (maxid > minid)
      {
         regexmatch(match1, "<Name>(.*?)</Name>", name)
         regexmatch(match1, "<Start>(.*?)</Start>", start)
         startTimeline := 9142035840000000      ;     <MZ.ZeroPoint>
         start1 += startTimeline
         delimeter := ":", fps := 25, FramesInOneHour := 90000, FramesInOneMinute := 1500, FrameRate := 10160640000
         framecount := Start1 / FrameRate
         TC1 := floor(framecount / FramesInOneHour)
         TC2 := floor((framecount - TC1*FramesInOneHour) / FramesInOneMinute)
         TC3 := floor((framecount - TC1*FramesInOneHour - TC2*FramesInOneMinute) /fps)
         TC4 := floor(framecount - TC1*FramesInOneHour - TC2*FramesInOneMinute - TC3*fps)
         SetFormat, Float, 02.0
         Loop, 4
            TC%A_Index% += 0.0
         FilterList .= TC1 delimeter TC2 delimeter TC3 delimeter TC4 name1 "`n"
      }
   }
}
if (FilterList != "")
{
   FilterListNew := ""
   Sort, FilterList
   loop, parse, FilterList, `n, `r 
   {
      StringLeft, TcNew, A_LoopField, 11
      StringTrimLeft, NameNew, A_LoopField, 11
      FilterListNew .= NameNew "  -  " TcNew  "`n"
   }
   StringTrimRight, FilterListNew, FilterListNew, 7
   Gui,+AlwaysOnTop -MinimizeBox
   Gui, Font, s10
   Gui, Add, Button, , OK
   Gui, Add, Edit,,  %FilterListNew%
   Gui,Show,, Levels Vishe!!!
   return

   GuiClose:
   ButtonOK:
   Gui, Destroy
   return
}

startTime := A_TickCount
ProjectFile := "fin30.prproj"
SequenceName := "test"
EffectName := "PR.ADBE Extract"
EffectListFile := "out.txt" ; будет стерт и заново создастся после запуска скрипта
xmlParser := ComObjCreate("Msxml2.DOMDocument.6.0")
xmlParser.async := False
xmlParser.load(ProjectFile)
If (xmlParser.parseError.errorCode != 0)
{
   ShowError(xmlParser.parseError)
   ExitApp
}
ShowError(XMLDOMParseError)
{
msg := "parseError.errorCode: " XMLDOMParseError.errorCode "`n"
. "parseError.filepos: " XMLDOMParseError.filepos "`n"
. "parseError.line: " XMLDOMParseError.line "`n"
. "parseError.linepos: " XMLDOMParseError.linepos "`n"
. "parseError.reason: " XMLDOMParseError.reason "`n"
. "parseError.srcText: " XMLDOMParseError.srcText "`n"
. "parseError.url: " XMLDOMParseError.url
MsgBox % msg
}
; Проверяем есть ли такая секвенция и название эффекта
seqNode := xmlParser.selectNodes("/PremiereData/Sequence[Name = '" SequenceName "']")
if (seqNode.length == 0)
{
   MsgBox Sequence with this name does not exist!
   ExitApp
}
effNode := xmlParser.selectNodes("/PremiereData/VideoFilterComponent[MatchName = '" EffectName "']")
if (effNode.length == 0)
{
   MsgBox Effect with this name does not exist!
   ExitApp
}
; Находим айди секвенции и референс на её фреймрейт
frameRateObjId := seqNode.item(0).selectSingleNode("TrackGroups/TrackGroup[@Index='0']/Second").getAttribute("ObjectRef")
sequenceId := seqNode.item(0).selectSingleNode("ID").text
;MsgBox % frameRateObjId " - " sequenceId
; Определяем framerate секвенции
FrameRate := xmlParser.selectSingleNode("/PremiereData/VideoTrackGroup[@ObjectID='" frameRateObjId "']/TrackGroup/FrameRate").text
;MsgBox % FrameRate
fps := 254016000000/FrameRate
FramesInOneHour := fps * 60 * 60
FramesInOneMinute := fps * 60
;MsgBox % fps
If (FrameRate == 10160640000) ; 25fps
{
   delimeter := ":", i := 0
}
Else If (FrameRate == 10594584000) ; 24fps
{
   delimeter := ":", i := 0
}
Else If (FrameRate == 5080320000) ; 50fps
{
   delimeter := ":", i := 0
}
Else If (FrameRate == 8475667200) ; 29.97fps
{
   delimeter := ";", i := 2
}
Else If (FrameRate == 4237833600) ; 59.94fps
{
   delimeter := ";", i := 4
}
; Находим клипы с эффектом
trackNodes := xmlParser.selectNodes("/PremiereData/VideoClipTrackItem")
k := 1
;Msgbox, % "Loop in " A_TickCount - startTime
for node in trackNodes
{
   videoComponentChainObjectID := node.selectSingleNode("ClipTrackItem/ComponentOwner/Components").getAttribute("ObjectRef")
   vccNode := xmlParser.selectSingleNode("/PremiereData/VideoComponentChain[@ObjectID='" videoComponentChainObjectID "']")
   ccc := vccNode.SelectNodes("ComponentChain/Components/Component")
   for comp in ccc
   {
      VideoFilterComponentObjectID := comp.getAttribute("ObjectRef")
      vfNode := xmlParser.selectSingleNode("/PremiereData/VideoFilterComponent[@ObjectID='" VideoFilterComponentObjectID "']")
      seqId := vfNode.SelectSingleNode("SequenceID").text
      if (seqId != sequenceId)
         continue
      matchName := vfNode.selectSingleNode("MatchName").text
      if (matchName != EffectName)
         continue
      bypass := vfNode.selectSingleNode("Component/Bypass").text
      start := node.selectSingleNode("ClipTrackItem/TrackItem/Start").text
      end := node.selectSingleNode("ClipTrackItem/TrackItem/End").text
      subClipObjectID := node.selectSingleNode("ClipTrackItem/SubClip").getAttribute("ObjectRef")
      trackIndex := node.selectSingleNode("ClipTrackItem/TrackItem/TrackIndex").text
      name := xmlParser.selectSingleNode("/PremiereData/SubClip[@ObjectID='" subClipObjectID "']/Name").text
      a1 := "Track: " trackIndex + 1
      framecountEnd := Floor(End / FrameRate)
      framecount := framecountEnd + floor(framecountEnd / FramesInOneMinute) * i - floor(framecountEnd / FramesInOneMinute / 10) * i
      a2 := "Sequence Out: " FormatTime(framecount) "`n"
      framecountStart := Floor(Start / FrameRate)
      framecount := framecountStart + floor(framecountStart / FramesInOneMinute) * i - floor(framecountStart / FramesInOneMinute / 10) * i
      a3 := "Sequence In: " FormatTime(framecount) "`n"
      a4 := "Duration: " FormatTime(framecountEnd - framecountStart) "`n"
      a5 := "Clip Name: " Name "`n"
      If (bypass == "false")
         a6 := "Enabled`n"
      Else
         a6 := "Disabled`n"
      List .= framecountStart "a" k "`n"
      EffectList%k% := a6 a3 a2 a4 a5 a1
      k++
      ;MsgBox % start " - " end " - " subClipObjectID " - " trackIndex " - " name " - " bypass
   }
}
FormatTime(framecount)
{
   global FramesInOneHour, FramesInOneMinute, fps, delimeter
   TC1 := % floor(framecount / FramesInOneHour)
   TC2 := % floor((framecount - TC1 * FramesInOneHour) / FramesInOneMinute)
   TC3 := % floor((framecount - TC1 * FramesInOneHour - TC2 * FramesInOneMinute) / fps)
   TC4 := % floor(framecount - TC1 * FramesInOneHour - TC2 * FramesInOneMinute - TC3 * fps )
   SetFormat, Float, 02.0
   Loop, 4
      TC%A_Index% += 0.0
   return TC1 delimeter TC2 delimeter TC3 delimeter TC4
}
EffectList := "В секвенции """ SequenceName """ эффект """ EffectName """ присутствует:"
Sort, List, N D`n
List := RegExReplace(list,"\s*$","")
n := 1
loop, parse, List, `n, `r
{
   var := (RegExReplace(A_LoopField, "(.+)a", "$2"))
   k := var
   EffectList .= "`n`n" n ") " EffectList%k%
   n++
}
FileDelete, %EffectListFile%
FileAppend, % EffectList, %EffectListFile%, UTF-8
Msgbox, % "Done in " A_TickCount - startTime
ExitApp

text

text

text

text