www.makemkv.com

Code: Select all

Imports System.Xml
Imports System.IO
Imports System.Text

Public Class Form1

    Dim ini As String = "mkvchaps.ini"
    Dim folderName, result, path, splitname As String
    Dim chapters As String
    Dim cnt As Integer



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.Show()

        If File.Exists(ini) Then
            Dim t As New StreamReader(ini)
            folderName = t.ReadLine()

            CheckExists()

        Else
            CreateINI()
        End If

    End Sub
    Public Sub CheckExists()
        If My.Computer.FileSystem.FileExists(folderName & "\mkvmerge.exe") And My.Computer.FileSystem.FileExists(folderName & "\mkvextract.exe") Then

        Else
            MsgBox("MKVMerge & MKVExtract not found")
            CreateINI()
        End If
    End Sub

    Public Sub CreateINI()
        Dim fileOBJ As System.IO.FileStream
        Dim openFileDialog1 As New OpenFileDialog()
        Dim foldr As New FolderBrowserDialog


        foldr.Description = "Choose folder containing MKVmerge and MKV extract"


        Dim result As DialogResult = foldr.ShowDialog()

        folderName = foldr.SelectedPath
        File.Delete(ini)
        fileOBJ = File.Create(ini)
        Dim objReader As New StreamWriter(fileOBJ)
        objReader.WriteLine(folderName)
        objReader.Close()

        CheckExists()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim openFileDialog1 As New OpenFileDialog()
        Dim temp As String


        openFileDialog1.Filter = "MKV files (*.mkv)|*.mkv"
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            ListBox1.Items.Clear()
            cnt = 0
            result = openFileDialog1.FileName

            temp = "chapters " & Chr(34) & result & Chr(34)

            Dim startinfo1 As New ProcessStartInfo(folderName & "\mkvextract.exe")


            Dim p1 As New Process

            startinfo1.WindowStyle = ProcessWindowStyle.Hidden
            startinfo1.Arguments = temp
            startinfo1.UseShellExecute = False
            startinfo1.CreateNoWindow = True
            startinfo1.RedirectStandardOutput = True
            p1.StartInfo = startinfo1
            p1.Start()


            Dim SR As StreamReader = p1.StandardOutput

            path = IO.Path.GetDirectoryName(result)

            Dim STempFileName = System.IO.Path.GetTempFileName()

            Dim t As New StreamWriter(STempFileName)
            t.Write(SR.ReadToEnd)
            t.Close()
            p1.WaitForExit()
            SR.Close()


            Dim reader As XmlTextReader = New XmlTextReader(STempFileName)



            TextBox1.Text = result
            TextBox2.Text = "split"

            If FileLen(STempFileName) > 0 Then
                chapters = ""
                Do While (reader.Read())
                    Select Case reader.NodeType
                        Case XmlNodeType.Element
                            If reader.Name = "ChapterTimeStart" Then
                                reader.Read()
                                cnt += 1
                                ListBox1.Items.Add("CHAPTER " & Format(cnt, "000") & ": " & reader.Value)
                                If reader.Value <> "00:00:00.000000000" Then
                                    chapters = chapters & reader.Value & ","
                                End If

                            End If
                    End Select
                Loop
                Button2.Visible = True
                TextBox3.Visible = True
                TextBox2.Visible = True
                reader.Close()
            Else
                Button2.Visible = False
                TextBox3.Visible = False
                TextBox2.Visible = False
                ListBox1.Items.Add("no chapters found")
            End If

            File.Delete(STempFileName)
        End If

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim startinfo1 As New ProcessStartInfo(folderName & "\mkvextract.exe")
        Dim temp As String

        startinfo1 = New ProcessStartInfo(folderName & "\mkvmerge.exe")

        temp = Mid(chapters, 1, Len(chapters) - 1)

        temp = "--split timecodes:" & temp & " " & Chr(34) & result & Chr(34) & " -o " & Chr(34) & path & "\" & TextBox2.Text & ".mkv" & Chr(34)

        Dim P1 As New Process
        'startinfo1.WindowStyle = ProcessWindowStyle.Hidden
        startinfo1.Arguments = temp
        startinfo1.UseShellExecute = False
        '        startinfo1.CreateNoWindow = True
        '       startinfo1.RedirectStandardOutput = True
        p1.StartInfo = startinfo1
        P1.Start()
        P1.WaitForExit()


    End Sub

End Class

Code: Select all

