XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei-Prüfung (gleiche Endung)
Lauffähig ab Profan-Version 5.0
titel:    Überprüfen ob Dateien (gleicher Endung) vorhanden.
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    22.01.2001
-----------------------------------------------
Erklärung:
----------
Will man auf eine Datei zugreifen, egal ob zum lesen,
schreiben, anlegen, anzuzeigen, u.s.w
sollte man (hier mit Profanmittel) immer auf deren
Existenz prüfen
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Hier das Erweiterte Beispiel, mit dem man auf Dateien
eines Types, gleiche Endung (z.B.: *.prh) abfragt.
P.S: Man nennt die Endung auch Extension.
Declare ende%				Variablen vorbereiten
Declare Pruef$				hier eine Variable, welche nachher bewusst eine vorhandene Datei zugewiesen bekommt
Window 30,10 - 350,500			Fenster erstellen
Windowtitle Dateiprüfung auf Endungsbasis Titel des Fensters
let pruef$=@FindFirst$(C:WINDOWS*.TXT) 	Die allererste Datei abfragen
Dies muss vor der Schleife passieren.
Auch hier wieder: Der Pfad und die Datei bitte großschreiben!!!
Print *** Textdateien im Verzeichnis Windows **** Als Überschrift
Print pruef$					Erste Datei anzeigen!
In der folgenden Schleife wird auf restliche Dateien nachgefragt.

Whilenot @Equ$(pruef$,)			solange Variable pruef$ nicht leer ist.

    let pruef$=@FindNext$()				sucht nach weiteren *.txt bis keine mehr da ist
    () muss leer bleiben.
    print pruef$
    Wend						zurück zu Whilenot
    nur noch die Hauptschleife - als Dummy damit Programm weiterläuft.

    WhileNot ende%				Solange nicht Variable ende% den Wert 1 hat.

        WaitInput
        Wend					zurück zu Whilenot (Hauptschleife)