Beiträge von joediboe

# Einstellungen
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")


write-host
write-host "Start"
write-host


# NFO-Dateien suchen
$AktuellerPfad = split-path $SCRIPT:MyInvocation.MyCommand.Path -parent
$mtnPfad = $AktuellerPfad + "\tools\mtn-200808a-win32\mtn.exe"
write-host $mtnPfad
$MP4Dateien = Get-ChildItem -Path $AktuellerPfad -Filter "*YTID-*.mp4"


ForEach ($Datei in $MP4Dateien) {
    # Namen und Adressen definieren
    $DateiName = $Datei.Name -replace(".mp4","")
    $DateiNameSplit = $DateiName -split("YTID-")
    $Name = $DateiNameSplit[0].trim(" ")
    $NameSplit = $Name -split(" - ")
    $Name = $NameSplit[0]
    $YTID = $DateiNameSplit[1].trim(" ")
    write-host "Name: " $Name 
    Write-Host "ID:   " $YTID
    $MaxResAdresse = "https://img.youtube.com/vi/" + $YTID + "/maxresdefault.jpg"
    $FanartName = $AktuellerPfad + "\" + $Name + "-fanart.jpg"
    $PosterName = "-poster.jpg"
    $FilmNameNeu = $AktuellerPfad + "\" + $Name + ".mp4"
    $NFOName = $AktuellerPfad + "\" + $Name + ".nfo"
    Rename-Item $Datei.Name $FilmNameNeu
    
    # Fanart Runterladen
    write-host "Lade Fanart herunter"
    $wc = New-Object System.Net.WebClient
    $wc.DownloadFile($MaxResAdresse, $FanartName)


    # Poster erstellen
    write-host "Erstelle Poster"
    $ErrorActionPreference = "SilentlyContinue"
    &$mtnPfad -c 1 -r 2 -i -o $PosterName -w 951 -P -t -g 7 -k 000000 $FilmNameNeu
    $ErrorActionPreference = "Continue"


    # NFO schreiben
    write-host "Schreibe NFO"
    '<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>' | Out-File $NFOName -Encoding UTF8
    '<movie>' | Out-File $NFOName -Append -Encoding UTF8
    ' <title>' + $Name + '</title>' | Out-File $NFOName -Append -Encoding UTF8
    ' <sorttitle>' + $Name + '</sorttitle>' | Out-File $NFOName -Append -Encoding UTF8
    ' <id>-1</id>' | Out-File $NFOName -Append -Encoding UTF8
    ' <trailer>plugin://plugin.video.youtube/?action=play_video&videoid=' + $YTID + '</trailer>' | Out-File $NFOName -Append -Encoding UTF8
    ' <genre>YoutubeKinderlieder</genre>' | Out-File $NFOName -Append -Encoding UTF8
    ' <set>YoutubeKinderlieder</set>' | Out-File $NFOName -Append -Encoding UTF8
    '</movie>' | Out-File $NFOName -Append -Encoding UTF8
    Write-Host
    
}


$InfoText = "Fertig. Jetzt sollte alles erledigt sein..."
[System.Windows.Forms.Messagebox]::Show($InfoText)

# Input
$ZielOrdner = "C:\Users\blablabla\Ziel\"
$BereitsExportierteFilme = "ExportEVsPS-BereitsExportiert.txt"


# Einstellungen
#$DebugPreference = "Continue"
$DebugPreference = "SilentlyContinue"
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")


# Steuerungs-Abfragen
Write-Host
Write-Host "########################"
Write-Host "###  Einstellungen  ####"
Write-Host "########################"
Write-Host
$Kodi = if($Value=(Read-Host "Sollen Kodi-Dateien mit exportiert werden? (Enter = ja)")){$Value}else{"ja"}
Write-Host
Write-Host "Kodi = " $Kodi
Write-Host
$Verkleinern = if($Value=(Read-Host "Sollen die Videos auf 720p verkleinert werden? (Enter = ja)")){$Value}else{"ja"}
Write-Host
Write-Host "Verkleinern = " $Verkleinern
Write-Host
$NZ = "`r`n"
$DBText = "Datenbank nutzen?" + $NZ + "Dann werden nur Videos exportiert, die noch nicht exportiert wurden." + $NZ + "Und die, die jetzt exportiert werden, kommen in die Datenbank-Datei." + $NZ + "(Enter = ja)"
$Datenbank = if($Value=(Read-Host $DBText)){$Value}else{"ja"}
Write-Host
Write-Host "Datenbank = " $Datenbank
Write-Host
Write-Host "########################"
Write-Host


# NFO-Dateien suchen
$AktuellerPfad = split-path $SCRIPT:MyInvocation.MyCommand.Path -parent
$NFODateien = Get-ChildItem -Path $AktuellerPfad -Recurse -Filter "*.nfo"


# Lege Datei fuer Titel an
$TitelDatei = $AktuellerPfad + "\ExportEVsPS-TitelZumExportieren.txt"
Remove-Item -Path $TitelDatei -ErrorAction SilentlyContinue
$TitelDateiUnsortiert = $AktuellerPfad + "\ExportEVsPS-TitelZumExportierenUnsortiert.txt"
Remove-Item -Path $TitelDateiUnsortiert -ErrorAction SilentlyContinue


# Gehe jede gefundene NFO durch
$DatenbankDatei = $AktuellerPfad + "\" + $BereitsExportierteFilme
$Zaehler = 1
ForEach ($Datei in $NFODateien) {
    $Prozent = (($Zaehler-1) / $NFODateien.Count) * 100
    Write-Debug $Prozent
    Write-Debug $NFODateien.Count
    Write-Progress -Activity "Suche alle Titel aus den NFOs" -PercentComplete $Prozent -Status "Bitte warten"
    $BereitsExportiert = 0
    $DateiName = $Datei -replace(".nfo","")
    Write-Debug $DateiName
    # Checke ob Film in Datenbank (falls DB-Funktion gewaehlt)
    if (($Datenbank -eq "ja") -and (Test-Path $DatenbankDatei)) {
        if (Select-String -Path $DatenbankDatei -Pattern $DateiName -SimpleMatch) {$BereitsExportiert = 1}
        }
    # wenn nicht in DB, schreibe Titel in Datei
    if ($BereitsExportiert -eq 0) {
        $Titelzeile = (Get-Content $Datei.FullName -Encoding UTF8)[2]
        $Titel = $Titelzeile.Trim(" ")
        $Titel = $Titel -replace("<title>","")
        $Titel = $Titel -replace("</title>","") | Out-File $TitelDateiUnsortiert -Append
        }
    $Zaehler++
    }
    Write-Progress -Activity "Suche alle Titel aus den NFOs" -Status "Ready" -Completed
# Checke ob es zu exportierende Filme gibt
if (-not (Test-Path $TitelDateiUnsortiert)) {
    $InfoText = "Anscheinend wurden keine neuen Videos zum Exportieren gefunden. Ich mach deswegen jetzt Feierabend." + $NZ + "Tipp: nfoDateien.txt ist vermutlich gleich lang wie ExportEVsPS-TitelZumExportieren.txt"
    [System.Windows.Forms.Messagebox]::Show($InfoText)
    exit
    }


# Titeldatei sortieren und anzeigen
Get-Content $TitelDateiUnsortiert -Encoding UTF8 | sort -Descending | Out-File $TitelDatei
Remove-Item -Path $TitelDateiUnsortiert -ErrorAction SilentlyContinue
$InfoText = "Die folgende Liste soll die zu exportierenden Titel enthalten." + $NZ + "Sollen alle neuen Filme kopiert werden, so kann die Liste vollstaendig gelassen werden - vorhendene werden nicht neu umgewandelt. Original-Kopien ersetzen aber ggf. umgewandelte falls solche schon vorhanden sind."
write-Host $InfoText
start Notepad++ $TitelDatei
Write-Host
Read-Host -Prompt "Ist die Liste fertig und gespeichert? Dann weiter mit Enter"


# definierte Tool-Pfade
$FFPfad = $AktuellerPfad + "\tools\ffmpeg.exe"


