Txt datei veränden - "steuerung" für VirtualBox

@echo off & setlocal

set "InFile=.\VMs.txt"  


:InputLoop
  cls

  set "ItemNo=1"  

  for /f "usebackq delims=" %%l in ("%InFile%") do (  
    call :PrintItem "%%l"  
  )

  echo.
  set "Selected="  
  set /p "Selected=Wählen Sie eine VM aus (Enter für Abbruch) "  

  if "%Selected%" equ "" goto :Quit  

  set "ItemNo=1"  

  for /f "usebackq delims=" %%l in ("%InFile%") do (  
    set "VMName=%%l"  
    call :FindItem "%Selected%" && goto :Action  
  )

  echo.
  echo Bitte geben Sie eine der angezeigten Nummern ein.
  pause
goto :InputLoop


:Action
echo.
echo Ausgewählte VM: %VMName%


:Quit
echo.
exit /b 0



::****************************************************************
::                        Unterprogramme
::****************************************************************
:PrintItem
  echo %ItemNo% - %~1
  set /a ItemNo+=1
exit /b 0


:FindItem
  if "%ItemNo%" equ "%~1" exit /b 0  
  set /a ItemNo+=1
exit /b 1

 set "VM!cnt!=%%~a" 

"OwnCloud"
"Mail"
"Webs" 

 for /F "tokens=1*" %%a in (Temp.txt) do echo %%a>> Temp1.txt

@echo off & setlocal enabledelayedexpansion
Set /a cnt=0
echo Bitte VM selektieren
echo.
for /f delims^=^"^ tokens^=1 %%a in ('"C:\Program Files\Oracle\VirtualBox\VBoxManage.exe" list vms') DO @(  
    set /a cnt+=1
    set "VM!cnt!=%%~a"  
    echo [!cnt!] - %%~a
)
echo.
set /p answer=Ihre Auswahl [1-!cnt!]:
if %answer% LEQ !cnt! echo Sie haben die VM mit Namen '!VM%answer%!' gewählt