Batch - Zufallszeilen aus txt-Datei anzeigen. Einige Macken im Skript

@echo off
:: Variablen sind nur in diesem Fenster aktiv
setlocal

REM Skript zeigt zufällige Zeilen aus einer Textdatei an

REM Die Zitate dürfen keine Umlaute ß und andere Sonderzeichen enthalten
REM Oder man speichert die Textdatei nicht als ANSI sondern OEM oder DOS oder OEM850 als Kodierung
REM Wenn Editor das nicht kann, dann DOS-Editor (in cmd Edit eingeben)
REM evtl. muß man für andere Codepages/unicode die Console auf Lucida Schrift umstellen!
REM Damit lange Zitate nicht rechts auslaufen (mit Laufleiste) sondern automatisch umgebrochen werden, muß man beim CMD-Fenster-Eigenschaften den Breiten-Puffer dem Fenster-Puffer anpassen


::Einstellungen
::===========================================================================================================================

:: Fenstergröße Zeile,Spalte Anzahl
mode 81,5

:: Fenstertitel ändern
title ______Zitate______

:: Fensterfarbe
COLOR f1

:: Codepage des cmd-Fensters einstellen
:: Multi (DE) - für Textkodierungen wie DOS, OEM 850 u.ä.
rem CHCP 850 > nul
:: Windows 1252 - Kyrillische-Zeichen werden schon in Textdatei nicht angezeigt
CHCP 1252 > nul
:: Cyrillic - Text muß man auf OEM-855 kodieren. Umlaute werden ohne Punkte angezeigt, ß als Fragezeichen, Consolenfenster auf "Lucida Console" einstellen 
rem CHCP 855 > nul
::Russian - Text muß man auf OEM-866 kodieren. Umlaute werden ohne Punkte angezeigt. ß als Fragezeichen.  Consolenfenster auf "Lucida Console" einstellen 
rem CHCP 866 > nul
::UTF-8 - Funktioniert nicht, Fenster wird geschlossen
rem CHCP 65001 > nul

:: Pfad zu der Datei anpassen, in der die Fremdwörter/Zitate drin  stehen :
set "MyFile=Zitate.txt"  
::=================================================================================================================================



:: Falls temporäre Datei existiert, dann löschen
if exist %temp%\tmp.txt del %temp%\tmp.txt

:: Temporäre Datei mit vorangestellter Zeilennummerierung schreiben
for /f "tokens=*" %%i in ('type %MyFile%^|findstr /n .') do echo %%i>>%temp%\tmp.txt  

:: Zeilen zählen:
for /f "tokens=*" %%i in ('type %MyFile%^|findstr /n .') do for /f "delims=: tokens=1" %%j in ("%%i") do set /a counter=%%j  

:loop
cls
:: Zufallszahl von 1 bis Anzahl Zeilen
:: (Der erste Random-Aufruf geht ins Leere, weil erst beim zweiten Aufruf eine wirkliche Zufallszahl rauskommt.)
echo %random%>nul

::Komischerweise werden einstellige Zeilennummern nicht angezeigt (erst ab Zeile Nr. 10), und größere Zahlen kommen öfters vor
::set /a rdm=(%random%*%counter%/32767)+1
::set /a rdm=1+%counter%*%random%/32768

rem deshalb diese Methode probiert (Vorschlag von Biber, gefunden in [content:21951#81715]  )
rem Beispiel, wenn man Zufallszahl zwischen 1 und 500 haben will, dann Set /a Variable=%random% %500 + 1 und in Batch %%500 + 1 (ohne +1 wird auch 0 gezählt)
::auch hier wieder werden einstellige Zeilennummern nicht angezeigt, obwohl es in cmd-Fenster geht
set /a rdm=%random% %%counter + 1

::evtl. funzt die Zählschleife nicht richtig. Evtl. mit manueller Zeilennnummer machen z.B. Am Ende der Textdatei, oder am Ende eine Markierung machen z.B. ---Ende--- und dort Zeile auslesen
::Manchmal werden auch zwei Zeilen auf einmal angezeigt (aber das ist nicht so schlimm wie Macke mit Zufallszahlen) z.B. Zeilen 35 und darunter 45 oder 38 und 48

::echo.
:: Zufällige Zeile (in temporär erstellten Text-Datei) finden
echo.
findstr /L %rdm%: %temp%\tmp.txt
echo.


:: Zeit in Sekunden (wie schnell werden andere Zeilen angezeigt)
rem Zum Testen erst auf Paar Sekunden gestellt für Schnelldurchlauf
@ping -n 2 localhost> nul
cls
goto loop


rem Man kann es wohl auch ohne temp-Datei lösen, wenn man die Originalzitate durchnummeriert (ich weiß aber nicht genau wie)