Ersatz für Batch Befehl CHOICE ?

[daedalus]

Hallo Leute

Ich krame gerade in meinen alten Batch-Dateien.
Zumindest bei WinXP kennt der CMD Interpreter den Befehl CHOICE nicht mehr.
Gibt es eine Alternative? :gruebel:

Hier ein Beispiel:

Code:

@echo off
CLS
:loop1
echo Bitte Netzwerkkartentreiber wählen:
echo
echo 1 = Dell Latitude C840
echo 2 = PC ..

choice /c:12   
if errorlevel 2 goto net2    
if errorlevel 1 goto net1  
goto loop1

:net1
echo \net\netbind.com
goto exit

:net2
echo \net\net...
goto exit

:exit
EXIT

[marabu]

Hi.

Schau dir mal den Schalter /P des SET-Befehls an. Damit sollte sich was reißen lassen.

Grüße vom marabu

[turboPASCAL]

Code:

@ECHO OFF
CLS
:Start
ECHO.
ECHO [1] Start Nummer 1
ECHO [2] Start Nummer 2
ECHO [3] Beenden
ECHO.
SET choice=
SET /P choice=Bitte Auswählen (1 bis 3): 
IF NOT ´%choice%´==´´ SET choice=%choice:~0,1%
if ´%choice%´==´1´ goto Run1
if ´%choice%´==´2´ goto Run2
if ´%choice%´==´3´ goto Exit
ECHO "%choice%" ist keine gültige Eingabe. Bitte noch einmal: 
ECHO.
GOTO Start

:Run1
ECHO Start Nummer 1
REM ...
goto end

:Run2
Start Nummer 2
REM ...
goto end

:Exit
ECHO Beendet durch User
GOTO End

:End

Ein Beispiel.

[Sharky]

Zitat:

Zitat von daedalus

... Zumindest bei WinXP kennt der CMD Interpreter den Befehl CHOICE nicht mehr. ...

Ist glaube ich seit NT nicht mehr dabei. Allerdings war CHOICE kein "Befehl" sondern ein externes Programm. Du kannst ja mal sehen ob Du noch ein W98 hast. Dann kannst Du dir das Programm ja kopieren.

[marabu]

Hi Sharky,

wenn ich Unmengen an choice-verseuchten Script-Code hätte, dann würde ich CHOICE aus dem W2K3 resource kit holen. Wenn nicht, dann nehme ich doch lieber einen internen Befehl der command shell mit vergleichbarer Funktionalität.

Grüße vom marabu

[daedalus]

Also mein Batch sieht jetzt so aus:

Code:

@ECHO OFF 
CLS 
:Start 
ECHO. 
ECHO [1] Dell Latitude C840 
ECHO [2] PC001
ECHO [3] Abbruch 
ECHO. 
SET choice= 
SET /P choice=Bitte Auswählen (1 bis 3): 
IF NOT ´%choice%´==´´ SET choice=%choice:~0,1% 
if ´%choice%´==´1´ goto Run1 
if ´%choice%´==´2´ goto Run2 
if ´%choice%´==´3´ goto Exit
ECHO "%choice%" ist keine gueltige Eingabe. Bitte noch einmal: 
ECHO. 
GOTO Start 

:Run1 
echo \net\netbind.com
REM ... 
goto end 

:Run2 
echo \net\net...
REM ... 
goto end 

:Exit 
ECHO Beendet durch User 
GOTO End 

:End

Dank an marabu und turboPASCAL :thumb:

Einziger Wermutstropfen ist die Reaktion wenn nur die Return-Taste betätigt wird:

Code:

"┤==┤1┤" ist syntaktisch an dieser Stelle nicht verarbeitbar.

Das würde ich gern noch abfangen.

[turboPASCAL]

Welches Betriebssystem und gff. welcher Zeichensatz (DOS) ?

Du kannst das ja auch mit einer kleinen Konsolenanwendung machen, Sichwort ShellExecute.

:gruebel:

[daedalus]

Zitat:

