[не удалять] Обработка и пересжатие видео [архив №5]

Dim FSO, WshShell, WshExec, TextStream, AVSFile, LogFile
Dim regEx, Matches, Match
Dim logname, avsname, avsnamenew, avsthreads, x264threads, x264settings, x264settings2, useavs2pipemod, command0, command
Dim avsthread, x264thread, x264path, avs2pipepath, usepipe, input_depth, output_csp
Dim line, allLines, sublines1, sublines2, fps, table
Dim i, j, count, tmp, lenstr
' Задание глобальных объектов верхнего уровня
Set FSO      = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
' Задание переменных
' Для одновременного вывода и на экран и в файл нужна утилита tee. Без нее скрипт выдаст ошибку. Если хотите без нее, то удалите "&1 | tee" (без кавычек).
avsthreads   = Array(1, 2, 4)     ' массив кол-ва потоков AviSynth
x264threads  = Array(4, 6, 8, 10) ' массив кол-ва потоков x264
logname      = "I:\Видео\Сериалы\Кости\7\test.log"   ' имя лог-файла
avsname      = "I:\Видео\Сериалы\Кости\7\Bones.s07e01.mkv.avs"    ' имя avs-файла
output_csp   = ""     ' Выходной формат. Если пусто (""), то, если используется avs2pipe, будет равен входному формату. А если без avs2pipe, то будет по умолчанию для x264 (i420).
input_depth  = 8      ' Входная глубина цвета для x264.
usepipe      = true   ' Использовать ли avs2pipemod.
x264settings = "--crf 19 --deblock 0:0 --bframes 16 --b-adapt 2 --ref 16 --qcomp 0.7 --aq-mode 2 --aq-strength 0.9 --ipratio 1.4 --pbratio 1.3 --qpmin 0 --qpmax 69 --merange 32 --me umh --subme 10 --partitions all --trellis 2 --psy-rd 0.95:0.15 --no-fast-pskip --no-mbtree --psnr --ssim --colorprim bt709 --transfer bt709 --colormatrix bt709 --sar 1:1 --output NUL"      ' общие настройки x264
avs2pipepath = "D:\Programs\Coding\AviSynth\Utilities\avs2pipe\avs2pipemod.exe"
x264path     = "D:\Programs\Coding\AviSynth\Tools\x264\x264-10bit.exe"
' ###### Собственно составление командной строки  ######
If output_csp <> "" Then output_csp = " --output_csp " & output_csp & " "
avsnamenew = FullName2Path(avsname) & "\new_" & FullName2NameExt(avsname)      ' Имя нового тестового файла
If usepipe = true Then
    x264raw = """" & avs2pipepath & """ -x264raw=" & input_depth & " """ & avsname & """"
    Set WshExec    = WshShell.Exec(x264raw)
    Set TextStream = WshExec.StdOut
    x264raw = " " & Trim(TextStream.ReadLine()) & " "
    command0 = """" & avs2pipepath & """ -rawvideo """ & avsnamenew & """ | """ & x264path & """ " & x264settings & x264raw & output_csp
Else
    command0 = """" & x264path & """ " & x264settings & output_csp & " --input-depth " & input_depth & " """ & avsnamenew & """"
End If
' ############################################################
' #####                Основная обработка               ######
' ############################################################
' WshShell.Run command, 1, true
Set regEx = New RegExp
regEx.Pattern    = "^(?!\s*#)(.*SetMTMode\s*\(\s*\d\s*,\s*)(\d+)(\s*\).*)$"
regEx.IgnoreCase = True
regEx.Global = True
' Парсинг avs-файла и нахождение SetMTMode(режим, потоки)
sublines1 = ""
sublines2 = ""
count = 0
Set AVSFile = FSO.OpenTextFile(avsname, 1, False, 0)
Do Until AVSFile.AtEndOfStream
    line = AVSFile.ReadLine()
    If count = 0 Then
        Set Matches = regEx.Execute(line)
        For Each Match in Matches
            count = 1
            sublines1 = sublines1 & Match.SubMatches(0)
            sublines2 = Match.SubMatches(2) & vbCrLf
        Next
        If count = 0 Then sublines1 = sublines1 & line & vbCrLf
    Else
        sublines2 = sublines2 & line & vbCrLf
    End If
Loop
AVSFile.Close()
regEx.Pattern    = "^encoded .*, (\d+\.\d+) fps,.*"
table = "      |"
For Each x264thread in x264threads
    If x264thread < 10 Then x264thread = "0" & CStr(x264thread)
    table = table & "      " & x264thread & "     |"
Next
table = table & vbCRLF & String(7, "-")
For Each x264thread in x264threads
    table = table & String(9, "-")
