Rem CMD wird ausgeblendet und Fortsetzung nach Abbruch sichergestellt

if exist start.vbs goto anfang
echo 0 >stood1.log
FOR /F "tokens=1* delims= "  %%i  IN (stood1.log) DO echo %%i>stood.log
del stood1.log
set destination=%~dp0%
for %%I in (.) do echo %%~sI\quiz.bat  >zyx.txt
set /p quizpfad=<zyx.txt
>"%destination%start.vbs"  ECHO Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%destination%start.vbs"  ECHO Return = WshShell.Run("%quizpfad%", 0, true)
>>"%destination%start.vbs"  ECHO Set WshShell = Nothing
start "" "start.vbs"
del zyx.txt
exit

Rem ein Schleifendurchlauf beinhaltet eine Frage und zugehoerige Antworten

Rem los geht es mit einer Frage 

:anfang
>"%destination%frage.vbs"  ECHO ZielDatei = "quest.txt"
>>"%destination%frage.vbs"  ECHO username=InputBox ("Geben Sie eine Frage mit Semikolon und Antwortanzahl ein z. B. Frage;3","Frage","Frage;3")
>>"%destination%frage.vbs"  ECHO CreateObject("Scripting.FileSystemObject").CreateTextFile(ZielDatei, true).WriteLine username
start /wait frage.vbs
FOR /F "tokens=1,2* delims=;"  %%i  IN (quest.txt) DO echo %%j>zhlfrg.log
FOR /F "tokens=1,2* delims=;"  %%i  IN (quest.txt) DO echo ^<TR^>^<TD^>%%i^</TD^>^</TR^>^<TR^>^<TD^> >>bodyjava.txt 
set /p ende=<zhlfrg.log
set /a a=0

REM ab hier werden belieig viele Antworten in einer Schleife generiert

:answer
if %a% equ %ende% goto ente
set /a a=%a%+1
>"%destination%antwort.vbs"  ECHO ZielDatei = "answ.txt"
>>"%destination%antwort.vbs"  ECHO username=InputBox ("Geben Sie eine richtige Antwort mit Semikolon 1 und eine falsche Antwort mit Semikolon und 0 ein, z. B. Antwort;0","Antwort","Antwort;0")
>>"%destination%antwort.vbs"  ECHO CreateObject("Scripting.FileSystemObject").CreateTextFile(ZielDatei, true).WriteLine username
start /wait antwort.vbs
FOR /F "tokens=1,2* delims=;"  %%i  IN (answ.txt) DO echo %%i>antwort.log
FOR /F "tokens=1,2* delims=;"  %%i  IN (answ.txt) DO echo %%j>zhlntwrt.log

Rem ab hier werden die Anworten einzeln in vier Hilfsdokumenten zusammengesetzt

Rem zuerst richtig und falsch jeder einzelnen Javascriptabfrage

set /p vergleich=<zhlntwrt.log
if %vergleich% geq 1 echo richtig>flschrchtg.log
if %vergleich% neq 1 echo falsch>flschrchtg.log
set /p antw=<flschrchtg.log
set /p stand=<stood.log

>>"%destination%checkeinzeln.txt"  ECHO if (document.quizForm.q%stand%.checked)
set /a stand=%stand%+1
echo %stand% >stood1.log
FOR /F "tokens=1* delims= "  %%i  IN (stood1.log) DO echo %%i>stood.log
del stood1.log 
>>"%destination%checkeinzeln.txt"  ECHO    document.quizForm.Antwort%stand%.value = "%antw%";
>>"%destination%checkeinzeln.txt"  ECHO var element = document.getElementById("Antwort%stand%");
>>"%destination%checkeinzeln.txt"  ECHO if (element.value == "%antw%");
>>"%destination%checkeinzeln.txt"  ECHO element.className = '%antw%';
  
Rem weiter geht es mit der allgemeinen Auszaehlung fuer die Endauswertung

set /a altstd=%stand%-1
>>"%destination%zaehlung.txt"  ECHO if (document.quizForm.q%altstd%.checked)
if %vergleich% geq 1 goto right
>>"%destination%zaehlung.txt"  ECHO     var scor = scor - ab;
if %vergleich% neq 1 goto weiter
: right
>>"%destination%zaehlung.txt"  ECHO    var scor = scor + dazu;
:weiter

REM jetzt noch den Scriptteil vom Html in Reihenfolge erstellen

set /p answer=<antwort.log 
>>"%destination%bodyjava.txt"  ECHO %answer% ^<INPUT TYPE="checkbox" NAME="q%altstd%" VALUE="%antw%"^>
>>"%destination%bodyjava1.txt"  ECHO ^<TD^>Antwort%stand% ^<INPUT TYPE="TEXTBOX" NAME="Antwort%stand%" id=Antwort%stand% VALUE="" SIZE="7"^>^</TD^>
if %a% equ %ende% goto kop
goto answer

Rem nach letzter Antwort einer Frage muss das Javascript geschlossen werden 

