Emulgator
31st May 2023, 23:35
# $$$$$$$$$$$ Emulgator's Universal AviSynth AutoPath script head 2023-06-01 $$$$$$$$$$$$$$$$$
# A. Saves you from typing long paths.
# B. Simple auto-increment-renaming of script files will bring you time-saving processing of hundreds of camerafiles
# without having to insert these into something like notepad++, and call multi-line replace, and hope...
# C. Public evaluation of such script has become safer, the script contains no filenames anymore.
# D. Moving source files around is a no-brainer now.
# You just move the source script with them and the script will open the files no matter what path they are in.
# Single files with long paths and filenames
# "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway\2022-000-00#[Still-unknown-to-me-remnants].MTS"
# Copy this script into source file folder, copy source file name including extension, paste onto script file name.
# Now the example file in folder "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway"
# has got a script sibling named "2022-000-00#[Still-unknown-to-me-remnants].MTS.avs"
# and you don't have to type the path "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway" anymore at all.
# Even better: Hundreds of camera files to be processed the same way. Rename to 00000.MTS.avs, preview and edit your master script.
# Then once and for all times: In Windows Explorer you generate 256 copies of 00000.MTS.avs by duplicating 8 times: 1-2-4-8-16-32-64-128-256...
# Sequential Auto-rename to 00000.MTS.avs....00255.MTS.avs.
# You may keep these .avs forever, no matter in which camera folder you will drag them: they will be valid as long as their siblings are there;
# so you move orphaned scripts to a parking folder before batch processing.
# And if .m2ts: you know how to rename extensions. Den4b ReNamer or what you prefer.
# On runtime this script will derive file paths and source filter as follows:
# Calls AviSynth internal string functions to get path and script filename, assuming 2 extensions starting with a dot each.
# Derives number of source extension characters (.ts -> 3, .avi -> 4, .mpeg -> 5) by concluding from the position of the second dot
# Applies these derived arguments to appropriate sourcefilters.
# To edit this script in AvsPmod, associate .avs extension with AvsPmod, doubleclick on .avs script, load preview (press F5) and smile ;-)
# Maybe you will have to match some lines to the actual situation
# You are now ready to append your desired processing.
#+++++ Start of AutoPath script head (1 Videostream + 0 or 1 Audiostream) +++++
SetFilterMTMode("DEFAULT_MT_MODE", 2)
SetFilterMTMode("LWLibavVideoSource", 3)
SetFilterMTMode("LWLibavAudioSource", 3)
SetFilterMTMode("DGSource", 3)
scriptextlen=FindStr(RevStr(ScriptFile()),".")
vidextlen=FindStr(RevStr(LeftStr(ScriptFile(),StrLen(ScriptFile())-scriptextlen)),".")
vidfolder=ScriptDir()
audfolder=vidfolder
vidfile=LeftStr(ScriptFile(),(StrLen(ScriptFile())-scriptextlen-vidextlen))
audfile=vidfile
vidext=LeftStr(RightStr(ScriptFile(),scriptextlen+vidextlen),vidextlen)
vidsrc= vidext==".d2v" ? "MPEG2Source" : vidext==".dga" ? "AVCSource" : vidext==".dgi" ? "DGSource" : "LWLibavVideoSource"
audext=vidext==".d2v" ? ".ac3" : vidext==".dgi" ? ".ac3" : vidext
#audext=vidext==".d2v" ? ".dts" : vidext==".dgi" ? ".dts" : vidext
#audext=vidext==".d2v" ? ".wav" : vidext==".dgi" ? ".wav" : vidext
audpid= vidext==".d2v" ? " T80 2_0ch 224Kbps DELAY 0ms" : vidext==".dgi" ? " PID 1100 2.0ch 48KHz 192Kbps DELAY 0ms" :""
#audpid= vidext==".d2v" ? " T81 3_2ch 448Kbps DELAY 0ms" : vidext==".dgi" ? " T81 3_2ch 48KHz 448Kbps DELAY 0ms" :""
audsrc= "LWLibavAudioSource"
Exist(String(vidfolder)+String(vidfile)+String(vidext)) ? Apply(vidsrc,String(vidfolder)+String(vidfile)+String(vidext))\
: Assert(false, "NO SUCH FILE: " + String(vidfolder)+String(vidfile)+String(vidext) + " !")
try {AudioDub(last,Apply(audsrc,String(audfolder)+String(audfile)+String(audpid)+String(audext)))}
catch (err) {last}
# ----- End of AutoPath script head (1 Videostream + 0 or 1 Audiostream) -----
# A. Saves you from typing long paths.
# B. Simple auto-increment-renaming of script files will bring you time-saving processing of hundreds of camerafiles
# without having to insert these into something like notepad++, and call multi-line replace, and hope...
# C. Public evaluation of such script has become safer, the script contains no filenames anymore.
# D. Moving source files around is a no-brainer now.
# You just move the source script with them and the script will open the files no matter what path they are in.
# Single files with long paths and filenames
# "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway\2022-000-00#[Still-unknown-to-me-remnants].MTS"
# Copy this script into source file folder, copy source file name including extension, paste onto script file name.
# Now the example file in folder "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway"
# has got a script sibling named "2022-000-00#[Still-unknown-to-me-remnants].MTS.avs"
# and you don't have to type the path "C:\MyDocuments\NotMyDocuments\Whatwasthatbytheway" anymore at all.
# Even better: Hundreds of camera files to be processed the same way. Rename to 00000.MTS.avs, preview and edit your master script.
# Then once and for all times: In Windows Explorer you generate 256 copies of 00000.MTS.avs by duplicating 8 times: 1-2-4-8-16-32-64-128-256...
# Sequential Auto-rename to 00000.MTS.avs....00255.MTS.avs.
# You may keep these .avs forever, no matter in which camera folder you will drag them: they will be valid as long as their siblings are there;
# so you move orphaned scripts to a parking folder before batch processing.
# And if .m2ts: you know how to rename extensions. Den4b ReNamer or what you prefer.
# On runtime this script will derive file paths and source filter as follows:
# Calls AviSynth internal string functions to get path and script filename, assuming 2 extensions starting with a dot each.
# Derives number of source extension characters (.ts -> 3, .avi -> 4, .mpeg -> 5) by concluding from the position of the second dot
# Applies these derived arguments to appropriate sourcefilters.
# To edit this script in AvsPmod, associate .avs extension with AvsPmod, doubleclick on .avs script, load preview (press F5) and smile ;-)
# Maybe you will have to match some lines to the actual situation
# You are now ready to append your desired processing.
#+++++ Start of AutoPath script head (1 Videostream + 0 or 1 Audiostream) +++++
SetFilterMTMode("DEFAULT_MT_MODE", 2)
SetFilterMTMode("LWLibavVideoSource", 3)
SetFilterMTMode("LWLibavAudioSource", 3)
SetFilterMTMode("DGSource", 3)
scriptextlen=FindStr(RevStr(ScriptFile()),".")
vidextlen=FindStr(RevStr(LeftStr(ScriptFile(),StrLen(ScriptFile())-scriptextlen)),".")
vidfolder=ScriptDir()
audfolder=vidfolder
vidfile=LeftStr(ScriptFile(),(StrLen(ScriptFile())-scriptextlen-vidextlen))
audfile=vidfile
vidext=LeftStr(RightStr(ScriptFile(),scriptextlen+vidextlen),vidextlen)
vidsrc= vidext==".d2v" ? "MPEG2Source" : vidext==".dga" ? "AVCSource" : vidext==".dgi" ? "DGSource" : "LWLibavVideoSource"
audext=vidext==".d2v" ? ".ac3" : vidext==".dgi" ? ".ac3" : vidext
#audext=vidext==".d2v" ? ".dts" : vidext==".dgi" ? ".dts" : vidext
#audext=vidext==".d2v" ? ".wav" : vidext==".dgi" ? ".wav" : vidext
audpid= vidext==".d2v" ? " T80 2_0ch 224Kbps DELAY 0ms" : vidext==".dgi" ? " PID 1100 2.0ch 48KHz 192Kbps DELAY 0ms" :""
#audpid= vidext==".d2v" ? " T81 3_2ch 448Kbps DELAY 0ms" : vidext==".dgi" ? " T81 3_2ch 48KHz 448Kbps DELAY 0ms" :""
audsrc= "LWLibavAudioSource"
Exist(String(vidfolder)+String(vidfile)+String(vidext)) ? Apply(vidsrc,String(vidfolder)+String(vidfile)+String(vidext))\
: Assert(false, "NO SUCH FILE: " + String(vidfolder)+String(vidfile)+String(vidext) + " !")
try {AudioDub(last,Apply(audsrc,String(audfolder)+String(audfile)+String(audpid)+String(audext)))}
catch (err) {last}
# ----- End of AutoPath script head (1 Videostream + 0 or 1 Audiostream) -----