Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   30.12.21 21:32

Das Ausfiltern der unerwünschten Dateien und Ordnern
([...]) geht doch ganz einfach mit regulären Ausdrücken.

 Declare Handle lb, liste, btn1
 Declare Long ende
 
 ende = 0
 Set("RegEx", 1)
 
 Window 600, 400
 btn1  = Create("Button", %HWnd, "Ende", 10, 10, 60, 25)
 lb    = Create("Listbox", %HWnd, 0, 10, 50, 200, 150)
 liste = Create("List", 0) ' unsichtbare Listbox zum Kopieren
 
 ChDir "C:\Temp"  ' PFAD anpassen
 ClearList
 AddFiles "*.*"
 Move("ListToHandle", liste)
 ClearList
 Set("MoveListMode", 1)
 Move("HandleToList", liste)
 Move("ListToHandle", lb)
 
 WhileNot ende
   WaitInput
   If Clicked(btn1)
      ende = 1
   EndIf
 EndWhile
 Set("MoveListMode", 0)
 Set("RegEx", 0)
 End
 
 MoveListProc
 Parameters string s, int i
 If Get("MoveListMode") = 1
    If InStr("((?i)Exe|(?i)Bat|~[|~])", s) = 0
       AddString(0, s)
    EndIf 
 EndIf
 EndProc
 


Ich hoffe, du hast Version X4. Andernfalls mußt du aus der
MoveListProc eine normale Proc machen und aufrufen :
 Proc SortiereListe
 WhileLoop 0, GetCount(liste) -1
     s = GetString$(liste, &LOOP)
     If InStr("((?i)Exe|(?i)Bat|~[|~])", s) = 0
       AddString(0, s)
    EndIf 
 EndProc
 


Das wäre das Einfachste.

H.Brill
XProfan X4 + FreeProfan

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 19.12.21 13:49 
 Re: Hat sich erledigt.  Neu
p. specht 19.12.21 22:37 
 Re: Hat sich erledigt.  Neu
Heinz Brill 20.12.21 07:23 
 Re: Hat sich erledigt.  Neu
p. specht 20.12.21 13:34 
 Re: Hat sich erledigt.  Neu
peter 30.12.21 11:12 
 Re: Hat sich erledigt.  Neu
Heinz Brill 30.12.21 17:47 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 19:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 30.12.21 21:32 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 21:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 10:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 31.12.21 13:46 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 17:08 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 11:00 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 01.01.22 13:58 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 18:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 09:09 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 02.01.22 09:28 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 13:39 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org