Welches Betriebssystem und gff. welcher Zeichensatz (DOS) ?

Codepage 850

Zitat:

Du kannst das ja auch mit einer kleinen Konsolenanwendung machen, Sichwort ShellExecute .

ShellExecute geht leider nicht, denn das batch soll in der autoexec.bat aufgerufen werden.

Aber ich denke ich kann schon gut mit dem aktuellen batch leben...

Nochmals vielen Dank für die Tips :hi:

[turboPASCAL]

Zitat:

Zitat von daedalus

Zitat:

Du kannst das ja auch mit einer kleinen Konsolenanwendung machen, Sichwort ShellExecute.

ShellExecute geht leider nicht, denn das batch soll in der autoexec.bat aufgerufen werden.

:wiejetzt: Was hindert dich daran ?

[Andreas L.]

Ahoi,

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von daedalus

Zitat:

Du kannst das ja auch mit einer kleinen Konsolenanwendung machen, Sichwort ShellExecute.

ShellExecute geht leider nicht, denn das batch soll in der autoexec.bat aufgerufen werden.

:wiejetzt: Was hindert dich daran ?

Naja, dann müsste er aber ein 16-Bit-Programm machen. Also ich gehe davon aus das die autoexec.bat auf irgendeiner Diskette oder USB-Stick liegt und er möchte quasi eine Startdiskette mit Netzwerktreibern machen... Unter WinNT wird ja die autoexec.bat beim Systemstart nicht mehr ausgeführt, dafür hat man Anmeldeskripts ;-)

bye,
Andy

[turboPASCAL]

Das soll nicht funktionieren ?

Delphi-Quellcode:

program Dings;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure Exec(FullFileName: String);
var
  Err : Integer;