Next
table = table & vbCRLF
For Each avsthread in avsthreads
    Set AVSFile = FSO.CreateTextFile(avsnamenew, True, False)
    AVSFile.Write(sublines1 & CStr(avsthread) & sublines2)
    AVSFile.Close()
    table = table & CStr(avsthread) & "    |"
    For Each x264thread in x264threads
        command = "cmd.exe /c """ & command0 & " --threads " & CStr(x264thread) & " 2>&1 | tee """ & logname & """"""
        WshShell.Run command, 1, true
        Set LogFile = FSO.OpenTextFile(logname, 1, False, 0)
        Do Until LogFile.AtEndOfStream
            line = LogFile.ReadLine()
            Set Matches = regEx.Execute(line)
            If Matches.Count > 0 Then
                fps = Matches(0).SubMatches(0)
                Exit Do
            End If
        Loop
        LogFile.Close()
        lenstr = Len(fps)
        If lenstr < 4 Then
            table = table & "     n/a    |"
        ElseIf lenstr = 4 Then
            table = table & "    " & CStr(fps) & "    |"
        ElseIf lenstr = 5 Then
            table = table & "   " & CStr(fps) & "   |"
        Else
            table = table & "  " & CStr(fps) & "  |"
        End If
    Next
    table = table & vbCRLF