# Gehe alle NFOs nochmal durch und exportiere die gewuenschten
$AnzahlExporte = 0
$Temp = get-content $TitelDatei
foreach ($TempZeile in $Temp) {
    If ($TempZeile.trim()) {$AnzahlExporte = $AnzahlExporte + 1}
    } 
Write-Host $AnzahlExporte "Filme sind zu exportieren"
$Zaehler = 1
ForEach ($Datei in $NFODateien) {
    # Fortschritt
    $Prozent = (($Zaehler-1) / $AnzahlExporte) * 100
    Write-Progress -Activity "Exportiere ausgewählte Filme" -PercentComplete $Prozent -Status ("Film " + $Zaehler + " von " + $AnzahlExporte)
    # Titel ermitteln
    $Titelzeile = (Get-Content $Datei.FullName -Encoding UTF8)[2]
    $Titel = $Titelzeile.Trim(" ")
    $Titel = $Titel -replace("<title>","") -replace("</title>","")




    # Schaue nach, ob Titel in TitelDatei
    if (Select-String -Path $TitelDatei -Pattern $Titel -SimpleMatch -Encoding UTF8) {
        # Datum und Zeit ermitteln
        $Sorttitle = (Get-Content $Datei.FullName -Encoding UTF8)[3]
        $Sorttitle = $Sorttitle.Trim(" ")
        $Sorttitle = $Sorttitle -replace("<sorttitle>","") -replace("</sorttitle>","")
        $Jahr = $Sorttitle.Substring(0,4)
        $Monat = $Sorttitle.Substring(4,2)
        $Tag = $Sorttitle.Substring(6,2)
        $Stunde = $Sorttitle.Substring(9,2)
        $Minute = $Sorttitle.Substring(11,2)
        $Sekunde = $Sorttitle.Substring(13,2)
        # definiere Dateinamen
        $QuelleMP4 = $Datei.FullName -replace(".nfo",".mp4")
        $QuelleFanart = $Datei.FullName -replace(".nfo","-fanart.jpg")
        $QuellePoster = $Datei.FullName -replace(".nfo","-poster.jpg")
        $TitelFuerDateiname = $Titel -replace("(\:\-\))","") -replace ("(\;\-\))","") -replace("(\:\-\/)","") -replace("(\:\-\*)","") -replace("[?:/\\\*!]","") -replace("[\.]+"," ") -replace("[\s]+"," ") -replace('"',"")
        $TitelFuerDateiname = $TitelFuerDateiname.Trim()
        $ZielNFO = $ZielOrdner + $TitelFuerDateiname + ".nfo"
        $ZielMP4 = $ZielOrdner + $TitelFuerDateiname + ".mp4"
        $ZielFanart = $ZielOrdner + $TitelFuerDateiname + "-fanart.jpg"
        $ZielPoster = $ZielOrdner + $TitelFuerDateiname + "-poster.jpg"
        # exportiere jetzt endlich
        if ($Verkleinern -eq "ja") {&$FFPfad -n -i $QuelleMP4 -c:v libx264 -preset slow -tune film -crf 23 -vf scale=-2:720 -c:a copy $ZielMP4}
            else {Copy-Item $QuelleMP4 $ZielMP4}
        if ($Kodi -eq "ja") {
            Copy-Item $Datei.FullName $ZielNFO
            Copy-Item $QuelleFanart $ZielFanart
            Copy-Item $QuellePoster $ZielPoster
            }
        if ($Datenbank -eq "ja") {$DateiName = $Datei -replace(".nfo","") | Out-File $DatenbankDatei -append}
        # Setze Datei-Zeitstempel
        $Zeitstempel = Get-Date -Year $Jahr -Month $Monat -Day $Tag -Hour $Stunde -Minute $Minute -Second $Sekunde
        $VerkleinerteDatei = Get-Item $ZielMP4
        $VerkleinerteDatei.LastWriteTime = $Zeitstempel
        $VerkleinerteDatei.LastAccessTime = $Zeitstempel
        $VerkleinerteDatei.CreationTime = $Zeitstempel
        $Zaehler++
        } # Ende eigentliches exportieren
    } # Ende alle NFO-Dateien nochmal durchgehen und ggf exportieren
    Write-Progress -Activity "Exportiere ausgewählte Filme" -Status "Ready" -Completed


# Aufraeumen und Tschuess sagen
Remove-Item -Path $TitelDatei -ErrorAction SilentlyContinue
$InfoText = "Fertig. Jetzt sollte alles erledigt sein..."
[System.Windows.Forms.Messagebox]::Show($InfoText)

# aktuellen Pfad ermitteln
$AktuellerPfad = split-path $SCRIPT:MyInvocation.MyCommand.Path -parent
$BackupPfad = $AktuellerPfad + "\BackupEinzelfilme"
# definierte Tool-Pfade
$FFPfad = $AktuellerPfad + "\tools\ffmpeg.exe"


# Steuerungs-Abfragen
Write-Host
Write-Host "########################"
Write-Host "###  Einstellungen  ####"
Write-Host "########################"
Write-Host
$Schnitt = if($Value=(Read-Host "Sollen Filme geschnitten werden? (Enter = ja)")){$Value}else{"ja"}
Write-Host
Write-Host "Schnitt = " $Schnitt
Write-Host
Write-Host "########################"
Write-Host


# Schnittinfo-Datei vorbereiten und Header schreiben
$SchnittinfoDatei = $AktuellerPfad + "\Schnittinfo.txt"
Remove-Item -Path $SchnittinfoDatei -ErrorAction SilentlyContinue
"# Info: 00:00:00 bis 00:00:00 = ganzer Film" | Out-File $SchnittinfoDatei -Encoding UTF8
" " | Out-File $SchnittinfoDatei -Append -Encoding UTF8


# ffmpeg-Input-Datei definieren
$ffmpegInput = $AktuellerPfad + "\ffmpegInput.txt"
Remove-Item -Path $ffmpegInput -ErrorAction SilentlyContinue


# MP4-Dateien suchen und in Schittinfo-Datei schreiben
# + Zeitstempel der letzten Datei auslesen (nimm den neuesten)
$MP4Dateien = Get-ChildItem -Path $AktuellerPfad -Filter "*.mp4"
if ($ZeitstempelAlt) {remove-variable "ZeitstempelAlt"}
if ($Zeitstempel) {remove-Variable "Zeitstempel"}
if ($NeuesteDateiAlt) {remove-variable "NeuesteDateiAlt"}
if ($NeuesteDatei) {remove-Variable "NeuesteDatei"}
ForEach ($Datei in $MP4Dateien) {
    "00:00:00 bis 00:00:00 => "+$Datei | Out-File $SchnittinfoDatei -Append -Encoding UTF8
    if ($Zeitstempel) {$ZeitstempelAlt = $Zeitstempel}
    if ($NeuesteDatei) {$NeuesteDateiAlt = $NeuesteDatei}
    $Zeitstempel = $Datei.LastWriteTime
    $NeuesteDatei = $Datei
    if ($Zeitstempel -lt $ZeitstempelAlt) {
        $Zeitstempel = $ZeitstempelAlt
        $NeuesteDatei = $NeuesteDateiAlt
        }
}




# Schnittinfo anzeigen und auf Aenderung warten
if ($Schnitt -eq "ja") {
    start Notepad++ $SchnittinfoDatei
    Write-Host
    Read-Host -Prompt "Ist die Liste fertig und gespeichert? Dann weiter mit Enter"
}


# Schau nach wie viele Filme es sind
$AnzahlFilme = 0
$ZeilenZaehler = 0
$SchnittinfoInhalt = get-content $SchnittinfoDatei
foreach ($Zeile in $SchnittinfoInhalt) {
    $ZeilenZaehler++
    If ($ZeilenZaehler -ge 3) {
        If ($Zeile.trim()) {$AnzahlFilme = $AnzahlFilme + 1}
    } 
}
Write-Host $AnzahlFilme "Filme sollen kombiniert werden"
Write-Host


# Zeilenweise einlesen und ffmpeg-Inputdatei schreiben
$Filmnummer = 0
$ZeilenZaehler = 0
foreach ($Zeile in $SchnittinfoInhalt) {
    $ZeilenZaehler++
    # Inhalt ab Zeile 3 lesen
    If ($ZeilenZaehler -ge 3) {
        $Filmnummer = $Filmnummer + 1
        $Dateiname = $Zeile.Substring(25)
        If ($Zeile -like "*00:00:00 bis 00:00:00*") {
            write-host Film $Filmnummer : - Ganzer Film -: $Dateiname
            Write-Host
            "file '"+$AktuellerPfad+"\"+$Dateiname+"'" | out-file $ffmpegInput -Append -Encoding ASCII
        } else {
            write-host Film $Filmnummer : --- Schnitt ---: $Dateiname
            # Zeiten einlesen und umrechnen
            $StartStunden = $Zeile.Substring(0,2)
            $StartMinuten = $Zeile.Substring(3,2)
            $StartSekunden = $Zeile.Substring(6,2)
            $EndStunden = $Zeile.Substring(13,2)
            $EndMinuten = $Zeile.Substring(16,2)
            $EndSekunden = $Zeile.Substring(19,2)
            $StartZeit = New-TimeSpan -Hour $StartStunden -Minute $StartMinuten -Second $StartSekunden
            $EndZeit = New-TimeSpan -Hour $EndStunden -Minute $EndMinuten -Second $EndSekunden
            $ZeitDauer = $EndZeit - $StartZeit
            $StartZeitString = $StartStunden + ":" + $StartMinuten + ":" + $StartSekunden
            $ZeitDauerString = $ZeitDauer.ToString()
            Write-Host Schneide Filme $Filmnummer : Start $StartZeitString : Dauer $ZeitDauerString
            Write-Host
            # definieren Dateinamen und schneide das Video
            $DateinameSchnitt = $Dateiname -replace(".mp4","-Schnitt.mp4")
            $DateinameMitPfad = $AktuellerPfad + "\" + $Dateiname
            $DateinameSchnittMitPfad = $AktuellerPfad + "\" + $DateinameSchnitt
            &$FFPfad -loglevel error -i $DateinameMitPfad -vcodec copy -acodec copy -ss $StartZeitString -t $ZeitDauerString $DateinameSchnittMitPfad


            # setze Zeitstempel von geschnittener Datei gleich wie Originaldatei
            $DateinameSchnittMitPfadDatei = Get-Item $DateinameSchnittMitPfad
            $DateinameMitPfadDatei = Get-Item $DateinameMitPfad
            $ZeitstempelSchnitt = $DateinameMitPfadDatei.LastWriteTime
            $DateinameSchnittMitPfadDatei.LastWriteTime = $ZeitstempelSchnitt
            $DateinameSchnittMitPfadDatei.LastAccessTime = $ZeitstempelSchnitt
            $DateinameSchnittMitPfadDatei.CreationTime = $ZeitstempelSchnitt
            # verschiebe das Original-Video
            $BackupDateinameMitPfad = $BackupPfad + "\" + $Dateiname
            Move-Item $DateinameMitPfad $BackupDateinameMitPfad
            # schreibe den Schnitt-Dateinamen in die ffmpeg-Input-Datei
            "file '"+$AktuellerPfad+"\"+$DateinameSchnitt+"'" | out-file $ffmpegInput -Append -Encoding ASCII
        }


    } 
}


# Check ob mehr nur 1 Film geschnitten werden sollte
if ($AnzahlFilme -le 1) {
    write-host "Es ist nur ein Film vorhanden, deswegen ueberspringe ich das Zusammfuegen"
} else {


    # Fuege die Videos zusammen
    Write-Host "Ich klebe jetzt die Videos zusammen"
    Write-Host
    $KombiName = $AktuellerPfad+"\"+$NeuesteDatei -replace(".mp4","-Kombi.mp4")
    &$FFPfad -loglevel error -f concat -safe 0 -i $ffmpegInput -c copy $KombiName


    # setze Zeitstempel
    $KombiNameDatei = Get-Item $KombiName
    $KombiNameDatei.LastWriteTime = $Zeitstempel
    $KombiNameDatei.LastAccessTime = $Zeitstempel
    $KombiNameDatei.CreationTime = $Zeitstempel


    # Schiebe die Einzelvideos ins Backup
    $ZeilenZaehler = 0
    $ffmpegInputInhalt = get-content $ffmpegInput
    foreach ($Zeile in $ffmpegInputInhalt) {
        $ZeilenZaehler++
        # Inhalt lesen
        $DateinameMitPfad = $Zeile.Substring(6)
        $DateinameMitPfad = $DateinameMitPfad.Substring(0,$DateinameMitPfad.Length-1)
        $BackupDateinameMitPfad = $DateinameMitPfad.Replace($AktuellerPfad,$BackupPfad)
        Move-Item $DateinameMitPfad $BackupDateinameMitPfad
    }
}