begin
  Err := WinExec(@FullFileName[1], SW_SHOWNORMAL);
  if Err <= 31 then
  begin
    WriteLn(''''+FullFileName+'''');
    case Err of
      0                      : WriteLn('The system is out of memory or resources.');
      ERROR_BAD_FORMAT      : WriteLn('The .EXE file is invalid (non-Win32 .EXE'+
                                     ' or error in .EXE image).');
      ERROR_FILE_NOT_FOUND : WriteLn('The specified file was not found.');
      ERROR_PATH_NOT_FOUND : WriteLn('The specified path was not found.');
        else WriteLn('Unkown Error');
    end;
    // Halt;
  end;
end;

procedure WriteChars(AnyChar: Char; Count: Word; NewLine: Boolean);
var i: Word;
begin
  for i := 0 to Count do
    Write(AnyChar);
  if NewLine then Writeln;
end;

function MyStrToInt(s: string; var i: integer): Boolean;
var
  Err: Integer;
begin
  val(s, i, err);
  if err <> 0 then MyStrToInt := False
    else MyStrToInt := True;
end;

var
  s: string;
  n: Integer;

begin
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;
  WriteLn('[1] - Dell Latitude C840');
  WriteLn('[2] - PC001');
  WriteLn('[3] - Abbruch');
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;

  repeat
    Write('Ihre Auswahl: ');
    Readln(s);

    if MyStrToInt(s, n) then
    begin
      case n of
        1: Exec('c:\net\netbind.com');
        2: Exec('c:\net\net.exe');
        3: WriteLn('Abbruch durch User.');
        else Write('Unzulaessige Eingabe. ');
      end;
    end else
      Write('Unzulaessige Eingabe. ');

  until n in [1..3];
end.

[Andreas L.]

Zitat:

Zitat von turboPASCAL

Das soll nicht funktionieren ?

Delphi-Quellcode:

program Dings;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure Exec(FullFileName: String);
var
  Err : Integer;
begin
  Err := WinExec(@FullFileName[1], SW_SHOWNORMAL);
  if Err <= 31 then
  begin
    WriteLn(''''+FullFileName+'''');
    case Err of
      0                      : WriteLn('The system is out of memory or resources.');
      ERROR_BAD_FORMAT      : WriteLn('The .EXE file is invalid (non-Win32 .EXE'+
                                     ' or error in .EXE image).');
      ERROR_FILE_NOT_FOUND : WriteLn('The specified file was not found.');
      ERROR_PATH_NOT_FOUND : WriteLn('The specified path was not found.');
        else WriteLn('Unkown Error');
    end;
    // Halt;
  end;
end;

procedure WriteChars(AnyChar: Char; Count: Word; NewLine: Boolean);
var i: Word;
begin
  for i := 0 to Count do
    Write(AnyChar);
  if NewLine then Writeln;
end;

function MyStrToInt(s: string; var i: integer): Boolean;
var
  Err: Integer;
begin
  val(s, i, err);
  if err <> 0 then MyStrToInt := False
    else MyStrToInt := True;
end;

var
  s: string;
  n: Integer;

begin
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;
  WriteLn('[1] - Dell Latitude C840');
  WriteLn('[2] - PC001');
  WriteLn('[3] - Abbruch');
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;

  repeat
    Write('Ihre Auswahl: ');
    Readln(s);

    if MyStrToInt(s, n) then
    begin
      case n of
        1: Exec('c:\net\netbind.com');
        2: Exec('c:\net\net.exe');
        3: WriteLn('Abbruch durch User.');
        else Write('Unzulaessige Eingabe. ');
      end;
    end else
      Write('Unzulaessige Eingabe. ');

  until n in [1..3];
end.

Wenn du das mit Delphi32 kompilierst, hast du eine Win32-Konsolen-Anwendung. Autoexec.bat kann aber nur DOS-Programme (16-Bit) starten.

[turboPASCAL]

Es gibt ja auch noch Turbo Pascal 5,6,7 oder Delphi 1 oder ... ;)

Delphi-Quellcode:

program dings;

{$M $16000,0,0 }

{----------------------------------------------------------------}

uses Dos;

procedure Exec_(App, Param: string);
begin
  SwapVectors;
  Exec(App, Param);
  SwapVectors;
  if DosError <> 0 then
  begin
    Case DosError of
      2: Writeln('DosError: File not found');
      3: Writeln('DosError: Path not found');
      6: Writeln('DosError: Invalid handle');
      8: Writeln('DosError: Not enough memory');
      else  WriteLn('Dos error #', DosError);
    end;
    Halt;
  end;
end;

{----------------------------------------------------------------}

procedure WriteChars(AnyChar: Char; Count: Word; NewLine: Boolean);
var i: Word;
begin
  for i := 0 to Count do
    Write(AnyChar);
  if NewLine then Writeln;
end;

function MyStrToInt(s: string; var i: integer): Boolean;
var
  Err: Integer;
begin
  val(s, i, err);
  if err <> 0 then MyStrToInt := False
    else MyStrToInt := True;
end;

var
  s: string;
  n: Integer;

begin
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;
  WriteLn('[1] - Dell Latitude C840');
  WriteLn('[2] - PC001');
  WriteLn('[3] - Abbruch');
  WriteLn;
  WriteChars('-', 40, TRUE);
  WriteLn;

  repeat
    Write('Ihre Auswahl: ');
    Readln(s);

    if MyStrToInt(s, n) then
    begin
      case n of
        1: Exec_('c:\net\netbind.com', '');
        2: Exec_('c:\net\net.exe', '');
        3: WriteLn('Abbruch durch User.');
        else Write('Unzulaessige Eingabe. ');
      end;
    end else
      Write('Unzulaessige Eingabe. ');

  until n in [1..3];
end.

Done.

[Jürgen Thomas]

Hallo,

zur Information, falls es noch für andere wichtig ist:

Ich habe für einen Kunden heute genau dieses Problem lösen müssen und festgestellt: Es ist grundsätzlich kein Problem, choice.com (in meinem Fall von Win95) zu kopieren und im cmd-Fenster von WinXP durch eine Batchdatei aufzurufen. Es ist lediglich (wie immer) darauf zu achten, dass dieses Hilfsprogramm auch über den Pfad erreichbar ist.

Jürgen