XProfan

Déclarer Handle lb, liste, edit1, btn1, btn2
Déclarer String pfad, such
Déclarer Long ende
ende = 0
liste = Créer("List", 1)
Titre de la fenêtre "Text - Sucher (XProfan-X4 Version de Heinz Brill)"
Fenêtre 800, 400
Créer("Text", %HWnd, "Suchstring", 10, 10, 90, 25)
edit1 = Créer("Edit", %HWnd, », 100, 10, 180, 25)
btn1  = Créer("Button", %HWnd, "Ordner wählen", 10, 60, 120, 25)
btn2  = Créer("Button", %HWnd, "Start", 180, 60, 60, 25)
lb    = Créer("Listbox", %HWnd, 0, 10, 120, 500, 200)

WhileNot ende

    WaitInput

    Si Clicked(btn1)

        pfad = ChooseDir$("Wähle Dossier !")

    ElseIf Clicked(btn2)

        such = GetText $(edit1)

        Si pfad <> »

            CHDIR pfad

        D'autre

            pfad = $CurrentDir

        EndIf

        Si such <> »

            ClearList liste
            ClearList 0
            Dateisuche()

        D'autre

            MessageBox("Bitte d'abord Suchstring eintragen", "Fehler", 0)

        EndIf

    EndIf

    Cas %Key = 2 : ende = 1

Endwhile

Proc Dateisuche

    AddFiles "*.*"
    Move("ListToHandle", liste)
    ClearList
    ClearList lb
    Set("MoveListMode", 1)

    WhileLoop 0, GetCount(liste) - 1

        Si non InStr("[", GetString$(liste, &LOOP))

            AddStrings(lb, GetString$(liste, &LOOP) + "  date : " + DToc$(GetFDate$(GetString$(liste, &LOOP))) + "   Zeit : " + GetFTime$(GetString$(liste, &LOOP)))
            Move("FileToList", GetString$(liste, &LOOP))
            AddStrings(lb, "     ")

        EndIf

    Endwhile

ENDPROC

MoveListProc
Paramètres String s, Int i
Set("RegEx", 1)

Si Get("MoveListMode") = 1

    Si Match$(such, s) <> »

        AddStrings(lb, Str$(i + 1) + ". la ligne    " + s)

    EndIf

EndIf

Set("RegEx", 0)

ENDPROC