Next
FSO.DeleteFile avsnamenew
FSO.DeleteFile logname
MsgBox table
WScript.Quit
' ### Вспомогательные функции ###
' =======================================================================================
' Преобразует полный путь к файлу в путь к папке без конечного "\"
function FullName2Path(FileFullName)
    FullName2Path = Left(FileFullName, InStrRev(FileFullName, "\")-1)
end function
' Преобразует полный путь к файлу в имя файла расширением
function FullName2NameExt(FileFullName)
    FullName2NameExt = Mid(FileFullName, InStrRev(FileFullName, "\")+1)
end function

D:\Disk D\00012.m2ts
General #0
ID : 0 (0x0)
Complete name : D:\Disk D\00012.m2ts
Format : BDAV
Format/Info : Blu-ray Video
File size : 27.0 GiB
Duration : 1h 29mn
Overall bit rate mode : Variable
Overall bit rate : 43.2 Mbps
Maximum Overall bit rate : 48.0 Mbps
Video #4113
ID : 4113 (0x1011)
Menu ID : 1 (0x1)
Format : AVC
Format/Info : Advanced Video Codec
Format profile : High@L4.1
Format settings, CABAC : Yes
Format settings, ReFrames : 2 frames
Codec ID : 27
Duration : 1h 29mn
Bit rate mode : Variable
Bit rate : 37.6 Mbps
Width : 1 920 pixels
Height : 1 080 pixels
Display aspect ratio : 16:9
Frame rate : 23.976 fps
Color space : YUV
Chroma subsampling : 4:2:0
Bit depth : 8 bits
Scan type : Progressive
Bits/(Pixel*Frame) : 0.757
Stream size : 23.5 GiB (87%)
Audio #4352
ID : 4352 (0x1100)
Menu ID : 1 (0x1)
Format : DTS
Format/Info : Digital Theater Systems
Format profile : MA / Core
Muxing mode : Stream extension
Codec ID : 134
Duration : 1h 29mn
Bit rate mode : Variable
Bit rate : 1 561 Kbps / 1 510 Kbps
Channel(s) : 6 channels
Channel positions : Front: L C R, Side: L R, LFE
Sampling rate : 48.0 KHz
Bit depth : 24 bits
Compression mode : Lossless / Lossy
Audio #4353
ID : 4353 (0x1101)
Menu ID : 1 (0x1)
Format : PCM
Format settings, Endianness : Big
Format settings, Sign : Signed
Muxing mode : Blu-ray
Codec ID : 128
Duration : 1h 29mn
Bit rate mode : Constant
Bit rate : 2 304 Kbps
Channel(s) : 2 channels
Channel positions : Front: L R
Sampling rate : 48.0 KHz
Bit depth : 24 bits
Stream size : 1.44 GiB (5%)

VIDEO ENCODING
------------------------------
Encoding video to: D:\XVid\F1_T2_Video -01 .mkv
x264 Q18.0 1920x1040 23.976fps (117594 frames)
x264_64.exe: --crf 18.0 --preset medium --profile high --level 4.1 --ref 4 --merange 32 --bframes 4 --direct auto --b-adapt 2 --trellis 2 --no-fast-pskip --subme 10 --me umh --rc-lookahead 60 --sar 1:1 --output "D:\XVid\F1_T2_Video -01 .mkv" "J:\Temp\0004.avs"
raw [info]: 1920x1040p 1:1 @ 2500000/104271 fps (cfr)
x264 [info]: using SAR=1/1
x264 [info]: using cpu capabilities: MMX2 SSE2Fast SSSE3 FastShuffle SSE4.2 AVX
x264 [info]: profile High, level 4.1
x264 [info]: frame I:638 Avg QP:15.68 size:189872
x264 [info]: frame P:33224 Avg QP:20.95 size: 94644
x264 [info]: frame B:83732 Avg QP:23.19 size: 51001
x264 [info]: consecutive B-frames: 3.9% 5.3% 14.3% 42.8% 33.6%
x264 [info]: mb I I16..4: 25.7% 52.0% 22.3%
x264 [info]: mb P I16..4: 3.9% 19.9% 5.2% P16..4: 25.6% 16.0% 5.8% 0.0% 0.0% skip:23.6%
x264 [info]: mb B I16..4: 0.4% 3.7% 1.3% B16..8: 28.2% 10.9% 3.2% direct:10.3% skip:42.0% L0:41.4% L1:47.3% BI:11.3%
x264 [info]: 8x8 transform intra:68.2% inter:58.6%
x264 [info]: direct mvs spatial:89.5% temporal:10.5%
x264 [info]: coded y,uvDC,uvAC intra: 84.0% 62.6% 25.4% inter: 35.6% 21.8% 1.6%
x264 [info]: i16 v,h,dc,p: 58% 16% 6% 20%
x264 [info]: i8 v,h,dc,ddl,ddr,vr,hd,vl,hu: 7% 10% 4% 10% 15% 13% 15% 11% 14%
x264 [info]: i4 v,h,dc,ddl,ddr,vr,hd,vl,hu: 13% 10% 4% 8% 12% 12% 15% 10% 16%
x264 [info]: i8c dc,h,v,p: 29% 35% 17% 18%
x264 [info]: Weighted P-Frames: Y:6.9% UV:3.4%
x264 [info]: ref P L0: 48.6% 10.1% 25.4% 12.7% 3.0% 0.1%
x264 [info]: ref B L0: 86.0% 10.4% 3.6%
x264 [info]: ref B L1: 94.6% 5.4%
x264 [info]: kb/s:12291.98
x264 [total]: encoded 117594 frames, 3.47 fps, 12291.98 kb/s
TIME
------------------------------
Общее время кодирования: 9 hour 24 min 32 sec
Файл получился на: 7187.83 mb (video track)

General
Unique ID : 223182363449265080742298730980781288074 (0xA7E75C1428C38B419263D8CE97B76A8A)
Complete name : Naqoyqatsi_BDRip1080p24.mkv
Format : Matroska
Format version : Version 2
File size : 7.96 GiB
Duration : 1h 29mn
Overall bit rate : 12.8 Mbps
Encoded date : UTC 2012-06-11 19:31:35
Writing application : mkvmerge v5.2.0 ('I can't explain') built on Dec 18 2011 18:12:03
Writing library : libebml v1.2.3 + libmatroska v1.3.0
Video #1
ID : 1
Format : AVC
Format/Info : Advanced Video Codec
Format profile : High@L4.1
Format settings, CABAC : Yes
Format settings, ReFrames : 4 frames
Codec ID : V_MPEG4/ISO/AVC
Duration : 1h 29mn
Bit rate : 11.0 Mbps
Width : 1 920 pixels
Height : 1 040 pixels
Display aspect ratio : 16:9
Frame rate : 23.976 fps
Color space : YUV
Chroma subsampling : 4:2:0
Bit depth : 8 bits
Scan type : Progressive
Bits/(Pixel*Frame) : 0.230
Stream size : 6.86 GiB (86%)
Writing library : x264 core 124 r2197 69a0443
Encoding settings : cabac=1 / ref=4 / deblock=1:0:0 / analyse=0x3:0x113 / me=umh / subme=10 / psy=1 / psy_rd=1.00:0.00 / mixed_ref=1 / me_range=32 / chroma_me=1 / trellis=2 / 8x8dct=1 / cqm=0 / deadzone=21,11 / fast_pskip=0 / chroma_qp_offset=-2 / threads=6 / sliced_threads=0 / nr=0 / decimate=1 / interlaced=0 / bluray_compat=0 / constrained_intra=0 / bframes=4 / b_pyramid=2 / b_adapt=2 / b_bias=0 / direct=3 / weightb=1 / open_gop=0 / weightp=2 / keyint=250 / keyint_min=23 / scenecut=40 / intra_refresh=0 / rc_lookahead=60 / rc=crf / mbtree=1 / crf=18.0 / qcomp=0.60 / qpmin=0 / qpmax=69 / qpstep=4 / ip_ratio=1.40 / aq=1:1.00
Language : English
Default : Yes
Forced : No
Audio #2
ID : 2
Format : DTS
Format/Info : Digital Theater Systems
Codec ID : A_DTS
Duration : 1h 29mn
Bit rate mode : Constant
Bit rate : 1 510 Kbps
Channel(s) : 6 channels
Channel positions : Front: L C R, Side: L R, LFE
Sampling rate : 48.0 KHz
Bit depth : 24 bits
Compression mode : Lossy
Delay relative to video : 1ms
Stream size : 964 MiB (12%)
Title : DTS(ENG):6ch,48kHz,1510kbps,24bit
Language : English
Default : No
Forced : Yes

Комплектация
Мать GigaByte GA-Z68XP-UD3, Intel Z68 ,проц Intel Core i5 2500K разогнан до 4.5Ггц,ОЗУ 12Гб

Changelog 2106 --> 2112
Features:
[File Size Selector] removed some default values and added a control in the settings to add custom file size values
[File Size Selector] all other controls will not save anymore custom values to avoid problems in AutoEncode + OneClick
[Job] delete intermediate files also during job deletion if specified in the settings
[Video Player] changed default start position to the middle if "Improved AVS opening" is selected
[x264] force --keyint-min 1 with Blu-ray (requires x264 revision 2149+)
[x264] replaced vfw4x264 with avs4x264mod. Details:
[x264] http://forum.doom9.org/showthread.php?t=162656
Enhancements:
[AVS Script Creator] fixed opening of FFMS indexed files

VIDEO ENCODING
------------------------------
Encoding video to: D:\XVid\F1_T2_Video00001 - .mkv
x264 Q18.0 1920x1080 23.976fps (143496 frames)
x264_64.exe: --crf 18.0 --preset medium --profile high --level 4.1 --ref 4 --deblock -2:-1 --merange 24 --bframes 8 --direct auto --b-adapt 2 --trellis 2 --no-fast-pskip --threads 4 --subme 11 --me umh --rc-lookahead 60 --sar 1:1 --output "D:\XVid\F1_T2_Video00001 - .mkv" "J:\Temp\0007.avs"
raw [info]: 1920x1080p 1:1 @ 2500000/104271 fps (cfr)
x264 [info]: using SAR=1/1
x264 [info]: using cpu capabilities: MMX2 SSE2Fast SSSE3 FastShuffle SSE4.2 AVX
x264 [info]: profile High, level 4.1
x264 [info]: frame I:726 Avg QP:16.21 size:266129
x264 [info]: frame P:29374 Avg QP:19.44 size:128644
x264 [info]: frame B:113396 Avg QP:21.93 size: 57742
x264 [info]: consecutive B-frames: 1.3% 1.5% 5.0% 20.1% 19.9% 37.6% 7.8% 3.7% 3.0%
x264 [info]: mb I I16..4: 7.8% 76.3% 15.8%
x264 [info]: mb P I16..4: 1.5% 17.4% 1.4% P16..4: 29.2% 35.7% 9.1% 0.0% 0.0% skip: 5.7%
x264 [info]: mb B I16..4: 0.3% 3.6% 0.1% B16..8: 40.9% 19.7% 2.8% direct:12.1% skip:20.4% L0:43.5% L1:43.1% BI:13.4%
x264 [info]: 8x8 transform intra:86.9% inter:66.8%
x264 [info]: direct mvs spatial:100.0% temporal:0.0%
x264 [info]: coded y,uvDC,uvAC intra: 90.8% 78.0% 28.8% inter: 52.0% 39.2% 1.6%
x264 [info]: i16 v,h,dc,p: 23% 9% 3% 65%
x264 [info]: i8 v,h,dc,ddl,ddr,vr,hd,vl,hu: 8% 7% 4% 10% 15% 14% 15% 12% 15%
x264 [info]: i4 v,h,dc,ddl,ddr,vr,hd,vl,hu: 10% 7% 7% 9% 13% 13% 14% 11% 15%
x264 [info]: i8c dc,h,v,p: 31% 29% 20% 20%
x264 [info]: Weighted P-Frames: Y:3.9% UV:1.9%
x264 [info]: ref P L0: 45.8% 11.5% 27.7% 13.7% 1.3% 0.0%
x264 [info]: ref B L0: 87.2% 9.8% 2.9%
x264 [info]: ref B L1: 93.9% 6.1%
x264 [info]: kb/s:14061.54
x264 [total]: encoded 143496 frames, 2.53 fps, 14061.54 kb/s
TIME
------------------------------
Общее время кодирования: 15 hour 44 min 3 sec
Файл получился на: 10033.63 mb (video track)