SetBatchLines,-1
FileDelete,%a_scriptdir%\Run.bat
Loop, %a_scriptdir%\input\*.mkv
{
	Runwait,%a_scriptdir%\tools\mkvextract.exe -r "%a_loopfilelongpath%.chapterfile_xml" chapters "%a_scriptdir%\input\%a_loopfilename%",,min
	CurrentFileXML_size=0
	FileGetSize,CurrentFileXML_size,%a_loopfilelongpath%.chapterfile_xml
	If CurrentFileXML_size=0
	{
		FileDelete,%a_loopfilelongpath%.chapterfile_xml
		FileMove,%a_loopfilelongpath%,%a_scriptdir%\output source
		Continue
	}
	SplitPath,a_loopfilename,,,,FILE
	FileRead,ChapterFileXML,%a_loopfilelongpath%.chapterfile_xml
	Loop,parse,ChapterFileXML,`n
	{
		IfInString,a_loopfield,`<ChapterTimeStart`>00:00:00.000000000`<`/ChapterTimeStart`>
			Continue
		IfInString,a_loopfield,`<ChapterTimeStart`>
		{
			timecode=
			StringReplace,TimeCode,a_loopfield,`<ChapterTimeStart`>	
			StringReplace,TimeCode,TimeCode,`<`/ChapterTimeStart`>
			StringReplace,TimeCode,TimeCode,`n,,all
			StringReplace,TimeCode,TimeCode,`r,,all
			TimeCodeList=%TimeCodeList%
			TimeCodeList=%TimeCodeList% %TimeCode%
		}
	}
	TimeCodeList=%TimeCodeList%
	StringReplace,TimeCodeList,TimeCodeList,%a_space%,`,,all
	Loop
	{
		IfInString,timecodelist,`,`,
			StringReplace,TimeCodeList,TimeCodeList,`,`,,`,,all
		IfNotInString,timecodelist,`,`,
			Break
	}
	RunWait,%a_scriptdir%\tools\mkvmerge.exe -o "%a_scriptdir%\output\%file%\%a_loopfilename%" --no-chapters "%a_loopfilelongpath%" --split timecodes:%TimeCodeList%,,min
	FileAppend,"%a_scriptdir%\tools\mkvmerge.exe" -o "%a_scriptdir%\output\%file%\%a_loopfilename%" --no-chapters "%a_loopfilelongpath%" --split timecodes:%TimeCodeList% -v`n,run.bat
	timecodelist=
	FileCreateDir,%a_scriptdir%\output\%file%\
	FileMove,%a_loopfilelongpath%,%a_scriptdir%\output source\,1
	FileMove,%a_loopfilelongpath%.chapterfile_xml,%a_scriptdir%\output\%file%\%A_LoopFileName%.xml,1
}

Code: Select all

#!/bin/sh
file=$1
timecodes=`mkvextract chapters -s "${file}"|grep "CHAPTER[0-9][0-9]="|sed '1,1d;:a;N;$!ba;s/CHAPTER[0-9][0-9]\=//g;s/\n/,/g'`
mkvmerge --split timecodes:"${timecodes}" "${file}" -o "%02d_${file}"

Code: Select all

$first = $TRUE;
$timecode = "";
$fileEntries = [IO.Directory]::GetFiles($(get-location),"*.mkv"); 
foreach($fileName in $fileEntries) 
{ 
	mkvextract chapters $fileName -s > temp.txt
	$lines = [IO.File]::ReadAllLines("temp.txt");
	foreach ($line in $lines) {
		if ($line.Contains("=")) {
			$split = $line.Split("=");
			if ($split[0].Contains("NAME")) {
				continue;
			}
			if (!$split[1].CompareTo("00:00:00.000")) {
				continue;
			}
			if ($first) {
				$timecode = $split[1];
				$first = $FALSE;
			}
			else {
			$timecode += "," + $split[1];
			}
		}
	}
	$bareFileName = [IO.Path]::GetFileNameWithoutExtension($fileName);
	mkvmerge --split timecodes:$timecode $fileName -o $bareFileName-%02d.mkv
	Remove-Item temp.txt
}
Write-Host "Press any key to continue..."
$x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")

Code: Select all

@echo off &setlocal EnableDelayedExpansion

set source=%~1
set destination=output\%~nx1

if not exist output\ mkdir output

for /f "usebackq tokens=4" %%i in (`mkvinfo --ui-language en "%source%" ^| findstr /i /c:"ChapterTimeStart: "`) do (
  if defined timecodes set timecodes=!timecodes!,
  set timecodes=!timecodes!%%i
)

mkvmerge -o "%destination%" --split timecodes:%timecodes% "%source%"

endlocal