XProfan

Declarar Handle lb, liste, edit1, btn1, btn2
Declarar String pfad, such
Declarar Largo ende
ende = 0
liste = Crear("List", 1)
Título de la ventana "Text - Sucher (XProfan-X4 Versión de Heinz Brill)"
Ventana 800, 400
Crear("Text", %HWnd, "Suchstring", 10, 10, 90, 25)
edit1 = Crear("Edit", %HWnd, "", 100, 10, 180, 25)
btn1  = Crear("Button", %HWnd, "Ordner wählen", 10, 60, 120, 25)
btn2  = Crear("Button", %HWnd, "Start", 180, 60, 60, 25)
lb    = Crear("Listbox", %HWnd, 0, 10, 120, 500, 200)

Sinestar encargado ende

    WaitInput

    If Clicked(btn1)

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

    ElseIf Clicked(btn2)

        such = GetText $(edit1)

        If pfad <> ""

            CHDIR pfad

        Más

            pfad = $CurrentDir

        EndIf

        If such <> ""

            ClearList liste
            ClearList 0
            Dateisuche()

        Más

            MessageBox("Bitte zuerst Suchstring eintragen", "Fehler", 0)

        EndIf

    EndIf

    Case %Key = 2 : ende = 1

EndWhile

Proc Dateisuche

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

    WhileLoop 0, GetCount(liste) - 1

        Caso negativo InStr("[", GetString$(liste, &LOOP))

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

        EndIf

    EndWhile

ENDPROC

MoveListProc
Parámetros String s, Int i
Conjunto("RegEx", 1)

If Get("MoveListMode") = 1

    If Match$(such, s) <> ""

        AddStrings(lb, Str$(i + 1) + ". Línea    " + s)

    EndIf

EndIf

Conjunto("RegEx", 0)

ENDPROC