XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Text chercher (dans Fichiers)
Lauffähig ab Profan-Version 5.0
declare i%,listbox1&,Listbox2&,eingabe$,button0&
declare fichier$,la ligne$,fichier$,z%,ok%,edit2&,fz$
declare ok$,edit&,button1&,button2&,len%,fz2$,numéro$
declare radiobutton1&,radiobutton2&,trouvé%,text&

PROC KLICK          WICHTIG WEGEN EINFACHKLICK

    getmessage
    Cas (%message,512): Retour

ENDPROC

PROC SEARCH

    let trouvé%=0
    @destroywindow(Listbox1&)  Um erneut trop füllen
    @destroywindow(Listbox2&)  Um erneut trop füllen
    et wiederherstellen
    Laisser ListBox2&=CreateListBox(%hwnd,,10,200,472,97)
    Laisser ListBox1&=CreateListBox(%hwnd,,10,10,472,97)
    FILEMODE 0
    let I%=0
    let eingabe$=GETTEXT$(EDIT&)
    assign #1,fichier$
    reset #1
    Claire ok$

    whilenot eof(#1)

        input #1,la ligne$
        addstring(LISTBOX1&,@UPPER$(la ligne$))

    Wend

    close #1
    assign #1,fichier$
    reset #1
    cas @GetCheck(Radiobutton1&):let eingabe$=eingabe$;
    let fz$=mid$(eingabe$,1,1)
    len%=@Len(eingabe$)

    whilenot eof(#1)

        input #1,la ligne$
        let OK$=getstring$(LISTBOX1&,i%)
        let ok%=@Instr(upper$(eingabe$),OK$)

        si @gt(ok%,0)

            si @GetCheck(Radiobutton1&)

                let OK$=@Mid $(OK$,ok%,len%)
                let ok$=upper$(ok$)
                let ok$=ok$;
                la ligne$=@Trim$(la ligne$)
                let fz2$=mid$(la ligne$,1,1)
                let eingabe$=upper$(eingabe$,)

                si @and( @equ$(eingabe$,ok$),equ$(fz$,fz2$))

                    ADDString(LISTBOX2&,la ligne$)
                    inc trouvé%
                    let numéro$=Es wurden ,trouvé%;x ,eingabe$, dans,fichier$,trouvé
                    settext text&,numéro$

                endif

            Elseif @getcheck(Radiobutton2&)

                let OK$=@Mid $(OK$,ok%,len%)
                let ok$=upper$(ok$)
                let eingabe$=upper$(eingabe$)

                si @equ$(eingabe$,ok$)

                    ADDString(LISTBOX2&,la ligne$)
                    inc trouvé%
                    let numéro$=Es wurden ,trouvé%;x ,eingabe$, dans,fichier$,trouvé
                    settext text&,numéro$

                endif

            Endif

        endif

        INC I%

    WEND

    CLOSE #1
    let numéro$=Es wurden ,trouvé%;x ,eingabe$, dans,fichier$,trouvé
    settext text&,numéro$

ENDPROC

SetTrueColor 1
Fenêtre Style $003F
Fenêtre 10,10-500,400
Windowtitle Pour Text chercher
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
cls RGB(192,192,192)
Laisser ListBox2&=CreateListBox(%hwnd,,10,200,472,97)
Laisser ListBox1&=CreateListBox(%hwnd,,10,10,472,97)
Laisser Éditer2&=CreateEdit(%hwnd,ici Dossier (ou bien Button klicken),11,160,172,21)
Laisser Edit&=CreateEdit(%hwnd,ici Suchtext,10,120,172,21)
Laisser Button1&=CreateButton(%hwnd,GO!,240,120,80,25)
Laisser Button2&=CreateButton(%hwnd,Dossier choisir,240,160,80,25)
let button0&=CreateButton(%hwnd,,0,0,0,0)  avec cela Programme den Concentrer besser mettons peux
Laisser RadioButton1&=CreateRadioButton(%hwnd,Text oui c'est ca chercher,340,120,140,17)
Laisser RadioButton2&=CreateRadioButton(%hwnd,Text ungefähr chercher,340,140,140,17)
Laisser Text&=CreateText(%hwnd,ici wird qui gefundene Suchanzahl angezeigt,10,320,470,17)
setcheck Radiobutton1&,1

tandis que 1

    waitinput

    si getfocus(button2&)

        KLICK
        let fichier$=@LOADFILE$(ÖFFNE:,*.prf)
        settext edit2&,fichier$
        setfocus(button0&)

    elseif getfocus(button1&)

        KLICK

        si @and(@neq$(fichier$,),@neq$(gettext$(Edit&),ici Suchtext))

            SEARCH

        elseif @equ$(fichier$,)

            @MessageBox(s'il te plaît Dossier choisir,faute,16)

        elseif @equ$(gettext$(Edit&),ici Suchtext)

            @MessageBox(s'il te plaît richtigen Suchtext eingeben!,faute,16)

        endif

        setfocus(button0&)

    endif

Wend