:kop
>>"%destination%bodyjava.txt"  ECHO ^</TR^>
>>"%destination%bodyjava1.txt"  ECHO ^<TD^>^<TR^>
for /f "TOKENS=*" %%a in ('dir bodyjava.txt /b') do type "%%a" >> get.txt
for /f "TOKENS=*" %%a in ('dir bodyjava1.txt /b') do type "%%a" >> get.txt
del bodyjava.txt
del bodyjava1.txt
goto answer

:ente

Rem Frage nach Ende oder weiteren Durchlauf von einer Frage und beliebig vielen Antworten

>"%destination%frage.vbs"  ECHO ZielDatei = "ende.log"
>>"%destination%frage.vbs"  ECHO username=InputBox ("Geben Sie für eine weitere Frage WEITER kleingeschrieben, sonst ENDE kleingeschrieben ein","Fragenende","ende")
>>"%destination%frage.vbs"  ECHO CreateObject("Scripting.FileSystemObject").CreateTextFile(ZielDatei, true).WriteLine username
start /wait frage.vbs
set /p  further=<ende.log
If %further% equ ende goto create
if %further% equ weiter goto anfang
if %further% nqu weiter goto trouble

Rem Zusammensetzen der Webseite

:create
>"%destination%quiz.htm"  ECHO ^<html^>
>>"%destination%quiz.htm"  ECHO   ^<head^>
>>"%destination%quiz.htm"  ECHO     ^<meta name="generator" content="HTML Studio"^>
>>"%destination%quiz.htm"  ECHO     ^<title^>Quiz^</title^>
>>"%destination%quiz.htm"  ECHO     ^<meta name="author" content="Sternenhimmelstuermer"^>
>>"%destination%quiz.htm"  ECHO     ^<meta name="description" content="Quiz multiple Choice"^>
>>"%destination%quiz.htm"  ECHO      ^<style type="text/css"^>
>>"%destination%quiz.htm"  ECHO input {
>>"%destination%quiz.htm"  ECHO     padding: 4px 6px;
>>"%destination%quiz.htm"  ECHO     border: 1px solid #555;
>>"%destination%quiz.htm"  ECHO     background-color: #fafafa;
>>"%destination%quiz.htm"  ECHO }
>>"%destination%quiz.htm"  ECHO input.falsch {
>>"%destination%quiz.htm"  ECHO    border-color: red;
>>"%destination%quiz.htm"  ECHO    background-color: #FF3300;
>>"%destination%quiz.htm"  ECHO }
>>"%destination%quiz.htm"  ECHO input.richtig {
>>"%destination%quiz.htm"  ECHO border-color: green;
>>"%destination%quiz.htm"  ECHO background-color: #33FF33;
>>"%destination%quiz.htm"  ECHO ^</style^>
>>"%destination%quiz.htm"  ECHO     ^<SCRIPT LANGUAGE="JavaScript"^>^<!--
>>"%destination%quiz.htm"  ECHO function einzeln() {
for /f "TOKENS=*" %%a in ('dir checkeinzeln.txt /b') do type "%%a" >> quiz.htm
>>"%destination%quiz.htm"  ECHO }
>>"%destination%quiz.htm"  ECHO function count() {
>>"%destination%quiz.htm"  ECHO var scor = 0
>>"%destination%quiz.htm"  ECHO var dazu = 1
>>"%destination%quiz.htm"  ECHO var ab   = 1
for /f "TOKENS=*" %%a in ('dir zaehlung.txt /b') do type "%%a" >> quiz.htm 
>>"%destination%quiz.htm"  ECHO  document.quizForm.Antwort.value = scor  
>>"%destination%quiz.htm"  ECHO  }
>>"%destination%quiz.htm"  ECHO  //--^>^</SCRIPT^>
>>"%destination%quiz.htm"  ECHO    ^</head^>
>>"%destination%quiz.htm"  ECHO    ^<body^>
>>"%destination%quiz.htm"  ECHO   ^<center^>
>>"%destination%quiz.htm"  ECHO   ^<FORM NAME="quizForm"^>
>>"%destination%quiz.htm"  ECHO   ^<TABLE^>
for /f "TOKENS=*" %%a in ('dir get.txt /b') do type "%%a" >> quiz.htm 
>>"%destination%quiz.htm"  ECHO   ^</TABLE^>
>>"%destination%quiz.htm"  ECHO ^<P^>
>>"%destination%quiz.htm"  ECHO ^<INPUT TYPE="BUTTON" onClick="einzeln(),count()" VALUE="Ergebnis"^>
>>"%destination%quiz.htm"  ECHO Antwort: ^<INPUT TYPE="TEXTBOX" NAME="Antwort" VALUE="" SIZE="3"^>^</P^>
>>"%destination%quiz.htm"  ECHO ^</FORM^>^</center^>
>>"%destination%quiz.htm"  ECHO ^</body^>
>>"%destination%quiz.htm"  ECHO  ^</html^>

Rem Hilfsdokumente loeschen

del answ.txt
del antwort.log
del checkeinzeln.txt
del ende.log
del flschrchtg.log
del quest.txt
del stood.log
del zaehlung.txt
del zhlfrg.log
del zhlntwrt.log
del antwort.vbs
del frage.vbs
del start.vbs
del get.txt
:trouble
exit