Français
Source/ Codesnippets

Dossier Endung Gleiche Prüfung

 

KompilierenMarqueSéparation
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)
 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

1.827 Views

Untitledvor 0 min.

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie