Similarly, if you already have some projects that use AVI-wrapped H.264 files, you can use the below script to fix them. Disclaimer: It's a little sloppy because it opens the project and rewrites every AVI reference to an MP4. That said, it doesn't overwrite the original project. It makes a copy prepended with "FIXED - ".
To use this script, follow the same directions as the last post, but replace the previous script with this one below:
The Script - - - - - - - - - - - - - - - - - - - - - - - - - -
FileInstall('FFMPEG.EXE', @TempDir & '\FFMPEG.EXE', 1)
$ffmpeg_exe = @TempDir & '\FFMPEG.EXE' ;This string must match the FileInstall destination
MsgBox(64, 'H.264 AVI Fixer', 'Select your Adobe Premiere Elements 10 project. Your files will be converted to be more compatible with APE10')
If FileExists('C:\PEScratch10') Then
$dInit = 'c:\pescratch10'
ElseIf FileExists(@MyDocumentsDir & '\Adobe\Premiere Elements\10.0') Then
$dInit = @MyDocumentsDir & '\Adobe\Premiere Elements\10.0'
Else
$dInit = @DesktopDir
EndIf
;$dInit = @DesktopDir ;FileOpen dialog initial directory
$iFile = FileOpenDialog('Premiere Elements 10 Project', $dInit, '(*.prel)', 3)
;Error Checking
If @error Then
MsgBox(4096, "", "No File chosen. Exiting.")
Exit
EndIf
;-----------Get full path, directory name, and file name as individual variables
$fFullPath = $iFile
$fFullPathSplit = StringSplit($fFullPath, '\')
$fName = $fFullPathSPlit[$fFullPathSplit[0]] ;File name only
$fDirPath = '' ;Initialize variable for the Directory Path
For $i = 1 To $fFullPathSplit[0] - 1
if($i > 1) Then
$fDirPath = $fDirPath & '\'
EndIf
$fDirPath = $fDirPath & $fFullPathSplit[$i] ;Directory (without trailing slash) that contains the project
Next
#cs
MsgBox(0, 'Full Path' , $iFile)
MsgBox(0, 'Directory Path', $fDirPath)
MsgBox(0, 'File Name', $fName)
#ce
;----------Find all the AVI media referenced in the project
$hProject = FileOpen($fFullPath, 'R')
$sProject = FileRead($hProject)
;$medialist = StringRegExp($sProject,'(?i)<ActualMediaFilePath>.*\.AvI</ActualMediaFilePath>', 3) ;Get all ActualMediaFilePaths
$medialist = StringRegExp($sProject,'(?i)<FilePath>.*\.AvI</FilePath>', 3) ;Get all FilePaths
$medialist_error = @error
If IsArray($medialist) Then
For $i = 0 To UBound($medialist) - 1
;$filename = StringReplace(StringReplace($medialist[$i], '<ActualMediaFilePath>', ''), '</ActualMediaFilePath>', '')
$filename = StringReplace(StringReplace($medialist[$i], '<FilePath>', ''), '</FilePath>', '')
;Skip Rendered files, and iterate through all media found in the project XML.
If Not StringInStr($filename, 'Rendered') Then
;MsgBox(0, $medialist_error, 'Rewrapping ' & $filename)
$filename_avi = $filename
$filename_mp4 = StringReplace($filename, '.avi', '.mp4')
;Rewrap the AVI H.264 files as MP4 files.
RunWait($ffmpeg_exe & ' -i "' & $filename_avi & '" -vcodec copy -acodec copy -f mp4 -y "' & $filename_mp4 & '"')
EndIf
Next
;Rewrite the project XML to remove AVI references
$sProjectModified = StringReplace($sProject, '.avi', '.mp4')
FileDelete($fDirPath & '\FIXED - ' & $fName)
FileWrite($fDirPath & '\FIXED - ' & $fName, $sProjectModified)
MsgBox(64, 'Complete', 'Your fixed project is available at: ' & @CRLF & $fDirPath & '\FIXED - ' & $fName)
Run('C:\Windows\System32\Explorer.exe ' & $fDirPath)
MsgBox(48, 'Note!', 'When you open this project for the first time, it may complain about missing files.' & @CRLF & @CRLF & 'IF THIS HAPPENS CLICK "SKIP ALL"')
Else
MsgBox(16, 'Error', 'No media was detected in that project file.')
EndIf
