DosTips.com

Code: Select all

@echo off
setlocal enableExtensions disableDelayedExpansion
if not exist "fibto.exe" call :init
if exist "fibto.pdb" del "fibto.pdb"
for /f %%a in ('echo prompt $E^| cmd') do set "ESC=%%a"

call :getCursorPosition "$cursorPos1"
call :getDeviceAttributes "$deviceAttrib"
set "$"
<nul set /p "=__________"
call :getCursorPosition "$cursorPos2"
set "$cursorPos2"
goto :eof


:: https://docs.microsoft.com/en-us/windows/console/console-virtual-terminal-sequences#query-state
:: Report Cursor Position  : %ESC%[6n
:getCursorPosition
:: %~1  environment variable name to store the result into
if "%~1" == "" goto :eof
set "%~1="
<nul set /p "=%ESC%[6n"
for /f "tokens=* delims=" %%a in ('"fibto.exe"') do set "%~1=%%~a"
goto :eof

:: https://docs.microsoft.com/en-us/windows/console/console-virtual-terminal-sequences#query-state
:: Report Device Attributes: %ESC%[0c
:getDeviceAttributes
:: %~1  environment variable name to store the result into
if "%~1" == "" goto :eof
set "%~1="
<nul set /p "=%ESC%[0c"
for /f "tokens=* delims=" %%a in ('"fibto.exe"') do set "%~1=%%~a"
goto :eof


:compile
for /f "tokens=1 delims=:" %%a in ('findstr  /o /c:"%~1" "%~f0"') do set /a "offset=%%~a"
for /f "tokens=1 delims=:" %%a in ('findstr  /n /r /c:"^.Source = @" "%~f0"') do set /a "sourceOffset=%%~a"
for %%a in ("%ComSpec%") do set "ps.exe=%%~dpaWindowsPowerShell\v1.0\powershell.exe"
if not exist "%ps.exe%" exit /b 2 ERROR_FILE_NOT_FOUND
call rem init ERROR_SUCCESS
"%ps.exe%" "-Command" "$SourceOffset = "%sourceOffset%"; Invoke-Expression $([System.IO.File]::ReadAllText('%~f0').substring(%offset%))"
del
exit /b %errorLevel%

:init
call :compile ^
#powershell
<# <nul exit /b %errorLevel%
	hybrid batch function/powershell comment
#>
Function Get-CurrentLine {
    $Myinvocation.ScriptlineNumber
}

$CompilerAssemblies = (
	"System",
	"Microsoft.CSharp"
)

$CompilerSource = @"
using System;
using System.Collections.Generic;
using Microsoft.CSharp;
using System.CodeDom.Compiler;

namespace Penpen {
	public static class Compiler {
		public static void Compile(string[] assemblies, string source, string mainClass, string exeFileName) {
			var options = new Dictionary<string, string> { { "CompilerVersion", "v4.0" } };
			CSharpCodeProvider compiler = new CSharpCodeProvider(options);
			System.CodeDom.Compiler.CompilerParameters parameters = new CompilerParameters();

			parameters.OutputAssembly = exeFileName;
			if (mainClass != null) {
				parameters.MainClass = mainClass;		// set main entry point of the executable
			}
			if (assemblies != null) {
				for (int i = 0; i < assemblies.Length; ++i) {
					parameters.ReferencedAssemblies.Add(assemblies[i] + ".dll");
				}
			}
			parameters.GenerateExecutable = true;		// true: generate exe; false: generate dll
			parameters.GenerateInMemory = false;		// true: memory; false: disk
			parameters.IncludeDebugInformation = true;	// true: debug; false: release
			parameters.WarningLevel = 4;			// 0: no; 1: severe; 2: +normal; 3: +less severe; 4(default): +informational
			parameters.TreatWarningsAsErrors = true;

			CompilerResults results = compiler.CompileAssemblyFromSource(parameters, source);
			if (results.Errors.Count > 0) {
				foreach(CompilerError CompErr in results.Errors) {
					Console.WriteLine(
						"Line number {0}, Error Number: {1}, '{2}';\r\n",
						(CompErr.Line + 
"@
$CompilerSource += $sourceOffset
$CompilerSource += @"
),
						CompErr.ErrorNumber,
						CompErr.ErrorText
					);
				}
			}
		}
	}
}
"@

$Assemblies = (
	"System",
	"System.Runtime.InteropServices"
)

$Source = @"
using System;
using System.Runtime.InteropServices;

using wchar_t = System.Char;

namespace Penpen {
	public static class FlushInBuffToOut {
		[DllImport("msvcrt.dll", CallingConvention=CallingConvention.Cdecl)]
		static extern int _kbhit();

		[DllImport("msvcrt.dll", CallingConvention=CallingConvention.Cdecl)]
		static extern wchar_t _getwch();


		public const wchar_t ESC = '\u001B';


		public static void Main() {
			wchar_t wch;

			while (_kbhit() != 0) {
				wch = _getwch();

				if (wch == ESC) {
					Console.Write("{0}", "{ESC}");
				} else {
					Console.Write("{0}", wch);
				}
			}
		}
	}
}
"@

#Add-Type -ReferencedAssemblies $Assemblies -TypeDefinition $Source -Language CSharp  
#[Penpen.FlushInBuffToOut]::Main()

Add-Type -ReferencedAssemblies $CompilerAssemblies -TypeDefinition $CompilerSource -Language CSharp
[Penpen.Compiler]::Compile($Assemblies, $Source, "Penpen.FlushInBuffToOut", "fibto.exe")

Code: Select all

@echo off
for /F "delims=#" %%a in ('"prompt #$E# & for %%a in (1) do rem"') do set "ESC=%%a"

call :get_cursor_pos pos
exit /b

:get_cursor_pos
set "response="
set pos=2

:_get_loop
<nul set /p "=%ESC%[6n" 
FOR /L %%# in (1 1 %pos%) DO pause < CON > NUL

for /F "tokens=2 delims=)" %%C in ('"xcopy /L /W ? ? < con"') DO (
	set "char=%%C"
)
set "response=%response%%char%"
set /a pos+=1
if "%char%" NEQ "R" goto :_get_loop

set response
exit /b

Code: Select all

Eine beliebige Taste drücken, um das Kopieren der Datei(en) zu starten 5
0 Datei(en) kopiert
...

Code: Select all

Z:\>test.bat
Batchvorgang abbrechen (J/N)?
^CBatchvorgang abbrechen (J/N)?
^CDas System kann das angegebene Gerät oder die angegebene Datei nicht öffnen.
Drücken Sie eine beliebige Taste . . .
Batchvorgang abbrechen (J/N)?
^C
Z:\>

Code: Select all

@echo off
for /F "delims=#" %%a in ('"prompt #$E# & for %%a in (1) do rem"') do set "ESC=%%a"

call :get_cursor_pos pos
pause
exit /b

:get_cursor_pos
set "response="
set pos=2

:_get_loop
<nul set /p "=%ESC%[6n" 
FOR /L %%# in (1 1 %pos%) DO pause < CON > NUL

set "char="
for /F "tokens=2 delims=)" %%C in ('"xcopy /L /W ? ?"') DO (
	if not defined char set "char=%%C"
)
set "char=%char:~-1%"
set "response=%response%%char%"
set /a pos+=1
if "%char%" NEQ "R" goto :_get_loop

set response
exit /b

Code: Select all

set "char=;"
for /F "tokens=1 skip=1 delims=*" %%C in ('"REPLACE /W ? . < con"') DO (
	set "char=%%C"
)

Code: Select all

@echo off
for /F "delims=#" %%a in ('"prompt #$E# & for %%a in (1) do rem"') do set "ESC=%%a"

call :get_cursor_pos pos
exit /b

:get_cursor_pos
set "response="
set pos=2

:_get_loop
<nul set /p "=%ESC%[6n" 
FOR /L %%# in (1 1 %pos%) DO pause < CON > NUL

set "char=;"
for /F "tokens=1 skip=1 delims=*" %%C in ('"REPLACE /W ? . < con"') DO (
	set "char=%%C"
)
set "response=%response%%char%"
set /a pos+=1
if "%char%" NEQ "R" goto :_get_loop

set response
exit /b

Code: Select all

@echo off
FOR /F "tokens=3 delims=:" %%L in ("%~0") DO goto :%%L

REM *** Save Cursor Position in Memory
<nul set /p "=%\e%7"

REM *** Bring the cursor to x,y=20,20
<nul set /p "=%\e%[20;20H"

REM *** Request Cursor report
<nul set /p "=%\e%[6n"

REM *** Restore Cursor Position from Memory
<nul set /p "=%\e%8"

REM *** Avoids storing the input into the history buffer
call %~d0\:main:\..\%~pnx0 | break
exit /b

:main
for /F "delims=#" %%a in ('"prompt #$E# & for %%a in (1) do rem"') do set "\e=%%a"

REM *** Doskey doesn't support quoted syntax
doskey %\e%[20;20R=This is a doskey macro, unexpected eh?

REM *** Read the cursor report
set "var=[unset]"
<CON >CON set /p "var=Press enter - NOW! "

echo The content of var is "%var%" > CON

Code: Select all

:get_cursor_pos  rtnObj
::
:: If rtnObj is specified, then returns the current cursor position as
::   rtnObj.x = column position (1 = left most column)
::   rtnObj.y = row position (1 = top most row)
:: else writes the current cursor position as {row;col} to the screen.
::
:: Also defines \e to contain an escape character if it is not already defined.
::
if not defined \e for /f "delims=#" %%E in ('"prompt #$E# & for %%a in (1) do rem"') do set "\e=%%E"
setlocal enableDelayedExpansion
set "response="
for /l %%N in (2 1 13) do (
  <nul set /p "=%\e%[6n"
  for /l %%# in (1 1 %%N) do pause < con > nul
  for /f "skip=1 eol=" %%C in ('"replace /w ? . < con"') do (
    if "%%C"=="R" (
      if "%~1" neq "" (
        for /f "delims=; tokens=1,2" %%A in ("!response!") do (
          endlocal
          set "%~1.y=%%A"
          set "%~1.x=%%B"
        )
      ) else echo {!response!}
      exit /b 0
    ) else set "response=!response!%%C"
  )
)
>&2 echo ERROR: get_cursor_pos failed to return a value
exit /b 1

Code: Select all

for /F "delims=#" %%a in ('"prompt #$E# & for %%a in (1) do rem"') do set "\e=%%a"
echo Press some keys, NOW!

REM *** Save Cursor Position in Memory
<nul set /p "=%\e%7"

REM *** Bring cursor to pos 20,20
<nul set /p "=%ESC%[2;2H"
<nul set /p "=%ESC%[6n"

<nul set /p "=%ESC%[3;3H"
<nul set /p "=%ESC%[6n"

REM *** Restore Cursor Position from Memory
<nul set /p "=%\e%8"
ping -n 3 localhost > NUL

<nul set /p "=%ESC%[4;4H"
<nul set /p "=%ESC%[6n"
REM *** Restore Cursor Position from Memory
<nul set /p "=%\e%8"

REM *** Restore Cursor Position from Memory
<nul set /p "=%\e%8"

set /p var=
echo ---------
setlocal EnableDelayedExpansion
echo READ: !var:%\e%=\e!
exit /b