# aufraeumen
Remove-Item -Path $SchnittinfoDatei -ErrorAction SilentlyContinue
Remove-Item -Path $ffmpegInput -ErrorAction SilentlyContinue
Write-Host "########################"
write-host "#######  Fertig  #######"
Write-Host "########################"

@echo off
setlocal enabledelayedexpansion
chcp 65001>NUL
set Dateityp=mp4
set /A Zaehler=0
echo cmd-Version 03
	rem neu in 03 - year tag hinzu
echo ##############
for %%f in ("%~dp0*.%Dateityp%") do set /A Zaehler=Zaehler+1
echo Es ist/sind %Zaehler% Film(e) zu sortieren.
echo Ich oeffne jetzt einen nach dem anderen
echo und frage dann nach einem Namen dafuer,
echo den Rest kann ich alleine :-)
echo ##### los geht's #####
pause
set /A Schleife=0
for %%f in ("%~dp0*.%Dateityp%") do (
  set /A Schleife=Schleife+1
  echo ### Beginne Film !Schleife! von !Zaehler! ###
  start %%f
  if not exist %%~nf-fanart.jpg (
    "C:\Program Files (x86)\Movie_Thumbnailer\mtn-200808a-win32\mtn.exe" -c 1 -r 1 -i -o -fanart.jpg -w 1920 -P -t %%f
    echo.
    echo Fanart fuer Film !Schleife! erstellt!
  ) else (
    echo.
    echo Fanart fuer Film !Schleife! schon vorhanden, nicht neu erstellt
  )
  if not exist %%~nf-poster.jpg ( 
    "C:\Program Files (x86)\Movie_Thumbnailer\mtn-200808a-win32\mtn.exe" -c 1 -r 2 -i -o -poster.jpg -w 951 -P -t -g 7 -k 000000 %%f
    echo.
    echo Poster fuer Film !Schleife! erstellt!
    echo.
  ) else (
    echo.
    echo Poster fuer Film !Schleife! schon vorhanden, nicht neu erstellt
    echo.
  )
  set Zeit=%%~tf
  set dd=!Zeit:~0,2!
  set mm=!Zeit:~3,2!
  set yyyy=!Zeit:~6,4!
  set hh=!Zeit:~11,2!
  set min=!Zeit:~14,2!
  echo Der Film wurde am !dd!.!mm!.!yyyy! um !hh!:!min! aufgenommen
  echo.
  echo Wie soll der gerade gesehene Film denn 
  set /p Benennung=heissen? [del = loeschen] 
  if !Benennung!==del (
    echo Film wird geloescht
    del %%~nf-fanart.jpg
    del %%~nf-poster.jpg
    del %%f
    echo ### Film !Schleife! geloescht ###
  ) else (
    echo.
    set peinlich=
    echo Ist auf dem Film etwas, was spaeter mal peinlich sein koennte und nur 
    echo von uns gesehen werden sollte? Nackig strampeln beim Wickeln oder so?
    set /p peinlich=Ja, ja, J oder j gilt als ja, alles andere ist nein: 
    if not defined peinlich set peinlich=Nein
    echo Peinlich: !peinlich!
    for %%i in (Ja ja J j) do if [%%i]==[!peinlich!] echo Video wurde als peinlich markiert
    echo.
    set NFO=%%~dpf%%~nf.nfo
    echo Alles klar, ich erstelle jetzt die nfo-Datei: 
    echo %%~nf.nfo
      echo.^<?xml version="1.0" encoding="UTF-8" standalone="yes" ?^>> !NFO!
      echo.^<movie^>>> !NFO!
      echo. ^<title^>!yyyy!-!mm!-!dd! !Benennung!^</title^>>> !NFO!
      echo. ^<sorttitle^>!yyyy!!mm!!dd!_!hh!!min!00^</sorttitle^>>> !NFO!
      echo. ^<id^>-1^</id^>>> !NFO!
      echo. ^<genre^>EigeneVideos^</genre^>>> !NFO!
      echo. ^<set^>Eigene Videos^</set^>>> !NFO!
	  echo. ^<year^>!yyyy!^</year^>>> !NFO!
      for %%i in (Ja ja J j) do if [%%i]==[!peinlich!] echo. ^<tag^>peinlich^</tag^>>> !NFO!
      echo. ^<dateadded^>!yyyy!-!mm!-!dd! !hh!:!min!:00^</dateadded^>>> !NFO!
	  echo.^</movie^>>> !NFO!
    md %%~dpf%%~nf
    move %%~dpnf* %%~dpf%%~nf\
    echo ### Film !Schleife! von !Zaehler! fertig ###
  )
)
pause

