XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Texto suchen (en Archivos)
Lauffähig de Profano-Versión 5.0
declarar i%,listbox1&,Listbox2&,eingabe$,button0&
declarar datei$,zeile$,datei$,z%,ok%,edit2&,fz$
declarar ok$,edit&,button1&,button2&,len%,fz2$,zahl$
declarar radiobutton1&,radiobutton2&,gefunden%,text&

PROC KLICK          WICHTIG WEGEN EINFACHKLICK

    getmessage
    Case (%mensaje,512): Volver

ENDPROC

PROC SEARCH

    let gefunden%=0
    @destroywindow(Listbox1&)  Um erneut a füllen
    @destroywindow(Listbox2&)  Um erneut a füllen
    y wiederherstellen
    Let ListBox2&=CreateListBox(%hwnd,,10,200,472,97)
    Let ListBox1&=CreateListBox(%hwnd,,10,10,472,97)
    FILEMODE 0
    let I%=0
    let eingabe$=GETTEXT$(EDIT&)
    assign #1,datei$
    reset #1
    Claro ok$

    whilenot eof(#1)

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

    wend

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

    whilenot eof(#1)

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

        if @gt(ok%,0)

            if @GetCheck(Radiobutton1&)

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

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

                    ADDString(LISTBOX2&,zeile$)
                    inc gefunden%
                    let zahl$=Lo fueron ,gefunden%;x ,eingabe$, en,datei$,gefunden
                    settext text&,zahl$

                endif

            Elseif @getcheck(Radiobutton2&)

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

                if @equ$(eingabe$,ok$)

                    ADDString(LISTBOX2&,zeile$)
                    inc gefunden%
                    let zahl$=Lo fueron ,gefunden%;x ,eingabe$, en,datei$,gefunden
                    settext text&,zahl$

                endif

            Endif

        endif

        INC I%

    WEND

    CLOSE #1
    let zahl$=Lo fueron ,gefunden%;x ,eingabe$, en,datei$,gefunden
    settext text&,zahl$

ENDPROC

SetTrueColor 1
Ventana de Estilo $003F
Ventana 10,10-500,400
Windowtitle Nach Texto suchen
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
cls RGB(192,192,192)
Let ListBox2&=CreateListBox(%hwnd,,10,200,472,97)
Let ListBox1&=CreateListBox(%hwnd,,10,10,472,97)
Let Editar2&=CreateEdit(%hwnd,Hier Expediente (oder Button clic),11,160,172,21)
Let Edit&=CreateEdit(%hwnd,Hier Suchtext,10,120,172,21)
Let Button1&=CreateButton(%hwnd,GO!,240,120,80,25)
Let Button2&=CreateButton(%hwnd,Expediente wählen,240,160,80,25)
let button0&=CreateButton(%hwnd,,0,0,0,0)  Damit Programa el Foco mejor conjunto kann
Let RadioButton1&=CreateRadioButton(%hwnd,Texto genau suchen,340,120,140,17)
Let RadioButton2&=CreateRadioButton(%hwnd,Texto ungefähr suchen,340,140,140,17)
Let Text&=CreateText(%hwnd,Hier se el gefundene Suchanzahl adecuado,10,320,470,17)
setcheck Radiobutton1&,1

mientras que 1

    waitinput

    if getfocus(button2&)

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

    elseif getfocus(button1&)

        KLICK

        if @and(@neq$(datei$,),@neq$(gettext$(Edit&),Hier Suchtext))

            SEARCH

        elseif @equ$(datei$,)

            @MessageBox(Bitte Expediente wählen,Fehler,16)

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

            @MessageBox(Bitte richtigen Suchtext eingeben!,Fehler,16)

        endif

        setfocus(button0&)

    endif

wend