@echo off
setlocal enabledelayedexpansion
chcp 65001>NUL
set Dateityp=mp4
set /A Zaehler=0
for %%f in ("%~dp0*.%Dateityp%") do set /A Zaehler=Zaehler+1
echo Es ist/sind %Zaehler% Film(e) zu sortieren.
echo Ich oeffne jetzt einen Film nach dem anderen
echo und frage dann jeweils nach einem Namen dafuer,
echo den Rest kann ich alleine :-)
echo ##### los geht's #####
pause
set /A Schleife=0
for %%f in ("%~dp0*.%Dateityp%") do (
  set /A Schleife=Schleife+1
  echo ### Beginne Film !Schleife! von !Zaehler! ###
  start %%f
  if not exist %%~nf-fanart.jpg (
    %~dp0tools\mtn-200808a-win32\mtn.exe -c 1 -r 1 -i -o -fanart.jpg -w 1920 -P -t %%f
    echo.
    echo Fanart fuer Film !Schleife! erstellt!
    ) else (
    echo.
    echo Fanart fuer Film !Schleife! schon vorhanden, nicht neu erstellt
    )
  if not exist %%~nf-poster.jpg ( 
    %~dp0tools\mtn-200808a-win32\mtn.exe -c 1 -r 2 -i -o -poster.jpg -w 951 -P -t -g 7 -k 000000 %%f
    echo.
    echo Poster fuer Film !Schleife! erstellt!
    echo.
    ) else (
    echo.
    echo Poster fuer Film !Schleife! schon vorhanden, nicht neu erstellt
    echo.
    )
  set Zeit=%%~tf
  set dd=!Zeit:~0,2!
  set mm=!Zeit:~3,2!
  set yyyy=!Zeit:~6,4!
  set hh=!Zeit:~11,2!
  set min=!Zeit:~14,2!
  echo Der Film wurde am !dd!.!mm!.!yyyy! um !hh!:!min! aufgenommen
  echo.
  set /p Benennung=Wie soll der gerade gesehene Film denn heissen? 
  set NFO=%%~dpf%%~nf.nfo
  echo Alles klar, ich erstelle jetzt die nfo-Datei: 
  echo %%~nf.nfo
    echo.^<?xml version="1.0" encoding="UTF-8" standalone="yes" ?^>> !NFO!
    echo.^<movie^>>> !NFO!
    echo.    ^<title^>!yyyy!-!mm!-!dd! !Benennung!^</title^>>> !NFO!
    echo.    ^<sorttitle^>!yyyy!!mm!!dd!_!hh!!min!00^</sorttitle^>>> !NFO!
    echo.    ^<id^>-1^</id^>>> !NFO!
    echo.    ^<genre^>EigeneVideos^</genre^>>> !NFO!
    echo.    ^<set^>Eigene Videos^</set^>>> !NFO!
    echo.^</movie^>>> !NFO!
  md %%~dpf%%~nf
  move %%~dpnf* %%~dpf%%~nf\
  echo ### Film !Schleife! von !Zaehler! fertig ###
    )
pause